The Mail your Error Routine : Error « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. Error

The Mail your Error Routine

 
Sub MailError(strUserInfo As String, _
    strErrorInfo As String)

    Dim objCurrentMessage As Outlook.MailItem
    Dim objNamespace As Outlook.NameSpace
    Dim objMessage As Outlook.MAPIFolder

    Set objNamespace = GetOutlook()

    Set objMessage = objNamespace.GetDefaultFolder(olFolderOutbox)

    With objMessage.Items.Add(olMailItem)
        .To = "guru@somecompany.com"
        .Subject = strUserInfo
        .Body = strErrorInfo
        .Save
    End With
End Sub

 

Related examples in the same category