Envoyer un mail
Contenu du snippet
Public Class Mail
Private _Mail As New System.Net.Mail.MailMessage
Public Sub New(ByVal FromName As String, ByVal FromMail As String, ByVal ToName As String, ByVal ToMail As String, ByVal Subject As String, ByVal Body As String, Optional ByVal isHTML As Boolean = False)
_Mail.Subject = Subject
_Mail.Body = Body
_Mail.From = New System.Net.Mail.MailAddress(FromMail, FromName)
_Mail.To.Add(New System.Net.Mail.MailAddress(ToMail, ToName))
_Mail.IsBodyHtml = isHTML
_Mail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
_Mail.SubjectEncoding = System.Text.Encoding.GetEncoding("iso-8859-1")
End Sub
Public Function Send() As Boolean
Try
Dim smtp As New System.Net.Mail.SmtpClient("localhost") ' Mettez ici le server SMTP
smtp.Send(_Mail)
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class
' Exemple d'utilisation
' On prépare le mail à envoyer
Dim MonMail As New Mail("MonMail", "MonMail@domain.com", "UnCopain", "MailDuCopain@domain.com", "Le sujet de mon mail", "Le corp du message qui peut être en HTML si on set ""isHTML"" à True", False)
' On envoi le mail
MonMail.Send() ' Si le mail est parti, renvoi True sinon, False
Compatibilité : ASP.NET 2.x, VB 2005
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.