• Home
 · 
• Custom Controls/Forms/Menus
 · 
• a The easiest way to send mail

a The easiest way to send mail

I have seen some e-mail stuff on this site, but all are so freakin complicated. This is simple and VERY easy to use!

Rate a The easiest way to send mail

• 1
• 2
• 3
• 4
• 5

(15(15 Vote))

Dim sRes As String
Private Sub Command1_Click()
Winsock1.RemotePort = 25
Winsock1.RemoteHost = your_mail_server_here 'use your mail server
Winsock1.Connect
Do Until Winsock1.State = 7 '7=connected
  DoEvents
Loop
sRes = "0"
Winsock1.SendData "MAIL FROM: " & your_email_here & vbCrLf
Do Until sRes = "250"
  DoEvents
Loop
sRes = "0"
Winsock1.SendData "RCPT TO: " & someone_email_here & vbCrLf
Do Until sRes = "250"
  DoEvents
Loop
sRes = "0"
Winsock1.SendData "DATA" & vbCrLf
Do Until sRes = "354"
  DoEvents
Loop
Winsock1.SendData "FROM: " & your_name_here & vbCrLf
Winsock1.SendData "SUBJECT: " & subject_here & vbCrLf
Winsock1.SendData Text1.Text & vbCrLf & "." & vbCrLf
Do Until sRes = "250"
  DoEvents
Loop
Winsock1.Close
MsgBox "Mail sent!"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Dim Length As Long
Winsock1.GetData Data
Length = Len(Data)
sRes = Left$(Data, 3)
End Sub