CDO: Send Email from Yahoo, Hotmail, Live, AOL or GMail

by Anshoo Arora ON August 10, 2009 · Posted In All, QTP, VBScript · 34 comments

This article discusses 2 ways of sending e-mail from your Yahoo, Hotmail, Gmail, Live or AOL e-mail accounts using the ‘EmailSender’ class:

Calling the Method with the Body Message
Retrieve body-messages from text files

This can be quite handy during regression cycles – you can use this code to send yourself an e-mail whenever a step in the test process fails. You can even keep a count of the number of times this procedure executes in your script and even stop your test if too many steps fail.

Calling the Method with the Body Message

The code snippets below shows the syntax to send an HTML and plain text e-mails:

'TEXT
SendMail "myEmailID@AOL.com", "myPassword", "recipient@Gmail.com", _
        "", "Subject", "Hello, this is a test mail."

'HTML
SendMail "myEmailID@AOL.com", "myPassword", "recipient@Gmail.com", "", _
        "Subject", "<h1>Hello</h1><p>Test Mail</p>"

Retrieve body-messages from text files

You can create a text file with the body message, and use the file path in the method to send the e-mail. Below is an example of an HTML body inserted into a text file:

SendMailFromFile "myEmailID@AOL.com", "myPassword", "recipient@Gmail.com", "", _
        "Subject", "C:\MyTestMail.txt"

Sample Text File

Similarly, mails can be sent to multiple recipients using “;” between Recipient’s emails. Example:

SendMail "myEmailID@AOL.com", "myPassword", "recipient1@Gmail.com;recipient2@Yahoo.Com", _
    "CC@YouCC.Com;CC@MeCC.Com", "Test Subject", "Test Message"

You can find the download links to this class towards the end of this post.

Code: Class SendMail

Class EmailSender
 
'#region Public Variables

    Public Body  'Message body
    Public From  'Sender's EmailID

 
'#region Private Variables

    Private CDOMessage  'CDO.Message Object
    Private strFrom     'Sender's Email ID: XX@YY.COM
    
 
'#region Public Methods
    
    ' Purpose: Send Email Using CDO
    ' Args:
    '    sEmailID: Sender's Mail ID String
    '    sPassword: Sender's Password String
    '    sTo: Recipient's Mail ID String (Primary)
    '    sCC: Recipient's Mail ID String (CC)
    '    sSubject: Subject String
    '    sBody: Body Message String
    Public Sub Send(sEMailID, sPassword, sTo, sCC, sSubject, sBody)
        Dim oRegExp     'RegEx Object
        Dim sDetails    'Report Details
        Dim intStatus   'Report Status
        Dim sStepName   'Report Step

        Me.From = sEmailID
        intStatus = micPass
        sStepName = " Sent"
 
        Set oRegExp = New RegExp
        oRegExp.Global = True
        oRegExp.Pattern = "<\w>|<\w\w>|<\w\d>"
        Set oMatches = oRegExp.Execute( Me.Body )
 
        'Build Message
        With CDOMessage
            .Subject = sSubject
            .From = sEmailID
            .To = sTo
            .CC = sCC
            '.BCC = sBCC  'BCC Property can be added as well
            
            'If HTML Tags found, use .HTMLBody
            If oMatches.Count > 0 Then
                .HTMLBody = Me.Body
            Else
                .TextBody = Me.Body
            End If
        End With
 
        Set oMatches = Nothing
        Set oRegExp = Nothing
 
        With CDOMessage.Configuration.Fields
            'Sender's Mail ID
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "sendusername") = sEmailID
            'Sender's Password
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "sendpassword") = sPassword
            'Name/IP of SMTP Server
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpserver") = cdoSMTPServer
            'Server Port
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpserverport") = cdoOutgoingMailSMTP
            'Send Using: (1) Local SMTP Pickup Service (2) Use SMTP Over Network
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "sendusing") = cdoSendUsing
            'Authentication Used: (1) None (2) Basic (3) NTLM
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpauthenticate") = cdoAuthenticationType
            'SMTP Server Requires SSL/STARTTLS: Boolean
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpusessl") = cdoUseSSL
            'Maximum Time in Seconds CDO will try to Establish Connection
            .Item("http://schemas.microsoft.com/cdo/configuration/" &_
            "smtpconnectiontimeout") = cdoTimeout
            'Update Configuration Entries
            .Update
        End With
 
        'Report Details
        sDetails = "SMTP Server: " & cdoSMTPServer & vbLf
        sDetails = sDetails & "Sender: " & sEMailID & vbLf
        sDetails = sDetails & "Recipient: " & sTo & vbLf
        sDetails = sDetails & "Server Port: " & cdoOutgoingMailSMTP & vbLf
        sDetails = sDetails & "SSL Used: " & cdoUseSSL & vbLf
        sDetails = sDetails & "Authentication Type: " & cdoAuthenticationType & vbLf
        sDetails = sDetails & "SMTP Service Type: " & cdoSendUsing & vbLf & vbLf
        sDetails = sDetails & "Subject: " & sSubject & vbLf & vbLf
        sDetails = sDetails & "Body: " & sBody
 
        On Error Resume Next
            CDOMessage.Send  'Send Message
            
            If Err.Number <> 0 Then
                intStatus = micFail
                sStepName = " Not Sent"
                sDetails = sDetails & vbLf & "Error Description: " & Err.Description
            End If
        On Error Goto 0
 
        'If you're not using QTP, please disable the statement below:
        Reporter.ReportEvent intStatus, "EMail" & sStepName, sDetails
    End Sub
 
    ' Purpose: Loads BodyText from a Text File
    ' Args:
    '    sCompleteFilePath: Complete Path to the Text File (Eg: "C:\MyDocs\MyMail.txt")
    Public Property Let LoadBodyMessage( sCompleteFilePath ) 'ReadOnly Property LoadBodyMessage
        CONST ForReading = 1 
        Dim oFSO, oFile
 
        Set oFSO = CreateObject( "Scripting.FileSystemObject" )
        Set oFile = oFSO.OpenTextFile( sCompleteFilePath, ForReading )
        Me.Body = oFile.ReadAll
        oFile.Close: Set oFile = Nothing
 
        Set oFSO = Nothing
    End Property
 
 
