Un simple code complet pour envoyer des message depuis votre application avec le protocole SMTP en utilisant les serveurs GMAIL ou HOTMAIL ou YAHOO...
Source / Exemple :
Imports System.Net.Mail
Public Class Form1
Sub EnvoiMail(ByVal De As String, ByVal Pass As String, ByVal Sujet As String, ByVal A As String, ByVal Message As String, ByVal attach As String)
Dim TheServer As String = "" 'pour modifier le serveur selon les besoins
If De.Contains("gmail") Then
TheServer = "smtp.gmail.com"
ElseIf De.Contains("hotmail") Then
TheServer = "smtp.live.com"
ElseIf De.Contains("yahoo") Then
TheServer = "smtp.mail.yahoo.com"
'
'vous pouvez ajouter d'autre...
'
End If
Dim Smtp As New SmtpClient(TheServer, 587) 'Simple Mail Transfer Protocol
Dim EmailMessage As New MailMessage
Try
With EmailMessage
.From = New MailAddress(De)
.To.Add(A)
.Subject = Sujet
.Body = Message
If attach <> "" Then
.Attachments.Add(New Attachment(attach))
End If
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Try
With Smtp
.UseDefaultCredentials = False
.DeliveryMethod = SmtpDeliveryMethod.Network
.Timeout = 1
If TheServer = "smtp.mail.yahoo.com" Then
.EnableSsl = False
Else
.EnableSsl = True
End If
.Credentials = New Net.NetworkCredential(De, Pass) 'De:Votre Email , Pass: password de l'Email
.Send(EmailMessage)
MsgBox("Message envoyé!", MsgBoxStyle.Information)
End With
Catch ex As Exception
MsgBox("Echec d'envoi du message!", MsgBoxStyle.Critical)
End Try
End Sub
End Class
Conclusion :
Mercie
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.