Microsoft 365 ajouter une pièce jointe à mon mail

FCMLE44 · 18 Septembre 2020

Bonjour

Le code ci-dessous fonctionne trés bien pour envoyer un mail depuis Excel

VB:

Sub LeMail()

Dim LeMail As Variant

Set LeMail = CreateObject("Outlook.Application") 'Création d'un Objet Outlook

With LeMail.CreateItem(olMailItem) 'informe le programme que nous voulons envoyer un mail
    .Subject = "Votre demande de simulation d'indemnité de départ"
    .To = Range("C4")
    .Body = "Votre Indemnité de départ"
    .Display 'pour afficher le mail avant de l'envoyer sinon Send
End With

End Sub

Néanmoins, je souhaiterais qu'il puisse y rajouter des pièces jointes que j'irais chercher dans l'explorateur windows
Ces fichiers pourront être au format pdf et excel

Merci

danbibi · 23 Septembre 2020

elles sont dans la colonne A de mon excel
sous forme standard

FCMLE44 · 23 Septembre 2020

bizarre. Ca devrait fonctionner. De mon coté cela fonctionne parfaitement
As tu un fichier avec les données personnelles supprimées

danbibi · 23 Septembre 2020

desole je n'est pas tres bien compris la question

FCMLE44 · 23 Septembre 2020

As tu un fichier ?

danbibi · 23 Septembre 2020

non, les pdf en question sont sur mon desktop

FCMLE44 · 23 Septembre 2020

ton fichier excel

danbibi · 23 Septembre 2020

sur le desktop aussi

FCMLE44 · 23 Septembre 2020

si pas de fichier, je ne peux pas t'aider.
Désolé

danbibi · 23 Septembre 2020

je devrais mettre le excel et les pdf dans un fichier ?

FCMLE44 · 23 Septembre 2020

ce code te permet d'aler chercher ta pièce jointe donc je suppose tes pdf.
Dans ton fichier Excel, je suppose que tu n'as que tes adresses mails c ca ?

danbibi · 23 Septembre 2020

c'est ca

FCMLE44 · 23 Septembre 2020

Donc envoies moi ton fichier excel que je puisse regarder. Voir si je peux t'aider ou pas

ce code te permet aussi de remplir directement le corps du mail avec les phrases que tu souhaites. A toi d'adapter comme tu le souhaites

VB:

Subject = "Votre demande de calcul d'indemnité de départ "
        .HTMLBody = "<html><body>Bonjour,</body></html><br>" & "<html><body>Veuillez trouver ci-joint la simulation demandée</body></html><br>" & "<html><body>Nous vous en souhaitons bonne réception</body></html><br>" & "<html><body>Cordialement</body></html>" & .HTMLBody 'le corps du mail ..son contenu

FCMLE44 · 23 Septembre 2020

Si tu souhaites aussi y apposer ta signature outlook, tu dois aussi adapter cette partie de code

VB:

SigString = Environ("appdata") & "\Microsoft\Signatures\travail.htm"

danbibi · 23 Septembre 2020

merci beaucoup pour votre patience !

FCMLE44 · 23 Septembre 2020

Voici
Attention dans ton fichier réel à bien modifier ta formule voulue, le corps du texte et ta signature si tu le souhaite

Microsoft 365 ajouter une pièce jointe à mon mail

XLDnaute Impliqué

XLDnaute Junior

XLDnaute Impliqué

XLDnaute Junior

XLDnaute Impliqué

XLDnaute Junior

XLDnaute Impliqué

XLDnaute Junior

XLDnaute Impliqué

XLDnaute Junior

XLDnaute Impliqué

XLDnaute Junior

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Junior

Pièces jointes

XLDnaute Impliqué

Pièces jointes

Discussions similaires

Partager cette page

Statistiques des forums