Printing Attachments in Outlook

[Metaliczombi]

I get multiple emails with attachments. The emails are generated from our mainframe automaticaly and the attachment is in RTF format. What I need is a way to print these attachments without having to manually go through the open attachment, wait, print method. I am very new to VB but give me the code and I will wotk with it till I like it. Help?

 

[RobBroekhuis]

The Outlook Macro below should give you some ideas on how it can be done. It's not a finished product, but may get you started.

Sub PrintAttach()
Dim ns As NameSpace
Dim ib As MAPIFolder
Dim mi As MailItem, att As Attachment
Dim wo As Word.Application
Set ns = Application.GetNamespace("MAPI&quot
Set ib = ns.GetDefaultFolder(olFolderInbox)
Set mi = ib.Items(5)
Set att = mi.Attachments(1)
att.SaveAsFile "c:\temp\" & att.FileName
Set wo = New Word.Application
wo.Visible = False
wo.Documents.Open "c:\temp\" & att.FileName
wo.PrintOut Background:=False
wo.DisplayAlerts = False
wo.Quit
Set wo = Nothing
Set att = Nothing
Set ib = Nothing
Set ns = Nothing
End Sub

Rob

 

[Metaliczombi]

I'll try this and see what it gives me. Anybody Else?