Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,175,91)
{
 Width=493
 Height=534
}
Add(VBJScript,14748193,322,133)
{
 WorkPoints=#11:##SetScript|6:doWork|
 EventPoints=#6:onSend|
 VarPoints=#6:vError|5:vDesc|
 Script=#0:|0:|
 UseName=0
 PColor(onSend,-1)
 link(onSend,4574222:doEvent,[])
}
Add(Memo,13065478,259,70)
{
 Width=477
 Height=405
 Align=2
 Strings=#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") = "smtp.mail.ru" 'Почтовый сервер или IP адрес|122:objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'Порт сервера 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  ' время тайм-аута|128:'objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ххх@хх.ru" 'Имя пользователя|114:'objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ххххх" 'пароль|35:objMes.Configuration.Fields.Update'|0:|51:objMes.BodyPart.Charset ="windows-1251" ' кодировка|35:'objMes.BodyPart.CharSet = "utf-8" |41:objMes.From = "ххх@хх.ru" 'От кого письмо|37:objMes.To = "ххх@хх.ru" ' Кому письмо|64:objMes.Subject = "Проверка " & Date  'Тема письма + текущая дата|67:objMes.Textbody = "Пробное письмо " & Date 'Что будет в теле письма|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|
 ScrollBars=3
}
Add(Button,3006961,175,133)
{
 Top=405
 Width=110
 Height=90
 Caption="Send"
 link(onClick,6270966:doEvent1,[])
}
Add(Memo,9836107,504,140)
{
 Left=110
 Top=405
 Width=365
 Height=90
 ScrollBars=3
}
Add(DoData,1455842,259,133)
{
 link(onEventData,14748193:##SetScript,[])
 link(Data,13065478:Text,[])
}
Add(Hub,6270966,224,133)
{
 link(onEvent1,1455842:doData,[])
 link(onEvent2,14748193:doWork,[])
}
Add(IndexToChanel,4574222,392,133)
{
 Data=String(Send "OK")
 link(onEvent1,14327786:doWork1,[(487,139)])
 link(onEvent2,713227:doString,[])
}
Add(FormatStr,713227,441,140)
{
 Mask="Error#: %1\r\n"%2"\r\n"
 link(onFString,14327786:doWork2,[])
 link(Str1,14748193:vError,[(447,126)(378,126)(378,177)(328,177)])
 link(Str2,14748193:vDesc,[(454,119)(371,119)(371,171)(335,171)])
}
Add(HubEx,14327786,483,140)
{
 link(onEvent,9836107:doAdd,[])
}