alex_frog

Изменения Автор: alex_frog Дата: 04-02-2013

Добрый день, просьба помочь решить проблему.

Нужно отправлять по почте последний только созданный файл, например *.log название у него генерируется по дате и времени - Backup-dd-mm-yyyy_hh-mm-ss
Например "Backup-03-01-2013_12-45-07.log" Текст в файле в кириллице, просьба сделать без квакозябр
Все лог-файлы лежат в папке C:\Windows\logs\windowsserverbackup\
Этот неизвестный НОВЫЙ файл-лога должен быть прикреплен во вложении или лучше вариант текст вложенного файла добавлен в тело письма.
В скрипте должна быть возможность отправки нескольким адресатам
Скрипт должен выполняться разово, по требованию
У меня есть скрипт по отправке на почту, но он может отправлять только конкретный файл с названием.
Как можно его подправить, чтобы можно было отправлять вложением новые созданные файлы по текущей дате

Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.From = "___@mail.ru"
objMsg.To = "___@mail.ru"
objMsg.Subject = "REPORT backup folders from "
objMsg.Textbody = "Отчет об архивировании папок с "
objMsg.AddAttachment "C:\Windows\Logs\WindowsServerBackup\Backup-????.log"
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "___@mail.ru"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Вести пароль"
Config.Fields.Update
objMsg.Send

Просьба, использовать только VBS