ETRE AVERTI DES ERREURS PAR MAIL

' en haut de la page global.vb

Imports System.Web.Mail


'--------------------------------------------------------------------------------------------------------

Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
       

Dim ErrMsg As New MailMessage()

        With ErrMsg

            .From = "eb@ymages.com"
            .To = "eb@ymages.com"
            .Subject = "Erreur Application Site : Ymages"
            .BodyFormat = MailFormat.Html
            .Priority = MailPriority.Normal
            .Body = Environment.NewLine + "<br/>Erreur : " + Server.GetLastError().InnerException.Message + "<br/>" + Environment.NewLine + "<br/>Page : " + Request.ServerVariables("SCRIPT_NAME") + "<br/>" + Environment.StackTrace

        End With

        SmtpMail.Send(ErrMsg)

    End Sub

'--------------------------------------------------------------------------------------------------------  


on peut aussi se servir de cette fonction dans un bloc try /end try

try

' du code ici

catch ex as Exception

FonctionQuiEnvoiUnMail(ex.Message)

end try