Private Sub Command1_Click()
wskm.Protocol = sckTCPProtocol
wskm.RemoteHost = "mx05.hotmail.com "
wskm.RemotePort = 25
wskm.Connect
DoEvents
If wskm.State = 7 Then MsgBox "is connected"
wskm.SendData ("hello hotmail" + vbCrLf)
wskm.SendData ("MAIL FROM: [email protected]" & vbCrLf)
wskm.SendData ("rcpt to: [email protected]" & vbCrLf)
wskm.SendData ("data" & vbCrLf)
wskm.SendData ("Subject: test" & vbCrLf)
wskm.SendData ("test msg only" & vbCrLf)
wskm.SendData ("." & vbCrLf)
wskm.SendData ("quit" & vbCrLf)ואני מקבל הודעת שגיאה..שאני מפעיל אותו....
WRONG PROTOCOL OR CONNECTION STATE FOR THE REQUEST TRANSACTION OR REQUEST
והוא מסמן לי את השורה הזו בצהוב
wskm.SendData ("hello hotmail" + vbCrLf)