Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 ajouter une pièce jointe à mon mail

FCMLE44

XLDnaute Impliqué
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
 
Solution
Bonjour,

FCMLE44

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
7
Affichages
555
Réponses
2
Affichages
619
Réponses
4
Affichages
630
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…