Here is a code sample on how to send an email via Outlook:

You should add a reference to the Microsoft Outlook object library via Options | references in TestPartner.

Public Sub EmailFailure(email_address As String)
    Playback.Logging = False
   
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    'Dim myAttachments As Outlook.Attachment
   
    'Start Outlook. If already running, this will use the same instance...
    Set olApp = CreateObject("Outlook.Application")
   
    'Logon. Doesn 't do anything if you are already logged on...
    Dim olNs As Outlook.NameSpace
    Set olNs = olApp.GetNamespace("MAPI")
    olNs.Logon
   
    'Build and send the Message.
    Set olMail = olApp.CreateItem(olMailItem)
    With olMail
        .To = email_address
        .Subject = "TestPartner Check Failure: CHECK NAME"
        .Body = _
            "Message = " & Error.Message & vbCrLf & _
            "Check = " & Error.Function & vbCrLf & _
            "Status = FAILED" & vbCrLf
    End With

    olMail.Send

    'Clean up after yourself.
    Set olMail = Nothing
    Set olApp = Nothing
    Playback.Logging = True
    TestLog.Comment "Error message successfully e-mailed to: " & email_address

End Sub

Sub Main()

EmailFailure ("my.email@mycompany.com")

End Sub