Вверх ↑
Этот топик читают: Гость
Ответов: 91
Рейтинг: 0
#1: 2014-09-30 16:27:55 ЛС | профиль | цитата
Как отправить простое текстовое сообщение на обычный ящик mail.ru с SSL?
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Гость
Ответов: 17029
Рейтинг: 0
#2: 2014-09-30 17:10:09 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2020-03-01 19:12:04
карма: 0

0
Ответов: 91
Рейтинг: 0
#3: 2017-06-16 14:45:33 ЛС | профиль | цитата
Нашел на форуме, не помню где. Добавлю для поиска.

Add(MainForm,12193030,497,329)
{
}
Add(VBJScript,10443074,574,329)
{
WorkPoints=#6:doWork|
EventPoints=#6:onSend|
VarPoints=#6:vError|5:vDesc|
DataPoints=#10:SmtpServer|14:SmtpServerPort|12:SendUserName|12:SendPassword|4:From|2:To|7:Subject|8:Textbody|
Script=#10:Dim strErr|10:Dim objMes|0:|23:Sub doWork(Data, Index)|20:On Error Resume Next|79:'------------------------------------------------------------------------------|40:Set objMes = CreateObject("CDO.Message")|140:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sys.SmtpServer 'Почтовый сервер или IP адрес|137:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sys.SmtpServerPort 'Порт сервера SMTP|21:' "smtp.mail.ru" 465 |23:' "smtp.yandex.ru" 465|19:' "smtp.qip.ru" 25|22:' "smtp.gmail.com" 465|178:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '0 – без аутентификации,1 - базовая аутентификация,2 – аутентификация NTLM|115:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1 каталог Pickup |119:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' использовать SSL|128:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' время тайм-аута|132:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sys.SendUserName 'Имя пользователя|122:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sys.SendPassword 'пароль|35:objMes.Configuration.Fields.Update'|0:|51:objMes.BodyPart.Charset ="windows-1251" ' кодировка|35:'objMes.BodyPart.CharSet = "utf-8" |38:objMes.From = sys.From 'От кого письмо|32:objMes.To = sys.To ' Кому письмо|57:objMes.Subject = sys.Subject 'Тема письма + текущая дата|55:objMes.Textbody = sys.Textbody 'Что будет в теле письма|0:|30:'objMes.AddAttachment "файл 1"|34:'... перечень прикрепленных файлов|30:'objMes.AddAttachment "файл N"|80:'-------------------------------------------------------------------------------|11:objMes.Send|0:|25: If Err.Number = 0 then |15: sys.onSend 0|6: else|15: sys.onSend 1|8: End If|0:|20:Set objMes = Nothing|7:End Sub|0:|28:Function GetVar(Data, Index)|19: Select Case Index|34: Case "vError" ' номер |25: strErr = Err.Number|33: GetVar = strErr |28: Case "vDesc" ' описание|44: strErr = Err.Description |21: GetVar = strErr|12: End Select|12:End Function|
UseName=0
PColor(onSend,-1)
link(onSend,15347560:doValue,[])
link(SmtpServer,7915571:Var,[])
link(SmtpServerPort,12168455:Var,[])
link(SendUserName,12541372:Var,[])
link(SendPassword,7224364:Var,[])
link(From,15874768:Var,[])
link(To,8012872:Var,[])
link(Subject,7731725:Var,[])
link(Textbody,5642204:Var,[])
}
Add(GlobalVar,15347560,672,329)
{
Name="mail.status"
Data=String(0.2)
link(onValue,14723864:doCompare,[])
}
Add(If_else,14723864,777,329)
{
Op2=Integer(1)
link(onTrue,7385638:doString,[])
link(Op1,15347560:Var,[(783,320)(755,320)(755,356)(678,356)])
AddHint(20,-29,21,13,Op2)
}
Add(FormatStr,7385638,861,329)
{
link(Str1,10443074:vError,[(867,317)(846,317)(846,385)(580,385)])
link(Str2,10443074:vDesc,[(874,309)(837,309)(837,370)(587,370)])
}
Add(GlobalVar,7915571,574,140)
{
Name="SmtpServer"
}
Add(GlobalVar,12168455,581,161)
{
Name="SmtpServerPort"
}
Add(GlobalVar,12541372,588,182)
{
Name="SendUserName"
}
Add(GlobalVar,7224364,595,203)
{
Name="SendPassword"
}
Add(GlobalVar,15874768,602,224)
{
Name="From"
}
Add(GlobalVar,8012872,609,245)
{
Name="To"
}
Add(GlobalVar,7731725,616,266)
{
Name="Subject"
}
Add(GlobalVar,5642204,623,287)
{
Name="Textbody"
}

карма: 0

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)