print all attachments in outlook?

[venkman]

I'm trying to write a subroutine which prints all the attachments of a mailitem. I'm thinking it would look something like this:

Public Sub PrintAttachments(mItm As MailItem)
Dim currAttach As Attachment

For Each currAttach In mItm.Attachments
'Print currAttach
Exit Sub
end sub

Where the "Print" procedure is some all purpose call Windows Print that you get when you right click a file. Any ideas what this is? Is there something out there that does this already?

Thanks,
Venkman

 

[venkman]

Still looking for an answer to this, if anyone has any ideas.

Thanks,
Venkman