This page is hosted for free by zzz.com.ua, if you are owner of this page, you can remove this message and gain access to many additional features by upgrading your hosting to PRO or VIP for just 32.50 UAH.

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

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

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