In previous section, I introduced how to send email using Yahoo account. In this section, I will introduce how to send email using Hotmail/Live/Outlook/Office 365 in VB 6.0.
Sections:
Hotmail/Live/Outlook.com SMTP server address is smtp.live.com
. It requires explicit SSL (TLS) connection
to do user authentication, and you should use your Hotmail/Live/Outlook.com email address as the user
name for ESMTP authentication. For example: your email is liveid@hotmail.com
,
and then the user name should be liveid@hotmail.com
.
Server | Port | SSL/TLS |
smtp.live.com | 25, 587 | TLS |
Note
Remarks: All of samples in this section are based on first section: Send email in a simple VB 6.0 project. To compile and run the following example codes successfully, please click here to learn how to create the test project and add reference of EASendMail to your project.
The following example codes demonstrate how to send email using Hotmail/Live/Outlook in VB6 over TLS 25 or 587 port.
Note
To get the full sample projects, please refer to Samples section.
Const ConnectNormal = 0
Const ConnectSSLAuto = 1
Const ConnectSTARTTLS = 2
Const ConnectDirectSSL = 3
Const ConnectTryTLS = 4
Private Sub Command1_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"
' Set port to 587, if you want to use 25 port, please change 587 to 25
oSmtp.ServerPort = 587
' detect SSL/TLS connection automatically
oSmtp.ConnectType = ConnectSSLAuto
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 your account enabled two-factor authentication, you cannot login your account by normal user authentication, you should use SMTP OAUTH or App Password.
Microsoft Live SMTP servers (Hotmail, Oultook personal account) have been extended to support authorization via the industry-standard OAuth 2.0 protocol. Using OAUTH protocol, user can do authentication by Microsoft Web OAuth instead of inputting user and password directly in application.
Microsoft will disable traditional user authentication in the future, switching to Microsoft OAuth (Modern Authentication) is strongly recommended now.
Or you can generate App Passwords and use this app password instead of your user password.
First of all, you should go to Office 365 “Outlook” -> “Options” -> “See All Options” -> “Account” -> “My Account” -> “Settings for POP, IMAP, and SMTP access”. You will get your Office 365 SMTP server address and port. Then you can use your Office 365 SMTP server, port, user/password in the codes.
By default, Office 365 SMTP server uses 587 port and explicit SSL (TLS) connection.
Server | Port | SSL/TLS |
smtp.office365.com | 25, 587 (recommended) | TLS |
The following example codes demonstrate how to send email using Office 365 in VB6 over TLS 587 port.
Note
To get the full sample projects, please refer to Samples section.
Const ConnectNormal = 0
Const ConnectSSLAuto = 1
Const ConnectSTARTTLS = 2
Const ConnectDirectSSL = 3
Const ConnectTryTLS = 4
Private Sub Command1_Click()
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"
' Your office 365 email address
oSmtp.FromAddr = "myid@mydomain"
' Add recipient email address
oSmtp.AddRecipientEx "support@emailarchitect.net", 0
' Set email subject
oSmtp.Subject = "test email from office 365 account"
' Set email body
oSmtp.BodyText = "this is a test email sent from VB 6.0 project using office 365"
' Your Office 365 SMTP server address,
' You should get it from outlook web access.
oSmtp.ServerAddr = "smtp.office365.com"
' user authentication should use your
' email address as the user name.
oSmtp.UserName = "myid@mydomain"
oSmtp.Password = "yourpassword"
' Set port to 587
oSmtp.ServerPort = 587
' detect SSL/TLS connection automatically
oSmtp.ConnectType = ConnectSSLAuto
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 your account enabled two-factor authentication, you cannot login your account by normal user authentication, you should use SMTP/EWS OAUTH or App Password.
Microsoft Office365 EWS/SMTP servers have been extended to support authorization via the industry-standard OAuth 2.0 protocol. Using OAUTH protocol, user can do authentication by Microsoft Web OAuth instead of inputting user and password directly in application.
Microsoft will disable traditional user authentication in the future, switching to Microsoft OAuth (Modern Authentication) is strongly recommended now.
Or you can generate App Passwords and use this app password instead of your user password.
Next Section
At next section I will introduce how to send email without specified SMTP server.
Appendix
Comments
If you have any comments or questions about above example codes, please click here to add your comments.