Add(VBJScript,10443074,35,427)
{
 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)
}