| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} {\colortbl ;\red0\green0\blue255;\red255\green0\blue255;} \viewkind4\uc1\pard\f0\fs17 Send Notification via Outlook E-mail when an Error Occurs in Your Application \par \par This Routine sends the specified recipient an e-mail via Outlook when an error occurs in a procedure. Outlook must be installed on the machine for the procedure to work \par \par \cf1 Public Sub ErrorNotify(err As ErrObject, Recipient As String, _ \par \tab Optional ProcedureName As String) \par \cf0 \par Dim sSubject As String \par Dim sMsg As String \par Dim sErrMsg As String \par \par sSubject = App.Title & " Error Message " \par \par \par sErrMsg = "An error occurred in " & App.Title & vbCrLf \par If ProcedureName <> "" Then sErrMsg = sErrMsg & "Procdure: " & ProcedureName & vbCrLf \par \par sErrMsg = sErrMsg & "Error Number " & CStr(err.Number) & _ \par \tab " was generated by " & err.Source & Chr$(13) & err.Description \par \par SendOutlookMail sSubject, Recipient, sErrMsg \par \par \cf1 End Sub\cf0 \par \par \cf1 Public Sub SendOutlookMail(Subject As String, Recipient As _ \par \tab String, Message As String) \par \cf0 \par On Error GoTo errorHandler \par Dim oLapp As Object \par Dim oItem As Object \par \par Set oLapp = CreateObject("Outlook.application") \par Set oItem = oLapp.createitem(0) \par ' \par With oItem \par .Subject = Subject \par .To = Recipient \par .body = Message \par .Send \par End With \par ' \par Set oLapp = Nothing \par Set oItem = Nothing \par ' \par \par Exit Sub \par \par errorHandler: \par Set oLapp = Nothing \par Set oItem = Nothing \par Exit Sub \par \cf1 End Sub\cf0 \par \par \cf2 Here is an example of how to use the procedure:\cf0 \par \par Private Sub Form_Load() \par \par On Error GoTo errHandler \par Dim i As Integer \par i = 1 / 0 \par Exit Sub \par \par errHandler: \par If err.Number > 0 Then \par ErrorNotify err, "me@mydomain.com", "Form.Load" \par End If \par \par End Sub \par \par \par } |
Send Notification via Outlook E-mail when an Error |
India web developer web development India | India web development company India ecommerce web developer