Envoyer un mail avec smtp depuis gmail,hotmail,yahoo...

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (jaljalil2010)