Send mail

Fermé

aurelie76 Messages postés 88 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 13 mai 2017 - 8 avril 2017 à 13:50
aurelie76 Messages postés 88 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 13 mai 2017 - 9 avril 2017 à 18:33

Bonjour,
bonjour

Avant d'intégrer l'option d'envoi d'email via VB dans mon projet professionnel, j'essaie en vain de le faire par mes adresses personnels.

J'ai ajouté la référence system.net (?)

mis 2 boutons sur un form pour faire le choix entre hotmail et gmail, mais ca ne fonctionne pas ? (j'ai parcouru le forum mais après plusieurs "mise au point" ....si il ya une ou plusieurs âmes pour m'aider, merci, aurelie.

ci dessous le code :

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New NetworkCredential("prenom.nom@hotmail.fr", "password")
            SmtpServer.Port = 465 ' aussi essayé aussi : 25,587,2525
            SmtpServer.Host = "smtp.live.com"
            mail = New MailMessage()
            mail.From = New MailAddress("prenom.nom@hotmail.fr")
            mail.To.Add("prenom.nom@gmail.com")
            mail.Subject = "Test Mail"
            mail.Body = "This is for testing SMTP mail"
            SmtpServer.Send(mail)
            MsgBox("mail send")
        Catch ex As Exception
            MsgBox("mail no send")
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New NetworkCredential("prenom.nom@gmail.com", "password")
            SmtpServer.Port = 2525  ' aussi essayé aussi : 25,587,2525
            SmtpServer.Host = "smtp.gmail.com"
            mail = New MailMessage()
            mail.From = New MailAddress("prenom.nom@gmail.com")
            mail.To.Add("nom.prenom@hotmail.fr")
            mail.Subject = "Test Mail"
            mail.Body = "This is for testing SMTP mail"
            SmtpServer.Send(mail)
            MsgBox("mail send")
        Catch ex As Exception
            MsgBox("mail no send")
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

A voir également:

Send mail
Yahoo mail - Guide
Publipostage mail - Guide
Cci mail - Guide
Windows live mail - Télécharger - Mail
Creer adresse mail outlook - Guide

2 réponses

Réponse 1 / 2

thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
Modifié le 9 avril 2017 à 09:59

Bonjour,

J'ai développé un code pour VBA qui fonctionne parfaitement avec un compte Gmail et donc avec le serveur smtp.gmail.com .

Dans votre cas pour VB, 2 éléments doivent attirer votre attention:
le nom du serveur "smtp.live.com" au lieu de "smtp.gmail.com"
et surtout pas d'activation du mode SSL.
Il doit être possible aussi en VB d'utiliser le module CDO.


Sub EnvoiMail()
    'Add the Project Reference Microsoft CDO WINDOWS FOR 2000
    Dim cdo_msg As New CDO.Message

    'configuration message
    cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
    cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
    cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
    cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
    cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
    cdo_msg.Configuration.Fields(cdoSendUserName) = "xxxxxxxxxx@gmail.com"
    cdo_msg.Configuration.Fields(cdoSendPassword) = "ppppppppp"
    cdo_msg.Configuration.Fields.Update

    'remplissage et envoi message
    cdo_msg.To = "adresse1"
    cdo_msg.From = "adresse2"
    cdo_msg.Subject = "filename Sent to www.???.com "
    cdo_msg.TextBody = "File FTP LOG ATTACHED."
    cdo_msg.AddAttachment ("C:\Users\nnnnnn\Documents\classeur1.xls")
    cdo_msg.Send

    'libération objet message
    Set cdo_msg = Nothing
End Sub

Réponse 2 / 2

aurelie76 Messages postés 88 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 13 mai 2017 3
9 avril 2017 à 18:33

Merci pour ton post, en l'adaptant ca fonctionne parfaitement bien, reste à customiser pour l'adapter au job.

si ca peut aider :

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("titi.titi@xxxxxx.com", "password")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.office365.com"

            e_mail = New MailMessage()
            e_mail.From = New MailAddress("titi.titi@xxxxxx.com")
            e_mail.To.Add("tata.tata@hotmail.fr, to.to@wanadoo.fr, nicolas.de_sousa@selhagroup.com")
            e_mail.Subject = "Email try Sending"
            e_mail.IsBodyHtml = False
            e_mail.Body = "ca marche : "
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent")

        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try

    End Sub

Send mail

2 réponses

Discussions similaires

Newsletters