Enviando e-mail quando ocorrer uma exception não tratada na sua aplicação WEB
ASP.NET
17/11/2008 por
Jar Jar Binks
Vá no Global.asax e digite o seguinte ( OU COPIE )
Private Sub Global_Error(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Error
Try
Dim err As String = ""
Dim ex As Exception
ex = Server.GetLastError
While Not ex Is Nothing
err &= "<br>---------------------------<br>"
err &= ex.ToString.Replace(vbCrLf, "<br>")
ex = ex.InnerException
End While
Dim objMailMessage As New System.Net.Mail.MailMessage
With objMailMessage
.To.Add(My.Settings.erroEmailTO)
.From = New Net.Mail.MailAddress(my.Settings.erroEmailFROM)
.Subject = "Erro no MEU PROGRAMA - " & My.Settings.empresa & " - " & Server.MachineName
.Body = err
.IsBodyHtml = True
End With
Dim smtp As New Net.Mail.SmtpClient(Server.MachineName)
smtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.PickupDirectoryFromIis
smtp.Send(objMailMessage)
objMailMessage.Dispose()
Catch ex As Exception
End Try
End Sub
Comentários sobre o artigo
17/11/2008
por
Clayton
Não se esqueça de criar as respectivas Settings.
Poste um comentário >>
|