VB6, VBA ExampleHotmail/MSN Live SMTP server address is "smtp.live.com". It requires TLS connection to do user authentication, and you should use your Hotmail/MSN Live email address as the user name for ESMTP authentication. For example: your email is "liveid@hotmail.com", and then the user name should be "myid@hotmail.com".
' The following example codes demonstrate sending email message using Hotmail/MSN Live SMTP Server
' To get full sample projects, please download and install EASendMail on your machine.
' To run it correctly, please change SMTP server, user, password, sender, recipient value to yours
Private Sub btnSendMail_Click()
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
' Set your Hotmail email address
oSmtp.FromAddr = "liveid@hotmail.com"
' Add recipient email address
oSmtp.AddRecipientEx "support@emailarchitect.net", 0
' Set email subject
oSmtp.Subject = "test email from hotmail account"
' Set email body
oSmtp.BodyText = "this is a test email sent from VB 6.0 project with hotmail"
' Hotmail SMTP server address
oSmtp.ServerAddr = "smtp.live.com"
' Hotmail user authentication should use your
' Hotmail email address as the user name.
oSmtp.UserName = "liveid@hotmail.com"
oSmtp.Password = "yourpassword"
' detect SSL/TLS connection automatically
oSmtp.SSL_init
MsgBox "start to send email ..."
If oSmtp.SendMail() = 0 Then
MsgBox "email was sent successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If
End Sub
If you have any comments or questions about above example codes, please add your comments here.
