/* Send email message via SMTP protocol. run as anettest -f this_file.fws */ device tcp client:smtp.mail.ru:2525 timeout 5000 td = "HELO ANETTEST\r\n" send reset td = "250" wait td = "MAIL FROM:\r\n" send reset td = "250" wait ifr timeout { print "doesn't accept mail from\n" getch exit 2 } td = "RCPT TO:\r\n" send reset td = "250" wait ifr timeout { print "doesn't accept mail to\n" getch exit 2 } td = "DATA\r\n" send reset td = "354" wait ifr timeout { print "doesn't accept data\n" getch exit 2 } td = "To: =?koi8-r?B?4c7Uz84g9MnUz9c=?= \r\nSubject: test\r\nFrom: \"Anton Titov\" \r\nContent-Type: text/plain; format=flowed; delsp=yes; charset=koi8-r\r\nMIME-Version: 1.0\r\nContent-Transfer-Encoding: 8bit\r\nDate: Thu, 19 Jun 2008 00:34:47 +0400\r\nMessage-ID: \r\nUser-Agent: Opera Mail/9.26 (Win32)\r\n\r\n.\r\n" send reset td = "250" wait ifr timeout { print "doesn't accept text\n" getch exit 2 } td = "QUIT\r\n" send reset td = "221" wait ifr timeout { print "doesn't accept QUIT\n" getch exit 2 }