Comment intégrer plusieurs pieces jointes dans mail par macro?
diabolo162
Messages postés
1039
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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??
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??
A voir également:
- Macro envoi mail outlook avec pièce jointe
- Pièce d'identité - Accueil - Services publics
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Programmer envoi mail gmail - Guide
- Supprimer adresse mail outlook - Guide
- Windows live mail - Télécharger - Mail
4 réponses
Bonjour,
normalement, il faut autant de lignes
.Attachments.Add Nom_Fichier
que de pièce-jointe
Bonne suite
normalement, il faut autant de lignes
.Attachments.Add Nom_Fichier
que de pièce-jointe
Bonne suite
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
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
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
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
Bonjour,
suivez ce lien, vous aurez la reponse:
https://codes-sources.commentcamarche.net/
Bonne suite
suivez ce lien, vous aurez la reponse:
https://codes-sources.commentcamarche.net/
Bonne suite
