XL 2016 Envoie de mail en CDO

[Don pépé]

Bien le bonsoir ou bonjour

je viens vers vous car j'ai un probleme avec l'envoie de mail en cdo ( excel2016)

J'ai une erreur qui s'affiche '80040213' je comprend pas pourquoi

le module de mon envoie de mail :

Sub EnvoiMailCDO()
Dim mMessage As Object
Dim mConfig As Object
Dim mChps
'Dim FichierMail

    Set mConfig = CreateObject("CDO.Configuration")

    mConfig.Load -1
    Set mChps = mConfig.Fields
    With mChps
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail" 'Sheets("Configuration").[N4] 'Mail
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mdp" 'Sheets("Configuration").[N5] 'Mot de passe
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur.com" 'Sheets("Configuration").[N2] 'Adresse serveur
       
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Sheets("Configuration").[N3] 'port
       
        .Update
    End With
   
    'FichierMail = "" 'EMailForm.TextBox5.Value

    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .From = "" 'Sheets("Configuration").[N4]
        .to = "" 'EMailForm.TextBox2.Value
        .Subject = "" & Now 'EMailForm.TextBox3.Value
        .TextBody = "" 'EMailForm.TextBox5.Value
        '.AddAttachment FichierMail
        .Send

    End With
    Set mMessage = Nothing
    Set mConfig = Nothing
    Set mChps = Nothing
End Sub

Merci 😉

 

[bidochon34800]

bonsoir,
apparemment il ne trouve pas les paramètress d'envoi.
enlèves l'apostrophe du nom de l"expéditeur et mets le à la place de "mail", idem pour le mot de passe et le serveur sortant
chez moi il fonctionne comme ça

 

[JCGL]

Bonjour à tous,

Tu as bien sur renseigné ces paramètres :

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jcgl@xld.com" ' à adapter
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "davidxld" ' à adapter
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" ' à adapter
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' à adapter
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

' à adapter
A+ à tous

 

[Don pépé]

alors por les ports j'ai essayer 465 et 25 et aucun des deux fonctionne et pour le reste oui adresse mail, mot de passe et j'ai toujours cet erreur

Edit: peu etre a cause de mon fournisseur internet ??

 

[JCGL]

Bonjour à tous,

Tu dois paramétrer ton compte Google pour l'autoriser à utiliser des applications moins sécurisées.

A+ à tous

 

[Don pépé]

oui j'ai tous bien configurer JCGL

et Bidochon sans les "" sa me marque une erreur

alors j'ai essayer en rentrant les info dans une cellule et j'ai toujours la meme erreur

Ok JCGL je vais aller voir sa

 

[Don pépé]

Bon sa a l'aire de fonctionner sauf que j'ai un autre message d'erreur qui n'a plus rien avoir avec le premier ( sa avance ) qui est : "Le serveur a rejeter une ou plusieur adresse de destinataire la reponse du serveur etait 530 5.7.0 Must a StartTLS command first. g75sm25705012wme.5 - gsmtp"

alors la je seche

 

[DoubleZero]

Bonjour à toutes et à tous, bises à JCGL 😀,

Une autre solution, peut-être, ici, grâce au travail de Roland_M.

A bientôt 🙂

 

[Don pépé]

bon beh alors j'ai pas de chance j'ai telecharger et tester le classeur de la conversation et j'ai toujour la meme erreur. alors je comprend pas.

je vais devoir passer par outlook sinon mais sa me derange un peu car il faut installer et configurer outlook apres si c'est la seul solution je le ferais

 

[JCGL]

Bonjour à tous,
Salut 00,

As-tu re-paramétrer, même temporairement, ton compte Google ?

Bises ++ à 00
A+ à tous

 

[Don pépé]

salut JCGL oui j'ai bien parametrer google du coup avec la procedure que tu a poster, apres je sais pas si il y a dautre modification a apporter sur le compte google.

ps: je serais pas la pendant quelques jour 😉

 

[Don pépé]

bon j'ai fait tous se que je pouvais mais ca ne fonctionne toujours pas je sais pas quoi faire

 

[JCGL]

Bonjour à tous,

Qu'as-tu maintenant comme message d'erreur ?

A+ à tous

 

[Don pépé]

meric JCGL pour ton aide.

alors j'ai sa comme message d'erreur:
Le serveur a rejeté une ou plusieurs adresse de destinataire. La réponse du serveur etait: 530 5.7.0 Must issue a STARTTLS command first. w16sm3094318wmd.4 gsmtp

 

[Roland_M]

Bonsoir tout le monde

essaies sur ce lien mon classeur envoie mail cdo
tu pourras essayer plusieurs paramètrages

https://www.excel-downloads.com/threads/envoyer-des-mails-avec-vba.187821/#post-1163964