Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

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