VBA Outlook 2010 - Impression de toute les pièces jointes

Bonjour la communauté,

Je viens vers vous car je ne trouve pas de réponse à mon problème sur Internet et le Forum.

Il me faudrait, via VBA, la possibilité d’imprimer la totalité des pièces jointes d'un email :

C'est à dire, des fichiers zipper, des PDF, des Word, des Excel, des PNG etc...

Je pourrais imprimer ces pièces jointes manuellement en les ouvrants une par une, mais il y a une très grande quantité de fichier, et cela rend la tâche fastidieuse.

Merci par avance pour vos retours et pour votre aide

Bonjour,

ci-dessous exemple de code à reporter dans ThisOutlookSession

Private WithEvents email As Outlook.MailItem

Private Sub Application_ItemLoad(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub

    'assignation variable objet email pour activation des evts email
    Set email = Item
End Sub

Private Sub email_Open(Cancel As Boolean)
    Dim pièce_jointe As Attachment
    Dim nom_fichier As String
    Dim shApp As Object

    ' Sélection des emails ayant un objet spécifique
    'If Not email.Subject Like "*xxxxxxxxxx*" Then Exit Sub

    ' Assignation application Shell
    Set shApp = CreateObject("shell.application")

    ' Lecture et impression des pièces jointes
    For Each pièce_jointe In email.Attachments
        With pièce_jointe
            nom_fichier = Environ("tmp") & "\" & .FileName
            .SaveAsFile (nom_fichier)   'création fichier temporaire
            shApp.ShellExecute nom_fichier, "", "", "print", 0  'lancement impression
            While Not shApp.Windows Is Nothing  'attente fermeture fenêtre application relative à l'extension du fichier
                DoEvents
            Wend
            Kill nom_fichier    'suppression fichier temporaire
        End With
    Next pièce_jointe

    ' Fermeture email
    email.Close (olDiscard)
End Sub

Bonjour Thez,

Merci pour ton aide

Il faut que je retrouve le fichier qui m'a fais ouvrir ce sujet et que j'essaye ton code!

Cdt!

Rechercher des sujets similaires à "vba outlook 2010 impression toute pieces jointes"