Smtp Telnet

[Clever1mba]

hello

guyz i have problem sending mail through smtp telnet

my code had error it not sending any email i donno wats problem in

and want to know way displaying status of mail like

like dos cmd DO telnet mx4.mail.yahoo.com 25

give status

220 YSmtp mta228.mail.mud.yahoo.com ESMTP service ready

plz check this wats problem in it and tell me how i can display status on dos like telnet

$aRcptList = "snip"

$sSender = "snip"

$sServer = "mx4.mail.yahoo.com"

$sSubject = "TEST MAIL"

TCPStartup()

$hSocket = TCPConnect(TCPNameToIP($sServer), 25)

If $hSocket <> -1 Then

Sleep(100)

$sData = TCPRecv($hSocket, 1024) 

If StringLeft($sData, 3) = "220" Then

Sleep(100)

$sData = "HELO " & @ComputerName & @CRLF

  

If TCPSend($hSocket, $sData) > 0 Then

Sleep(100)

$sData = TCPRecv($hSocket, 1024)

If StringLeft($sData, 3) = "250" Then

Sleep(100)

$sData = "MAIL FROM: <" & $sSender & ">" & @CRLF

    

If TCPSend($hSocket, $sData) > 0 Then

Sleep(100)

$sData = TCPRecv($hSocket, 1024)

If StringLeft($sData, 3) = "250" Then

Sleep(100)

$sData = "RCPT TO: <" & $aRcptList & ">" & @CRLF

    

If TCPSend($hSocket, $sData) > 0 Then

Sleep(100)

$sData = TCPRecv($hSocket, 1024)

If StringLeft($sData, 3) = "250" Then

Sleep(100)

$sData = "DATA" & @CRLF

    

If TCPSend($hSocket, $sData) > 0 Then

Sleep(100)

$sData = TCPRecv($hSocket, 1024)

If StringLeft($sData, 3) = "354" Then

Sleep(100)

$sData = StringFormat("To: %srnFrom: %srn" & _

"Subject: %srn" & _

"Date: %02d/%02d/%d %02d:%02d:%02drn", _

$aRcptList, $sSender, $sSubject, _

@MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC)

If TCPSend($hSocket, $sData) > 0 Then

Sleep(100)

$sData =  @CRLF

If TCPSend($hSocket, $sData) > 0 Then

Sleep(100)

$sData = @CRLF & "." & @CRLF

If TCPSend($hSocket, $sData) > 0 Then

Sleep(100)

$sData = TCPRecv($hSocket, 1024)

If StringLeft($sData, 3) = "250" Then

Sleep(100)

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

EndIf

Thanks

Edited November 8, 2012 by Melba23