comment intégrer plusieurs pieces jointes dans mail par macro? Fermé

Question

Bonjour,

j'utilise une macro pour envoyer des mails sous outlook.

actuellement je peux que envoyer un classeur comme ci dessous

Nom_Fichier = Application.GetOpenFilename("Classeurs Excel , *.xls") 

et

.Attachments.Add Nom_Fichier 

Comment integrer d'autres classeurs dans le meme mail??

f894009 · Answer

Bonjour,

normalement, il faut autant de lignes

.Attachments.Add Nom_Fichier

que de pièce-jointe

Bonne suite

diabolo162 · Answer

bonjour et merci de ta réponse, 

En tortillant dans tous les sens j'ai fini par trouver une solution fonctionnelle:

Nom_Fichier1 = Application.GetOpenFilename("Classeurs Excel , *.xls")
Nom_Fichier2 = Application.GetOpenFilename("Classeurs Excel , *.xls")


et

.Attachments.Add Nom_Fichier1
.Attachments.Add Nom_Fichier2

diabolo162 · Answer

En revanche j'ai un autre soucis que je n'arrive pas à résoudre

Je souhaite importer dans mon mail les destinataires de ma feuille situé en "O10:O20"

Le début de ma macro est comme ceci :

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
   
      With oBjMail
        .To = "xxxxxxxx@xxxxx.xx" ' le destinataire


J'ai essayé ca mais ca fonctionne pas :

For Each Lescellules In Range("o10:o12")

et

.Dest = Lescellules.Value

f894009 · Answer

Bonjour,

suivez ce lien, vous aurez la reponse:

https://codes-sources.commentcamarche.net/

Bonne suite

Comment intégrer plusieurs pieces jointes dans mail par macro?

4 réponses

Discussions similaires