 |
|
запаковка файлов и отправка архива на почту
добрый день!
есть скрипт который при запуске отправляет письмо с определенным текстом на определенные адреса
Код:
'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\" и отправлял этот архив на определенный почтовый ящик |
Anufriev, какой предполагается использовать архиватор для выполнения этого действия?
|
Ясно. Что именно вызывает затруднения в реализации? |
как прикрепить файл к письму, и как обзывать архив нынешней датой?
|
Цитата:
Цитата Anufriev
как прикрепить файл к письму, »
|
Код:
Set objMessage = WScript.CreateObject("CDO.Message")
…
objMessage.AddAttachment <Путь к файлу>
…
objMessage.Send
Примеры: [решено] Как прикрепить несколько файлов в письме?.
Цитата:
Цитата Anufriev
и как обзывать архив нынешней датой? »
|
Цитата:
Цитата %ProgramFiles%\WinRAR\WinRAR.chm
Ключ -AG[формат] — добавить к имени архива текущие дату и время
…
|
Читайте:
Код:
hh.exe "mk:@MSITStore:%ProgramFiles%\WinRAR\WinRAR.chm::/html/HELPSwAG.htm"
|
Время: 07:51.
© OSzone.net 2001-