Windows - Пишем в vbs

Не работает? Начинай читать инструкцию.

VBS - Как отправить файл по почте, с помощью скрипта

Что бы отправить файл на e-mail с помощью скрипта, в настройках на почтовом сервере надо разрешить использовать почтовые программы (разрешить pop3\smtp).

Предлагаю ознакомиться с предложениями моих партнёров

На gmail кроме этого, Вам следует в настройках GMail разрешить работу с небезопасными приложениями

Ниже приведу скрипт, который я использовал для отправки лога длугого скрипта мне на почту

Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
 .To = "user1#gmail.com, user2#gmail.com" 'куда отправляем
 .From = "user <user#gmail.com>" 'имя отправителя + Email
 .Subject = "Кеш" 'Тема письма
 .TextBody = "Чистка кешу завершена" 'Сообщение
 .AddAttachment "D:\temp\auto\skinfo.txt" 'Прикрепить файл
 .TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
 .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
 .Item(v_Conf & "smtpserver") = "smtp.gmail.com" 'Адрес SMTP-сервера
 .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
 .Item(v_Conf & "sendusername") = "user#gmail.com" 'здесь имя пользователя
 .Item(v_Conf & "sendpassword") = "passwd" 'пароль
 .Item(v_Conf & "smtpserverport") = 465 'порт
 .Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованое подключение SSL
 .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
 .Update
End With
 .send
End With
Set o_Mess = Nothing

В скрипте знак # в адресах, конечно надо поменять на @

Предлагаю ознакомиться с предложениями моих партнёров