VBA Excel - envoi mail par GMAIL

Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -  
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je tente d'utiliser le code ci dessous, la fonction d'envoi d'email est assurée mais le résultat est un double envoi du même email et donc mon interlocuteur reçoit 2 fois le même email.
Malgre mes efforts je n'arrive pas a regler ce souci. Auriez vous une idée ?

Merci d'avance pour votre aide.
Cordialement 

Sub EnvoiMail_CDO()

Dim iMsg As Object, iConf As Object, Flds As Object
 Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")

Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
    'http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    
    'Mais si votre serveur demande une authentification,
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
    '.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Identifiant & "@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Identifiant & "@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Mdp
    'Si votre serveur demande une connexion sûre (SSL)
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
    .Update
End With

With iMsg
    Set .Configuration = iConf
    .To = AdresseMailPersonne1
    .Cc = "" 
    .From = Identifiant & "@gmail.com"
    .Subject = "Plan : " & TypeSuivi & " - " & Prenom & " " & Nom
    .HTMLBody = "<BODY><FONT face=arial color=#000000 size=2>" & _
            "Bonjour " & Prenom & ",<br><br>Un " & TypeSuivi & " a été envoyé le " & DateEnvoi & " à <B>" & Prenom & " " & Nom & "</B>.<br><br>" & _
            "Je vous remercie de m'adresser, par retour d'email au plus tard le <B><u>" & DatePA & "</B></u>, ce document." & vbCrLf & vbCrLf & _
            "Dans l'attente,<br>" & _
            "Cordialement,<br></FONT></BODY>"
    'If form_email.piece_jointe <> "" Then .AddAttachment form_email.piece_jointe
    .Send
End With

End Sub


A voir également:

1 réponse

Réponse 1 / 1
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   20
 
Quelqu'un aurait une idée ? :)
0

Discussions similaires

Rétrodiffusion "Mail Delivery System"
baissaoui -
baissaoui -

0 réponse