запаковка файлов и отправка архива на почту

[Anufriev]

добрый день!

есть скрипт который при запуске отправляет письмо с определенным текстом на определенные адреса
'On Error Resume Next
Const EmailFrom = "1@1.ru"
Const SmtpServer = "1.1.local"
Const Port = 25

EmailTo = "2@1.ru"
Send SmtpServer,EmailFrom,Port,EmailTo

EmailTo = "3@1.ru"
Send SmtpServer,EmailFrom,Port,EmailTo

Sub Send(smtp,from,port,emailto)
Set objEmail = CreateObject("CDO.Message")
objEmail.From = from
objEmail.To = emailto
objEmail.Subject = "Сообщение от: " & Now
objEmail.Textbody = "Обновление завершено"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = port
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing
End Sub

нужно: что бы скрипт паковал в архив все файлы в папке по пути "C:\1\1\" и отправлял этот архив на определенный почтовый ящик

[Iska]

Anufriev, какой предполагается использовать архиватор для выполнения этого действия?

[Anufriev]

win rar

[Iska]

win rar »
Ясно. Что именно вызывает затруднения в реализации?

[Anufriev]

как прикрепить файл к письму, и как обзывать архив нынешней датой?

[Iska]

как прикрепить файл к письму, »
Set objMessage = WScript.CreateObject("CDO.Message")
…
objMessage.AddAttachment <Путь к файлу>
…
objMessage.Send
Примеры: [решено] Как прикрепить несколько файлов в письме? (http://forum.oszone.net/thread-207261.html).

и как обзывать архив нынешней датой? »
Ключ -AG[формат] — добавить к имени архива текущие дату и время
…
Читайте:
hh.exe "mk:@MSITStore:%ProgramFiles%\WinRAR\WinRAR.chm::/html/HELPSwAG.htm"