Okay, I added that stuff and now adobe gives me an error saying that the file can't be found. This is what I have now.

[VBA]For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
FileName = "C:\Email Attachments\" & Atmt.FileName
Atmt.SaveAsFile FileName
Shell "c:\program files\adobe\reader 8.0\reader\acrord32.exe /p /h " & Atmt.FileName
i = 1 + 1
Next Atmt
[/VBA]

I've also tried it like this but with the same result.

[VBA]For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
FileName = "C:\Email Attachments\" & Atmt.FileName
Atmt.SaveAsFile FileName
Shell "c:\program files\adobe\reader 8.0\reader\acrord32.exe /p /h " & FileName

i = 1 +1
Next Atmt
[/VBA]

Charlize, The attachments are deleted at the end of the day so I'm not really too worried about the message box.