vasyosuol_24
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
Dim Flag
Dim WSHShell
Do
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", "http://rl.ammyy.com/", false
xmlhttp.send
ip_text=xmlhttp.responseText
Flag = True
Set xmlhttp = Nothing
Loop While NOT Flag
Set WshShell = Nothing
Set objEmail = WScript.CreateObject("CDO.Message")'; // создаем объект CDO.Message
' Зададим значения для полей письма.
objEmail.From = "adress-1@mail.ru"'; // адрес отправителя (пользователя)
objEmail.To = "adress-2@mail.ru"'; // адрес получателя
objEmail.BodyPart.CharSet = "utf-8"'; // задаем кодовую страницу сообщения
objEmail.Subject = "Subj"'; // тема письма
objEmail.Textbody = Message'; // тело письма
' Зададим значения для полей конфигурации
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'; //посылать сообщения по сети, используя SMTP
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"'; //ip или DNS-имя smtp-сервера
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465'; // порт smtp-сервера
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True'; // использовать шифрование SSL
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'; // используем basic authentication
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "adress-1@mail.ru"'; //имя пользователя
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"'; //пароль пользователя
objEmail.Configuration.Fields.Update
' Отправка письма
objEmail.Send
Set objEmail = Nothing
|
|
