Microsoft 365 Envoyer plusieurs mails avec des destinataires et des pièces jointes différentes avec Outlook

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #2

Bonjour IVAN27,

Voici en retour ton fichier.
Dans le code Mod_Mail, pour le moment l'option .Send (envoi automatique) est déselectionné, et c'est donc le .Display (Aperçu avant envoi) qui est actif.
Faire des essais et une fois que tout fonctionne, inverser les coches '
Attention, pour que cela fonctionne il faut mettre la référence Reference VBA = Microsoft Outlook 16.0 Object Library si celle ci n'est pas activée

Cordialement
@+ Lolote83

 

Pièces jointes

• Copie de IVAN27 - TestMail.xlsm

  22.8 KB · Affichages: 33

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 7 Septembre 2020

• #3

Bonjour le forum, Lolote83,

Merci pour ta proposition.
Le code plante sur la ligne

Code:

For Each xClasseur In Range("Tableau1[Classeur]")

La méthode 'Range' de l'objet'_Global' a échoué.

Bien cordialement,

Ivan

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #4

Re bonjour,
Oups, le nouveau code fait n'a pas été enregistré.
Il faut donc tout que je refasse.
Donc plus tard.
@+ Lolote83

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #5

Re bonjour,
Voici donc le fichier modifié
@+ Lolote83

 

Pièces jointes

• Copie de IVAN27 - TestMail.xlsm

  23.3 KB · Affichages: 37

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 7 Septembre 2020

• #6

Re bonjour le forum, Lolotte83,
On est presque bon!
Il est vrai que je ne l'ai pas précisé mais il n'y a pas forcément un fichier à transmettre pour chaque ligne du tableau.
En l'absence de fichier, le code plante sur la ligne .Attachments.......
Ivan

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #7

Que faire alors, on envoi un mail sans fichier ou on passe au suivant ?
@+ Lolote83

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 7 Septembre 2020

• #8

On passe au suivant...
Merci

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #9

Je vois ça et revient vers toi
Essaye alors ce fichier joint.
@+ Lolote83

 

Pièces jointes

• Copie de IVAN27 - TestMail_V2.xlsm

  23.4 KB · Affichages: 20

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #10

Re salut IVAN27,
Le fichier joint annule et remplace celui du post#9.
Un petit couac !!!!
L’erreur est maintenant corrigée
@+ Lolote83

 

Pièces jointes

• Copie de IVAN27 - TestMail_V2.xlsm

  24.1 KB · Affichages: 28

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 7 Septembre 2020

• #11

Re bonjour Lolotte83

Ca plante au même endroit
.Attachments.Add xChemin & "\" & xFichier
Ivan

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #12

Re bonjour,
As tu pris la dernière version (post#10) car si la case du fichier est vide on ne fait pas le traitement
Je viens de faire un essai


Par contre, si le fichier à joindre n'existe pas, cela plantera car la cellule du fichier n'est pas vide.

@+ Lolote83

 

Dernière édition: 7 Septembre 2020

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 7 Septembre 2020

• #13

Re bonjour Lolote83,
En fait il faut raisonner différemment.
Les cellules de la colonne A ne sont jamais vides puisque il s'agit d'un annuaire.
Il faudrait parcourir toute la colonne A et pour chaque nom, rechercher dans le répertoire c:\Temp\STT s'il existe un fichier correspondant.
Si oui, on transmet le fichier par mail.
Si non, on passe à la cellule suivante.
C'est possible de faire comme ça ?
Ivan

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #14

Re bonjour,
La version V3 jointe fait cela.
A tester
@+ Lolote83

 

Pièces jointes

• Copie de IVAN27 - TestMail_V3.xlsm

  24.7 KB · Affichages: 93

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 7 Septembre 2020

• #15

Re bonjour,
C'est parfait avec le fichier test.
Je regarde en production et je te tiens au courant en cas de problème.
Merci beaucoup pour ton aide et la rapidité avec laquelle tu as procédé aux corrections demandées.
A bientôt
Ivan

 

Vote positif 0 Vote négatif