-
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.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules