VB Script:

Option explicit
Dim oShell
set oShell= Wscript.CreateObject(“WScript.Shell”)
oShell.Run “telnet”
WScript.Sleep 1000
oShell.Sendkeys “open mail.server 25~”
WScript.Sleep 1000
oShell.Sendkeys “helo test~”
WScript.Sleep 500
oShell.Sendkeys “mail from:from@domain.com~”
WScript.Sleep 500
oShell.Sendkeys “rcpt to:to@domain.com~”
WScript.Sleep 500
oShell.Sendkeys “Data~”
WScript.Sleep 500
oShell.Sendkeys “Subject: Subject for the mail~”
oShell.Sendkeys “From: Sender~”
oShell.Sendkeys “TO: Reciver~”
oShell.Sendkeys “.~”
WScript.Sleep 5000
oShell.Sendkeys “quit~”
Wscript.Quit