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
|
'objet mail
Dim email As New MailMessage
'addresse de l'envoyeur
email.From = "tintin@domaine.com"
'addresse de reception
email.To = "milou@domaine.com"
'sujet du message
email.Subject = "salut"
'corps du message
email.Body = "ou es tu milou?"
'addresse du server smtp
SmtpMail.SmtpServer = "xxx.xxx.xxx.xxx"
'type d 'autentification (ds ce cas autentification de base)
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
'login de messagerie ( par exemple ds ce cas, monlogin pourrait etre "Tintin")
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", monlogin)
'pass de messagerie
email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", monpassword)
'gestion d'erreur
Try
SmtpMail.Send(email)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try |
Partager