Enregistrer sous amélioré sous vba outlook

Lameche15
Messages postés
155
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
29 décembre 2021
- 27 janv. 2012 à 13:23
Bonjour,

Je suis sous outlook 2003. J'ai créé une macro à exécuter quand je clique sur un bouton que j'ai placé dans fichier > enregistrer les pièces jointes > maMacro.

Maintenant je suis bloqué je ne sais pas quoi mettre dans ma macro.
J'aimerais, lorsque je selectionne un message dans ma boite de reception, enregistrer le corps du message et les pièces jointes dans un meme dossier prédéfinit. Cela est-il clair.
Voici ce que j'ai écrit.


Sub SaveasPJ()
Dim MaDatabase As NameSpace, Folder As MAPIFolder, Mail As MailItem

Set MaDatabase = Application.GetNamespace("MAPI")
Set Folder = MaDatabase.GetDefaultFolder(olFolderInbox)
Set Mail = Folder.Items(Folder.Items.Count)

For Each Attachment In Mail.Attachments
Attachment.SaveAsFile "C:\tmp" & Attachment.FileName
Next

End Sub

Sauf qu'avec ca, ma macro enregistre les pièces jointes de mon dernier message reçu.
Il me semble d'ailleurs que c'est un hasard si je comprend bien le GetDefaultFolder.
J'ai vu d'autres fonctions mais je ne sais pas les utiliser.

Qqn peut-il venir à mon aide?

Merci d'avance