Script in a rule to print only attachments

[Neodubois]

Bonjour,

J'utilise Outlook 2003 et je passe la moiti? de ma journ?e ? imprimer des attachments et ensuite je d?place la mail dans un sous-dossier

J'ai donc cr?er une rule qui selectionne le mail ensuite applique le script et d?place lemail. Malheureusement le script n'imprime absolument rien.

Voici ce que j'ai cr?er

Sub CustomMailMessageRule(Item As Outlook.MailItem)
    Dim Item As Object
    Dim x As Attachments
    For Each x In Item.Attachments
        x.PrintOut
        printAttachements = True
    Next x
End Sub

PS : je n'ai aucun besoin d'imprimer le mail
Je sais imprimer les documents sans les ouvrir en faisant un simple click droit puis print, ce qui n'est apparement pas le cas dans les pr?c?dentes versions de Oulook/Office.

Si quelq'un ? une solution je serais ravi

merci d'avance