Erreur d'envoi mail VBA

Bonjour,

Je me trouve confrontée à une erreur qui me parait très étrange.

Je dois envoyer à chaque client via un fichier excel sa facture.

Tout fonctionne lorsque je teste avec ma propre adresse mail (gmail)

J'ai testé avec ceux de mes collègues cela fonctionne aussi mais dès que je choisis le fichier de nos clients, cela ne fonctionne plus...

Quelqu'un a t il une idée du problème car je ne comprends vraiment pas ce qu'il peut se passer.

Merci d'avance

Option Explicit

Sub EnvoiMail()
    Dim ListeDest()
    Dim ListeFichier()
    Dim i As Long
    Dim oMsgApp As Object
    Dim oMsg As Object
    Dim sListeDest As String
    Dim sFichier As String

    Set oMsgApp = CreateObject("Outlook.Application")

    ListeDest() = Range("Tableau2[ADRESSES _MAIL]")
    ListeFichier() = Range("Tableau2[FICHIER]")

    For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
    Set oMsg = oMsgApp.CreateItem(0)
        With oMsg
            .To = ListeDest(i, 1)
            .Attachments.Add ListeFichier(i, 1)
            .Subject = "Facture Marché saisonnier 2021"
            .Body = "Bonjour," & Chr(10) & Chr(13) & "Veuillez trouver ci-joint la facture du marché pour la saison 2021." & Chr(10) & Chr(13) & "Cordialement," & Chr(10) & Chr(13) & "Mairie de Doussard - 0450443045"
            .Send
        End With
        Set oMsg = Nothing
    Next

    oMsgApp.Quit
    Set oMsgApp = Nothing
    MsgBox "Mail envoyé !"

End Sub

Bonjour Ju_74210

Pour moi il y a une erreur dans le code,, ça ne peut pas être

"Tableau2[ADRESSES _MAIL]"

Avec un espace entre "ADRESSES" et "_MAIL"

Essayez

"Tableau2[ADRESSES_MAIL]"

@+

Merci du coup de main... En effet ma colonne était mal intitulée. En revanche cel ne règle pas mon problème...

Ce que je ne comprends pas c'est que la macro fonctionne avec certaines adresses mail et pas avec d'autres... J'ai essayé plein de chose 5 adresses mails différentes en test... Des que je mets l'une des adresse client ça ne fonctionne plus.

Plusieurs questions :

Ya til une limite de nombre de mails?

Ma feuille de calcul est elle mal paramétrée ?

Faut il parametrer les cellule mail d'une manière particulière ?

Est ce le chemin d'accès à la pièce jointe qui pose pbl ?

Si ça ne marchait jamais je saurai ou chercher mais là je sèche...

Help !

Si ça peut aider ça plante au niveau du send erreur 5 argument ou appel de procédure...

Re,

Merci de nous joindre votre fichier sans données personnelles pour voir la structure et essayer de comprendre

@+

Rechercher des sujets similaires à "erreur envoi mail vba"