joindre un fichier dans un email en vba

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
papa15
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 20 octobre 2017
Version d'Excel : Excel 2016

Message par papa15 » 20 octobre 2017, 13:44

Bonjour,

Je suis nouveau membre sur le forum mais je l'utilise déjà depuis des années, et ça m'a souvent dépanné pour mes petites macro VBA.
Mais là malgré toutes mes recherches je n'arrive pas à solutionner mon petit problème.

Mon but est de joindre un fichier pdf à un modèle email que j'ouvre via VBA en utilisant :

ActiveWorkbook.FollowHyperlink Address:="P:\...oft"

J'aimerais y joindre automatiquement un pdf
J'ai essayé sans succès : Attachments.Add "P:\...pdf

Merci de votre précieuse aide
Cordialement
papa15
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'653
Appréciations reçues : 107
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 20 octobre 2017, 13:49

Bonjour Papa15 et bienvenu
ceci va sûrement t'intéressé
par Ednoork

excel/derniere-etape-joindre-fichier-pd ... 64492.html
crdlt,
André
p
papa15
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 20 octobre 2017
Version d'Excel : Excel 2016

Message par papa15 » 20 octobre 2017, 14:53

Bonjour André,
merci pour le lien ... j'avance : j'arrive à ouvrir un nouvel email avec la pièce jointe
mais je n'arrive pas à l'inclure dans un modèle email déjà existant...

voici mon code :

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.Attachments.Add ("....pdf")
.Display
End With


Je ne trouve pas ou inclure une instruction du style

ActiveWorkbook.FollowHyperlink Address:="P:\...oft"


Cordialement
papa15
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'476
Appréciations reçues : 208
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 20 octobre 2017, 16:45

Bonjour,

Essayer cette instruction
Set OutMail = OutApp.CreateItemFromTemplate("P:\...oft")
p
papa15
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 20 octobre 2017
Version d'Excel : Excel 2016

Message par papa15 » 20 octobre 2017, 16:58

Bonjour thev,

Bravo, ça fonctionne a merveille :D

Je te remercie beaucoup

Cordialement
papa15

:btres:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message