[VBA] Envoyer mail Outlook avec PPT en PJ

Bonjour le forum,

J'aurais besoin d'un petit coup de pouce de votre part...

Le code que j'ai confectionné ci-après me permet d'envoyer un mail par Outlook avec en pièce joint un powerpoint.

Sub Envoyer_Mail()
   Dim a As MailItem

    Set a = Outlook.CreateItem(olMailItem)
    With a
        .To = "xxxx@dddd.com
        .Subject = "test mail pour LH"
        .BodyFormat = olFormatHTML
        .HTMLBody = "Bonjour.."
        .Attachments.Add ("C:\Répertoire\Powerpoint\Mon Powerpoint.ppt")
        .Send
    End With
End Sub

Ce code fonctionne mais envoi l'email sans me demander confirmation...

N'existe t'il pas une fonction permettant de m'ouvrir la fenêtre Outlook contenant le destinataire et le fichier déjà en PJ sans l'envoyer ? Ainsi je pourrai vérifier si le contenu est bon et ensuite appuyer moi même sur le bouton "Envoyer"...

Merci pour votre aide

169email-avec-ppt.xlsm (16.58 Ko)

Salut Greg.ieo

Stp nomme correctement tes variables avec des noms explicites

Sinon utilises ".Display" à la place de ".Send"

A+

bonjour,

essaie en remplaçant

.send

par

.display

Bonjour Bruno : Etant donnée que c'était un fichier test je ne m'étais pas pris le temps de nommer correctement les variables. Généralement je le fais lorsque le code à plusieurs lignes : ça facilite la lecture.

Néanmoins la fonction "Visible" n'est pas proposé, une erreur s'affiché lorsqu'on exécute le code.

H2O4 : merci pour votre proposition c'est exactement ce que je recherchai !

Greg.leo a écrit :

Bonjour Bruno : Etant donnée que c'était un fichier test je ne m'étais pas pris le temps de nommer correctement les variables. Généralement je le fais lorsque le code à plusieurs lignes : ça facilite la lecture.

Néanmoins la fonction "Visible" n'est pas proposé, une erreur s'affiché lorsqu'on exécute le code.

H2O4 : merci pour votre proposition c'est exactement ce que je recherchai !

Il me semble que Bruno t'a fait la même proposition avant moi

H2SO4 : Non, Bruno vient d'éditer son message

Rechercher des sujets similaires à "vba envoyer mail outlook ppt"