Mailto
Résolu
cs_Psyghoria
Messages postés
23
Date d'inscription
dimanche 26 octobre 2008
Statut
Membre
Dernière intervention
9 mai 2010
-
8 janv. 2009 à 15:09
cs_Psyghoria Messages postés 23 Date d'inscription dimanche 26 octobre 2008 Statut Membre Dernière intervention 9 mai 2010 - 8 janv. 2009 à 17:24
cs_Psyghoria Messages postés 23 Date d'inscription dimanche 26 octobre 2008 Statut Membre Dernière intervention 9 mai 2010 - 8 janv. 2009 à 17:24
8 réponses
cs_fauve
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
8 janv. 2009 à 17:19
8 janv. 2009 à 17:19
Salut,
Voici un code que j'ai bien commenté. Il te montrera comment envoyer un mail. L'avantage, c'est que tu peux envoyer un message au format HTML avec diverses options comme la priorité de l'email, recevoir un message si la remise de l'email a réussie ou échouée, ... etc
Dim
objMessage As System.Net.Mail.MailMessage
Dim objAdrExp As System.Net.Mail.MailAddress
Dim objAdrRec As System.Net.Mail.MailAddress
Dim objSMTPClient As System.Net.Mail.SmtpClient
Try
objMessage = New System.Net.Mail.MailMessage()
objAdrExp = New System.Net.Mail.MailAddress( "xxx@orange.fr" )
objAdrRec = New System.Net.Mail.MailAddress("xxx@gmail.com")
' ADRESSE MAIL DE L EXPEDITEUR
objMessage.From = objAdrExp
' ADRESSE MAIL DU DESTINATAIRE
objMessage.To.Add(objAdrRec)
' Sujet du message
objMessage.Subject = "Ceci est un test"
' Définit la priorité du message
objMessage.Priority = Net.Mail.MailPriority.High
' Définit la notification lors de la remise d'un message
objMessage.DeliveryNotificationOptions = Net.Mail.DeliveryNotificationOptions.OnFailure
' Autorise ou non le html dans le corps du message
objMessage.IsBodyHtml = True
' Définit le message dans le corps
'
permet d'aller à ligne en HTML
objMessage.Body = "Test
Test
Test"
' Client pour envoyer le mail par smtp
objSMTPClient = New System.Net.Mail.SmtpClient()
' Nom du Host, normalement smtp.FAI.fr
objSMTPClient.Host = "smtp.free.fr"
' Port à utiliser
objSMTPClient.Port = 25
' Envoi du mail
objSMTPClient.Send(objMessage)
MsgBox("L'email a été envoyé avec succès")
' En cas d'erreur
Catch ex As Exception
' Affiche la raison de l'échec de l'envoi du mail
MsgBox("Exception : " & ex.Message)
End Try
++
Fauve
<hr size ="2" width="100%" />
Pensez : Réponse Acceptée
Voici un code que j'ai bien commenté. Il te montrera comment envoyer un mail. L'avantage, c'est que tu peux envoyer un message au format HTML avec diverses options comme la priorité de l'email, recevoir un message si la remise de l'email a réussie ou échouée, ... etc
Dim
objMessage As System.Net.Mail.MailMessage
Dim objAdrExp As System.Net.Mail.MailAddress
Dim objAdrRec As System.Net.Mail.MailAddress
Dim objSMTPClient As System.Net.Mail.SmtpClient
Try
objMessage = New System.Net.Mail.MailMessage()
objAdrExp = New System.Net.Mail.MailAddress( "xxx@orange.fr" )
objAdrRec = New System.Net.Mail.MailAddress("xxx@gmail.com")
' ADRESSE MAIL DE L EXPEDITEUR
objMessage.From = objAdrExp
' ADRESSE MAIL DU DESTINATAIRE
objMessage.To.Add(objAdrRec)
' Sujet du message
objMessage.Subject = "Ceci est un test"
' Définit la priorité du message
objMessage.Priority = Net.Mail.MailPriority.High
' Définit la notification lors de la remise d'un message
objMessage.DeliveryNotificationOptions = Net.Mail.DeliveryNotificationOptions.OnFailure
' Autorise ou non le html dans le corps du message
objMessage.IsBodyHtml = True
' Définit le message dans le corps
'
permet d'aller à ligne en HTML
objMessage.Body = "Test
Test
Test"
' Client pour envoyer le mail par smtp
objSMTPClient = New System.Net.Mail.SmtpClient()
' Nom du Host, normalement smtp.FAI.fr
objSMTPClient.Host = "smtp.free.fr"
' Port à utiliser
objSMTPClient.Port = 25
' Envoi du mail
objSMTPClient.Send(objMessage)
MsgBox("L'email a été envoyé avec succès")
' En cas d'erreur
Catch ex As Exception
' Affiche la raison de l'échec de l'envoi du mail
MsgBox("Exception : " & ex.Message)
End Try
++
Fauve
<hr size ="2" width="100%" />
Pensez : Réponse Acceptée
