Как отослать письмо на mail.ru через vbs, js и тп.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Как отослать письмо на mail.ru через vbs, js и тп. - 2009-05-13 01:05:57.186666
|
|
|
FENTAZY
Сообщений: 242
Оценки: 0
Присоединился: 2007-02-25 18:37:53.900000
|
нада чтоб скрипт с удаленного компа прислал отчетик
вот нашол скриптец тока он не пашет
on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.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("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="мыло"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="пас"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment "c:\raport.ini"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing
iMsg.Send
|
|
|
|
|
RE: Как отослать письмо на mail.ru через vbs, js и тп. - 2009-05-13 01:16:14.570000
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
On Error Resume Next
Call SendPost("smtp.mail.ru", "кому@mail.ru", "от_кого@mail.ru", "Subj", "Body")
Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ваш логин" '- логин на smtp сервер
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ваш пароль" 'пароль на smtp
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 'собстно сам сервер
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'порт на smtp сервере
Flds.Update
iMsg.Configuration = iConf
iMsg.To = strTo
iMsg.From = strFrom
iMsg.Subject = strSubject
iMsg.TextBody = strBody
iMsg.AddAttachment "C:\readme.txt"
iMsg.Send
End Function
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
|
|
|
|
|
RE: Как отослать письмо на mail.ru через vbs, js и тп. - 2009-10-26 19:13:38.123333
|
|
|
}{aKir
Сообщений: 196
Оценки: 0
Присоединился: 2009-08-19 17:39:21.950000
|
Хороший скрипт +1!
|
|
|
|
|
|
