Add(MainForm,2953706,21,105)
{
}
Add(VBJScript,10443074,126,238)
{
 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,224,238)
{
 Name="mail.status"
 Data=String(0.2)
 link(onValue,14723864:doCompare,[])
}
Add(If_else,14723864,329,238)
{
 Op2=Integer(1)
 link(onTrue,7385638:doString,[])
 link(Op1,15347560:Var,[(335,229)(307,229)(307,265)(230,265)])
 AddHint(20,-29,21,13,Op2)
}
Add(FormatStr,7385638,413,238)
{
 link(Str1,10443074:vError,[(419,226)(398,226)(398,294)(132,294)])
 link(Str2,10443074:vDesc,[(426,218)(389,218)(389,279)(139,279)])
}
Add(GlobalVar,7915571,126,49)
{
 Name="SmtpServer"
}
Add(GlobalVar,12168455,133,70)
{
 Name="SmtpServerPort"
}
Add(GlobalVar,12541372,140,91)
{
 Name="SendUserName"
}
Add(GlobalVar,7224364,147,112)
{
 Name="SendPassword"
}
Add(GlobalVar,15874768,154,133)
{
 Name="From"
}
Add(GlobalVar,8012872,161,154)
{
 Name="To"
}
Add(GlobalVar,7731725,168,175)
{
 Name="Subject"
}
Add(GlobalVar,5642204,175,196)
{
 Name="Textbody"
}

Dim strErr
Dim objMes
'------------------------------------------------------------------------------

Set objMes = CreateObject("CDO.Message")

objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sys.SmtpServer 'Почтовый сервер или IP адрес
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sys.SendUserName 'Имя пользователя
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sys.SendPassword 'пароль
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sys.SmtpServerPort 'Порт сервера SMTP
' "smtp.mail.ru" 465 
' "smtp.yandex.ru"  465
' "smtp.qip.ru"  25
' "smtp.gmail.com" 465
objMes.PopSsl = 1 'что мы хотим TLS / SSL

Set bundle = vSubject

For i = vi To bundle.MessageCount - 1
    email = bundle.GetEmail(i)
        
    outFile.WriteLine("From: " & vFrom)
    outFile.WriteLine("Subject: " & vSubject)

Next
objMes.Send

  If Err.Number = 0 then 
   sys.onSend 0
  else
   sys.onSend 1
  End If

Set objMes = Nothing

Function GetVar(Data, Index)
  Select Case Index
    Case "vError" ' номер         
     strErr =  Err.Number
     GetVar  =  strErr           
    Case "vDesc" '  описание
     strErr  = Err.Description              
     GetVar  = strErr
  End Select
End Function 
End Sub