Solved: Printing attachements using a script in a rule

[Neodubois]

Hello,

I am currently using Outlook 2003, on a daily basis I open mails in an inbox right click to print the attachment than move the mail to another folder.

I create a rule which will select the mails move them to the subfolder and apply a script

The rule works, but no printing happens, it seems some variables have not been defined.

this is what I created and tested

[VBA]
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
[/VBA]

I have no need to print the mail itself

Thanks in advance if anyone has a solution

(originally posted in French here)