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")
    '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


    '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 ("")

End Sub