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
@+