vbs скрипт отправки почты

Отправка на почту файла

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Отправка на почту текста из файла в теле сообщения
Здравствуйте! не подскажите как сделать чтобы в тексте письма отображалась информация из.

Отправка на почту письма+вложения текста из файла
Привет. Как можно отправить на почту письмо+вложения, в котором текст будет из файла, причем.

Отправка письма на почту
Возможно ли в VBS прописать так чтобы отправлял, допустим на tr-001@mail.ru, письмо, содержание.

Отправка сообщения на почту в правильной кодировке
Здравствуйте отправляю почтовое сообщение с Windows eng и русские буквы приходят кракозяблями.

Решение

3) Добавить несколько вложений:
— просто несколько раз повторить

Отправка текста в виде HTML
Пример отправляет текст «Демо-текст» красным цветом шрифта arial размером в 20 пунктов.

Это и есть полный путь, только через переменную окружения.

Можно уточнить, это относится к

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Отправка на почту файла
Ребята Здравствуйте! подскажите пример, как с помощью бат файла отправить на почту файл, подробнее.

Отправка файла на почту
Всем привет! В интернете много искал про отправку файла на почту (Yandex, Mail), но не один из них.

Отправка файла на почту
Есть bat-файл, который создает текстовик с определенным текстом. Как отправить этот текстовик.

Отправка файла на почту
Добрый вечер! Помогите, пожалуйста, написать код вот по такой задачке: после тестирования.

Источник

С помощью обычного скрипта VBS можно спокойно отправлять электронную почту, что я уже давно использую в своих скриптах, таких как Автоматическая проверка оставшегося места на диске, Адапптированный скрипт автоматического избавления от устаревших архивов, Скрипт автоматически выкидывающий пользователей из терминальной сессии. Часть 2я и другие. Но в данной статье я хочу акцентировать внимание, что даже простая отправка почты нам может пригодиться в администрировании.

Самое главное. Для того, чтобы можно было отправлять почту с помощью скрипта, необходимо иметь действующую почту на любом почтовом хостинге или сервере.

Вот он сам скрипт. Он очень простой по сравнению с вышеупомянутыми.

on error resume next

Dim nwo, cmpname
Set nwo = CreateObject(«WScript.Network»)
CmpName = LCase(nwo.ComputerName)

MSG = «Сервер » + CmpName + » был автоматически включен!» + chr(13) + chr(10) + chr(13) + chr(10)
MSG = MSG + «Сервер » + CmpName + » был автоматически включен! » + chr(13) + chr(10)
MSG = MSG + «Возможные причины останова сервера:» + chr(13) + chr(10)
MSG = MSG + «1. Был выключен и включен (или перезагружен) человеком.» + chr(13) + chr(10)
MSG = MSG + «2. Был программный сбой.» + chr(13) + chr(10)
MSG = MSG + «3. Был сбой электропитания.» + chr(13) + chr(10)
MSG = MSG + «Для выяснения данного инцидента необходимодимо просмотреть логи событий. » + chr(13) + chr(10) + chr(13) + chr(10)
MSG = MSG + «Время/Дата формирования сообщения отчёта: » + CStr(Time) + «/» + CStr(Date) + chr(13) + chr(10)

Const EmailFrom = «bot@superpuperfirma.ru» ‘ от кого будет отправляться e-mail
Const EmailPassword = «SuperPuperPassword» ‘ пароль от e-mail отправителя
Const strSmtpServer = «smtp.superpuperfirma.ru» ‘ smtp сервер
Const EmailTo = «admin@superpuperfirma.ru» ‘ Кому будет отправляться e-mail
Set objEmail = CreateObject(«CDO.Message»)

objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = «Сообщение от сервера » + CmpName + «: сервер был автоматически включен!» ‘ Тема письма
objEmail.Textbody = MSG
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/sendusing») = 2
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpauthenticate») = 1
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/sendusername») = EmailFrom
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/sendpassword») = EmailPassword
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserver») = strSmtpServer
objEmail.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserverport») = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing ‘ Чистим память.
Set nwo = Nothing ‘ Чистим память.

И самое главное. Если всё же захотите использовать его как оповещатель включения сервера, то Вам также придётся создать задание с триггером «при включении компьютера».

Источник

Vbs скрипт отправки почты

// Setting configuration params
with(refConf.Fields)
<
Item(«http://schemas.microsoft.com/cdo/configuration/smtpserver») = «www.mysmtp.com»;
Item(«http://schemas.microsoft.com/cdo/configuration/sendusing») = 2;
>
refConf.Fields.Update();

with(refMsg)
<
Configuration = refConf;
To = sRecipientMail;
From = «billgates@microsoft.com»;
Subject = sSubject;
TextBody = sMsgBody;
>
refMsg.Send();
>
catch(e)
<
WScript.Echo(«SendMail error: » + e.description);
WScript.Quit(1);
>
>

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 02:14 30-03-2005