1. Home
  2. EASendMail SMTP Component
  3. KB
  4. VB6
  5. Send Email using Yahoo in VB 6.0

Tutorial Index

Send Email using Yahoo in VB 6.0

In previous section, I introduced how to send email using Gmail account. In this section, I will introduce how to send email using Yahoo account in VB 6.0.

Introduction

Yahoo SMTP server address is smtp.mail.yahoo.com. It supports both Normal/Implicit SSL/Explicit SSL (TLS) connection to do user authentication, and you should use your Yahoo email address as the user name for ESMTP authentication. For example: your email is myid@yahoo.com, and then the user name should be myid@yahoo.com.

If you want to use implicit SSL connection with Yahoo SMTP server, you must set the port to 465.

Server Port SSL/TLS
smtp.mail.yahoo.com 25, 587 TLS
smtp.mail.yahoo.com 465 SSL

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.

Important

If you got authentication error, you need to enable Allowing less secure apps in your Yahoo account. Or you can generate App Passwords and use this app password instead of your user password.

Although Yahoo supports OAUTH, but it doesn’t provide mail permission, so OAUTH is not a solution for Yahoo mail.

[VB 6.0 - Send email using Yahoo over Implicit SSL on 465 port - Example]

The following example codes demonstrate how to send email using Yahoo account in VB over SSL 465 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 Yahoo email address
    oSmtp.FromAddr = "myid@yahoo.com"
    ' Add recipient email address
    oSmtp.AddRecipientEx "support@emailarchitect.net", 0

    ' Set email subject
    oSmtp.Subject = "test email from Yahoo mail account"
    ' Set email body
    oSmtp.BodyText = "this is a test email sent from VB 6.0 project with Yahoo email"

    ' Yahoo SMTP server address
    oSmtp.ServerAddr = "smtp.mail.yahoo.com"

    ' For example: your email is "myid@yahoo.com", then the user should be "myid@yahoo.com"
    oSmtp.UserName = "myid@yahoo.com"
    oSmtp.Password = "yourpassword"

    ' Set port to 465.
    oSmtp.ServerPort = 465

    ' detect SSL/TLS 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

[VB 6.0 - Send Email using Yahoo over Explicit SSL (TLS) on 25 or 587 Port - Example]

The following example codes demonstrate how to send email using Yahoo account 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"

    ' Set your Yahoo email address
    oSmtp.FromAddr = "myid@yahoo.com"
    ' Add recipient email address
    oSmtp.AddRecipientEx "support@emailarchitect.net", 0

    ' Set email subject
    oSmtp.Subject = "test email from Yahoo mail account"
    ' Set email body
    oSmtp.BodyText = "this is a test email sent from VB 6.0 project with Yahoo email"

    ' Yahoo SMTP server address
    oSmtp.ServerAddr = "smtp.mail.yahoo.com"

    ' For example: your email is "myid@yahoo.com", then the user should be "myid@yahoo.com"
    oSmtp.UserName = "myid@yahoo.com"
    oSmtp.Password = "yourpassword"

    ' Set port to 587, if you want to use 587 port, please change 587 to 25
    oSmtp.ServerPort = 587

    ' detect SSL/TLS 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

TLS 1.2

TLS is the successor of SSL, more and more SMTP servers require TLS 1.2 encryption now.

If your operating system is Windows XP/Vista/Windows 7/Windows 2003/2008/2008 R2/2012/2012 R2, and you got connection error with SSL/TLS connection, you need to enable TLS 1.2 protocol in your operating system like this:

Enable TLS 1.2 on Windows XP/Vista/7/10/Windows 2008/2008 R2/2012

Next Section At next section I will introduce how to send email using Hotmail/Live/Outlook/Office 365 account in VB6.

Appendix

Comments

If you have any comments or questions about above example codes, please click here to add your comments.

See Also