Автор М@k(Im Лютан задал вопрос в разделе Другие языки и технологии
Скрипт Vbs и получил лучший ответ
Ответ от Просто DOCENT[гуру]
Все содержимое этой папки можно отправить в том случае, если оно (содержимое) будет запаковано в архив (хотя могу и ошибаться, ведь не программист я)
По отдельности надо конкретно путь до каждого файла показывать, с его именем.
Перед выполнением скрипта отправки на мыло я делал батник для упаковки файлов находящихся в папке в архив и после окончания архивации этот батник и запускал скрипт vbs. Хотя может архивацию файлов можно произвести то-же vbs скриптом, но я не программист и мне было удобнее делать определенные действия батником и затем отправлять на мыло vbsкой
Небольшой пример
on error resume next
Set S = CreateObject("Wscript.Shell")
s.run "L:1.bat",0
wscript.sleep("5000")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","кому@mail.ru","откуда@mail.ru","ТЕМА","ТЕКСТ")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)
Set iMsg=CreateObject("CDO.Message")
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("")=2
Flds.Item("")=1
Flds.Item("")="откуда@mail.ru"
Flds.Item("")="пароль откуда"
Flds.Item("")="smtp.mail.ru"
Flds.Item("")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment " L:1.rar"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing
s.run "L:1.bat",0 - запуск батника который будет архивировать файлы
wscript.sleep("5000") - задержка выполнения скрипта в 5 секунд - для архивации мало надо делать больше или прописывать что-бы скрипт ждал окончание работы батника
iMsg.AddAttachment " L:1.rar" - отправляем архив который создал батник