Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTry cnx.Open(strConnect, "Administrateur", "MotDePasse") Catch ex As Exception Try Dim newmail As New MailMessage() Dim smtpserver As New SmtpClient smtpserver.Credentials = New Net.NetworkCredential("Luc", "Dupont") smtpserver.Port = 25 smtpserver.Host = "societe.local" newmail.To.Add("LucD@societe.fr") newmail.From = New MailAddress("support@societe.fr") newmail.Subject = "ERREUR " newmail.Body = "Attention, l'erreur suivante est surevenue durant la mise à jour : Impossible de se connecter à la base de données" smtpserver.Send(newmail) catch ex2 as Exception Messagebox.Show(ex2.Message) End Try
Try cnx.Open(strConnect, "Administrateur", "MotDePasse") Catch ex As Exception Try Dim newmail As New MailMessage() Dim smtpserver As New SmtpClient smtpserver.Credentials = New Net.NetworkCredential("Luc", "Dupont") smtpserver.Port = 25 smtpserver.Host = "societe.local" newmail.To.Add("LucD@societe.fr") newmail.From = New MailAddress("support@societe.fr") newmail.Subject = "ERREUR " newmail.Body = "Attention, l'erreur suivante est surevenue durant la mise à jour : Impossible de se connecter à la base de données" smtpserver.Send(newmail) catch ex2 as Exception Messagebox.Show(ex2.Message) End Try End Try