1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
' creation du message JMail
Dim message As New Message()
Dim objet As String
objet = "test mail"
' Adresse mail de l'expéditeur (formulaire de contact)
message.From.Email = "****@***.fr"
' Adresse du destinataire (Vous)
message.To.Add("***@****.fr")
' Sujet du mail, encodage, Texte ou HTML et priorité
message.Subject = "objet"
message.Charset = System.Text.Encoding.GetEncoding("iso-8859-1")
message.BodyText = "message"
message.BodyHtml = objet.ToString
message.Priority = Priority.Low
' Envoi du message
Try
Smtp.Send(message, "mail.ikoula.fr", 25,GetDomain(message.From.Email))
HttpContext.Current.Response.Redirect(Page.Request.Url.ToString())
Catch ex As Exception
End Try
End Sub
' Renvoi le domaine de l'adresse mail
Private Function GetDomain(ByVal email As String) As String
Dim index = email.IndexOf("@")
Return email.Substring(index + 1)
End Function |
Partager