Macro pour imprimer piece jointe dans outlook

Signaler
Messages postés
138
Date d'inscription
lundi 27 mai 2002
Statut
Membre
Dernière intervention
29 mai 2006
-
Messages postés
138
Date d'inscription
lundi 27 mai 2002
Statut
Membre
Dernière intervention
29 mai 2006
-
bjr a tous!
je souhaiterai créer une macro qui imprimerait toutes les pieces jointes de mon compte outlook en appuyant sur un bouton. Je ne sais pas si c'est possible, j'ai chercher dans le site s'il n'y avait pas des sources qui pourrait m'aider mais je n'ai rien trouver. Si quelqu'un pourrait m'aider se serait sympa.

Merci
eric

5 réponses

Messages postés
138
Date d'inscription
lundi 27 mai 2002
Statut
Membre
Dernière intervention
29 mai 2006

dsl davoir posté 2 fois le meme messages j'ai eu un pb de conexion avec internet et jai cru que le premier message n'a pas été posté
eric
Messages postés
699
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
13 mai 2011
21
Bonjour,

Je ne m'y connais pas bien en VBA - Outllook mais tu peux partir sur l'exemple suivant :
Dim appOutlook As Outlook.Application
Dim nspOutlook As NameSpace
Dim mpfMail As MAPIFolder
Dim eMail As MailItem
Dim ToutesPiecesJointes As Attachments
Dim PieceJointe As Attachment
Dim toto As String

'Affectation des variables objets
Set appOutlook = ThisOutlookSession.Application
Set nspOutlook = appOutlook.GetNamespace("MAPI")
Set mpfMail = nspOutlook.GetDefaultFolder(olFolderInbox)

For Each eMail In mpfMail.Items
toto = eMail.Subject
    Set ToutesPiecesJointes = eMail.Attachments
    If Not TypeName(ToutesPiecesJointes) = "Nothing" Then
        For Each PieceJointe In ToutesPiecesJointes
                PieceJointe.SaveAsFile "D:\User" & PieceJointe.DisplayName
        Next PieceJointe
    End If
Next eMail

Set PieceJointe = Nothing
Set ToutesPiecesJointes = Nothing
Set olkMail = Nothing
Set mpfMail = Nothing
Set nspOutlook = Nothing
Set appOutlook = Nothing


Je viens de le faire et en fait, il me fait une erreur à un moment. Tu sauras peut être la corriger.
Là je ne fais que sauvegarder les pièces jointes à un autre endroit.

J'espère que ça t'aiguillera (je continue à chercher de mon côté)

Fanny
Messages postés
138
Date d'inscription
lundi 27 mai 2002
Statut
Membre
Dernière intervention
29 mai 2006

OK merci c'est très gentille de ta part mais juste une question tu fais comment pour activer les macros sous outlook?
car je ne peux meme pas tester les macros puisque qu'il m'affiche dans une fenetre :
"les macros de ce projets sont désactivées...."
je suis pourtant allé dans l'aide microsoft mais celui me dit de fermer outlook et de le reouvrir et cocher la case activer les macros. Or cette fenetre ne s'affiche pas dans outlook.

ps: j'ai eu la meme idée de sauvegarder ttes les pieces jointes dans un repertoire et ensuite imprimer ce repertoire.Mais j'ai pas pu tester a cause du désactivage de la macro

eric
Messages postés
699
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
13 mai 2011
21
Euh je t'avouerais que je n'ai pas eu ce problème.

J'ai fait Alt+F11 pour taper la macro (en insérant un module).
puis pour l'exécuter je vais dans outils->macro

Fanny
Messages postés
138
Date d'inscription
lundi 27 mai 2002
Statut
Membre
Dernière intervention
29 mai 2006

c'est ce que j'ai fais aussi
bizar :-(
eric