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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 503 fois - Téléchargée 19 fois

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

Ajouter un commentaire Commentaires
Mayzz
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
33
5 juin 2012 à 23:23
Salut,

Malheureusement non, car ce n'est pas une question de langage mais de librairie. VB6 ne fonctionne pas avec le Framework et donc ne possède pas nativement les fonctionnalités permettant d'envoyer un email. Pour envoyer un e-mail en VB6 il faut soit utiliser Winsock ou inet et saisir manuellement le code qui permettra le dialogue avec le serveur soit utiliser un activex conçu pour envoyer les e-mails.
cs_blinkme
Messages postés
4
Date d'inscription
mardi 5 juin 2012
Statut
Membre
Dernière intervention
14 juin 2012

5 juin 2012 à 16:44
Bonjour !

Ce code est très bien mais serait-il possible d'avoir une version VB6 de ce code ?

Merci d'avance !
t4gad4
Messages postés
58
Date d'inscription
dimanche 19 septembre 2010
Statut
Membre
Dernière intervention
26 juillet 2013
1
28 avril 2012 à 01:01
merci pour cet excellent code!!! =)
cs_Appil
Messages postés
208
Date d'inscription
mercredi 10 avril 2002
Statut
Membre
Dernière intervention
11 juin 2014

23 janv. 2011 à 19:36
Et dire que ça fait 4 jour que je n'avance plus à cause d'un fichier de 0 ko :D
cs_Appil
Messages postés
208
Date d'inscription
mercredi 10 avril 2002
Statut
Membre
Dernière intervention
11 juin 2014

23 janv. 2011 à 19:33
Mais comment j'ai pas pensé à faire le test !!!

Effectivement Produits.zip ne passait pas depuis gmail, il croit qu'il contient un exe alors que non :)

J'ai fais un test sans compresser les fichiers et ça a marché !

Merci pour le temps que tu m'as consacré Mayzz ^^
Afficher les 31 commentaires

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.