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