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"
}