Add(MainForm,2953706,21,105)
{
}
Add(Memory,15134632,343,182)
{
 Default=String()
}
Add(Memory,8343455,308,168)
{
 Default=String()
}
Add(Memory,5446981,252,161)
{
 Default=String(25)
}
Add(Memory,1343449,210,49)
{
 Default=String(smtp.mail.ru)
}
Add(VBJScript,3743810,252,322)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:onSend|
 VarPoints=#7:Subject|8:Textbody|
 DataPoints=#10:SmtpServer|14:SmtpServerPort|12:SendUserName|12:SendPassword|
 Script=#16:Dim fso, outFile|52:Set fso = CreateObject("Scripting.FileSystemObject")|0:|79:'------------------------------------------------------------------------------|40:Set objMes = CreateObject("CDO.Message")|51:objMes.BodyPart.Charset ="windows-1251" ' кодировка|34:'objMes.BodyPart.CharSet = "utf-8"|0:|61:'  Indicate that we want TLS/SSL.  Also, set the port to 995:|22:mailman.MailPort = 995|18:mailman.PopSsl = 1|0:|46:'  Read mail headers and one line of the body.|39:' bundle is a Chilkat_9_5_0.EmailBundle|31:Set bundle = mailman.CopyMail()|0:|28:If (bundle Is Nothing ) Then|44:    outFile.WriteLine(mailman.LastErrorText)|16:    WScript.Quit|6:End If|0:|36:For i = 0 To bundle.MessageCount - 1|36:    ' email is a Chilkat_9_5_0.Email|34:    Set email = bundle.GetEmail(i)|0:|54:    '  Display the From email address and the subject.|44:    outFile.WriteLine("From: " & email.From)|50:    outFile.WriteLine("Subject: " & email.Subject)|0:|4:Next|0:|0:|13:outFile.Close|
 UseName=0
 link(onSend,9562088:doEvent1,[(300,328)(300,321)])
 link(SmtpServer,1343449:Value,[(258,202)(216,202)])
 link(SmtpServerPort,5446981:Value,[(265,258)(258,258)])
 link(SendUserName,8343455:Value,[(272,261)(314,261)])
 link(SendPassword,15134632:Value,[(279,268)(349,268)])
}
Add(Button,11317354,175,315)
{
 Left=10
 Top=15
 Width=80
 link(onClick,3743810:doWork,[(229,321)(229,328)])
}
Add(Memo,3109145,252,385)
{
 Left=10
 Top=80
 Width=360
 Height=165
}
Add(Edit,11753749,329,378)
{
 Left=35
 Top=55
 Width=180
}
Add(Hub,9562088,315,315)
{
 link(onEvent1,1008763:doData,[(341,321)(341,335)(317,335)(317,349)])
 link(onEvent2,14557086:doData,[(361,328)(361,356)])
}
Add(DoData,1008763,329,343)
{
 link(onEventData,11753749:doText2,[(373,349)(373,370)(317,370)(317,391)])
 link(Data,3743810:Textbody,[(335,331)(300,331)(300,366)(265,366)])
}
Add(DoData,14557086,392,350)
{
 link(onEventData,3109145:doAdd,[(436,356)(436,374)(240,374)(240,391)])
 link(Data,3743810:Subject,[(398,338)(328,338)(328,366)(258,366)])
}