Dim Response As String
Dim Start As Single, Tmr As Single

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData Response

End Sub

Sub WaitFor(ResponseCode As String)
Start = Timer
While Len(Response) = 0
Tmr = Start – Timer
DoEvents
If Tmr > 50 Then
MsgBox “SMTP service error, timed out while waiting for response”, 64, MsgTitle
Exit Sub
End If
Wend
While Left(Response, 3) <> ResponseCode
DoEvents
If Tmr > 50 Then
MsgBox “SMTP service error, impromper response code. Code should have been: ” + ResponseCode + ” Code recieved: ” + Response, 64, MsgTitle
Exit Sub
End If
Wend
Response = “”

End Sub

Sub SendEmail(MailServerName As String, FromName As String, FromEmailAddress As String, ToName As String, ToEmailAddress As String, EmailSubject As String, EmailBodyOfMessage As String)
Dim DateNow As String
Dim first As String, Second As String, Third As String
Dim Fourth As String, Fifth As String, Sixth As String
Dim Seventh As String
With Winsock1
If .State = sckClosed Then
DateNow = Format(Date, “Ddd”) & “, ” & Format(Date, “dd Mmm YYYY”) & ” ” & Format(Time, “hh:mm:ss”) & “” & ” -0600″
first = “mail from: ” & FromEmailAddress & vbCrLf
Second = “rcpt to: ” & ToEmailAddress & vbCrLf
Third = “Date: ” & DateNow & vbCrLf
Fourth = “From: “”” & FromName & “”” <” & FromEmailAddress & “>” + vbCrLf
Fifth = “To: ” & ToNametxt & vbCrLf
Sixth = “Subject: ” & EmailSubject & vbCrLf
Seventh = EmailBodyOfMessage & vbCrLf
Ninth = “X-Mailer: STMP Sender” & vbCrLf
LocalPort = 0
Protocol = sckTCPProtocol
RemoteHost = MailServerName
RemotePort = 25
Connect
WaitFor (“220”)
StatusTxt.Caption = “Connecting….”
SendData (“HELO EnterComputerNameHere” & vbCrLf)
WaitFor (“250”)
StatusTxt.Caption = “Connected”

SendData (first)
StatusTxt.Caption = “Sending Message”

WaitFor (“250”)
SendData (Second)
WaitFor (“250”)
SendData (“data” & vbCrLf)
WaitFor (“354”)
SendData (Fourth & Third & Ninth & Fifth & Sixth & vbCrLf)
SendData (Seventh & vbCrLf)
SendData (“.” & vbCrLf)
WaitFor (“250”)
SendData (“quit” & vbCrLf)
StatusTxt.Caption = “Disconnecting”
WaitFor (“221”)
Close
Else
MsgBox (Str(.State))
End If
End With
End Sub

Private Sub CmdSendMail_Click()
SendEmail txtEmailServer.Text, txtFromName.Text, txtFromEmailAddress.Text, txtToEmailAddress.Text, txtToEmailAddress.Text, txtEmailSubject.Text, txtMessage.Text
StatusTxt.Caption = “Mail Sent”
Beep
Close
End Sub

Winsock1_DataArrival

If .State = sckClosed Then

first = “mail from: ” & FromEmailAddress & vbCrLf
ایمیل شخص فرستنده را می گیره

Second = “rcpt to: ” & ToEmailAddress & vbCrLf
ایمیل کسی را که می خواهین براش میل بفرستین را می گیره
Fourth = “From: “”” & FromName & “”” <” & FromEmailAddress & “>” + vbCrLf
اسم شخص فرسنتده را می گیره
.RemotePort = 25
پرت smtp را برای winsock ست می کنه