Envoi mail outlook via VBA [Fermé]

Signaler
Messages postés
23
Date d'inscription
jeudi 8 mars 2018
Statut
Membre
Dernière intervention
4 février 2020
-
cs_Le Pivert
Messages postés
6536
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 février 2020
-
Hello,

je suis a deux doigts d'arriver à faire ce que je souhaite faire.... Lorsque je clique sur mon bouton actif (lié au code qui me permet d'envoyer un mail automatiquement) je dois sélectionner un fichier (jusqu'ici tout va bien) hors, lorsque je clique sur le fichier que je souhaite joindre au mail, celui-ci n'apparaît pas...

Voici le code :

Sub EnvoiMailAutomatique()
Dim LeMail As Variant
Dim sfichier As String

sfichier = Application.GetOpenFilename(, , "sélectionner le fichier à envoyer")

Set LeMail = CreateObject("Outlook.Application") 'Création d'un objet Outlook
With LeMail.CreateItem(olMailItem)
    .Subject = "ZP12"
    .To = "lintanffmickael@gmail.com"
    .CC = "lintanffmickael@gmail.com"
    .Body = "Hello," & Chr(10) & Chr(13) & _
    "Ci-joint le ZP12 de cette semaine. Merci de prendre vos actions." & Chr(10) & Chr(13) & _
    "Cdt," & Chr(10) & Chr(13) & _
    "Le planning"
    .Display
    End With
End Sub


Merci de votre aide

1 réponse

Messages postés
6536
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 février 2020
447