'#region Private Gets

    ' Purpose: Readonly property configuration for SMTP Service'
    ' Return: Integer
    Private Property Get CDOSendUsing  'As Integer
        CDOSendUsing = 2    'Use SMTP Over The Network
        'CDOSendUsing = 1    'Use Local SMTP Service Pickup Directory
    End Property
 
    ' Purpose: Maximum time in seconds CDO will try to establish a connection
    ' Return: Integer
    Private Property Get CDOTimeout  'As Integer
        'CDOTimeout = 15    'Seconds
        CDOTimeout = 45    'Seconds
        'CDOTimeout = 75    'Seconds
    End Property
 
    ' Purpose: Type of Authentication to be used
    ' Return: Integer
    Private Property Get CDOAuthenticationType  'As Integer
        'CDOAuthenticationType = 0    'No Authentication
        CDOAuthenticationType = 1    'Basic Authentication
        'CDOAuthenticationType = 2    'NTML Authentication
    End Property
 
    ' Purpose: Server Port
    ' Return: Integer
    Private Property Get CDOOutgoingMailSMTP  'As Integer
        If InStr(1, Lcase(Me.From), "@gmail") <> 0 Then
            CDOOutgoingMailSMTP = 465
        ElseIf InStr(1, LCase(Me.From), "@aol") <> 0 Then
            CDOOutgoingMailSMTP = 587
        Else
            CDOOutgoingMailSMTP = 25
        End If
    End Property
 
    ' Purpose: Name/IP of SMTP Server
    ' Return: Integer
    Private Property Get CDOSMTPServer  'As String
        If InStr(1, LCase(Me.From), "@yahoo") <> 0 Then
            CDOSMTPServer = "smtp.mail.yahoo.com"
        ElseIf InStr(1, LCase(Me.From), "@gmail") <> 0 Then
            CDOSMTPServer = "smtp.gmail.com"
        ElseIf InStr(1, LCase(Me.From), "@hotmail") <> 0 Or _
               InStr(1, LCase(Me.From), "@live") <> 0 Then
            CDOSMTPServer = "smtp.live.com"
        ElseIf InStr(1, LCase(Me.From), "@aol") <> 0 Then
            CDOSMTPServer = "smtp.aol.com"
        End If    
    End Property
 
    ' Purpose: Setting for SMTP Server's use of SSL (Boolean)
    Private Property Get CDOUseSSL  'As Boolean
        CDOUseSSL = True
 
        If InStr(1, LCase(Me.From), "@aol") <> 0 Then
            CDOUseSSL = False
        End If
    End Property
 
 
'#region Initialization and Termination
    
    Private Sub Class_Initialize()
        Set CDOMessage = CreateObject("CDO.Message")
    End Sub
 
    Private Sub Class_Terminate()
        Set CDOMessage = Nothing
    End Sub
 
End Class

Code: Function SendMail

' Purpose: Sends an Email Using CDO to a recipient
' Args:
'    sEmailID: Sender's Mail ID String
'    sPassword: Sender's Password String
'    sTo: Recipient's Mail ID String
'    sSubject: Subject String
'    sBody: Body Message String
Public Sub SendMail(EmailID, Password, Recipient, CC, Subject, Body)
    Dim oEmailSender : Set oEmailSender = New EmailSender
 
    With oEmailSender
        .Send EmailID, Password, Recipient, CC, Subject, Body
    End with 
End Sub

Code: Function SendMailFromFile

' Purpose: Sends an Email Using CDO to a recipient
' Args:
'    sEmailID: Sender's Mail ID String
'    sPassword: Sender's Password String
'    sTo: Recipient's Mail ID String
'    sSubject: Subject String
'    sCompleteFilePath: Text File containing the Body Message
Public Sub SendMailFromFile(EmailID, Password, Recipient, CC, Subject, sCompleteFilePath)
    Dim oEmailSender : Set oEmailSender = New EmailSender
 
    With oEmailSender
        .LoadBodyMessage = sCompleteFilePath
        .Send EmailID, Password, Recipient, CC, Subject, ""
    End with 
End Sub

You can use this code as a .VBS file, but, please remember to remove/comment the Reporter.ReportEvent statement on Line 113.

Tagged as: CDO, Email, Email QTP, QTP AOL, QTP Check Email, QTP Email, QTP GMail, QTP Hotmail, QTP Live, QTP Yahoo, Send Email, VBScript

Leave a Comment

{ 34 comments… read them below or add one }

David B January 4, 2011 at 6:21 pm

Thanks for writing this. Seems to work nicely.

CDO: Send Email from Yahoo, Hotmail, Live, AOL or GMail

Calling the Method with the Body Message

Retrieve body-messages from text files

Code: Class SendMail

Code: Function SendMail

Code: Function SendMailFromFile

Tags

Recent Comments

Subscribe

CONNECT