Print batch to pdf

T

tommy Hermann

Hi

I have made a macro in VBA that is able to print pdf's from a folder
and thereafter move the email's to another folder.
My problem is, that the macro was based on adobe 9.0
But in the meantime newer versions of adobe has showed up, and I
cannot update the macro to a newer version.

This is the sentance that i cannot change:
Shell """C:\Programmer\Adobe\Reader 9.0\Reader\acrord32.exe"" /h /p
""" + FileName + """", vbHide

If i change reader 9.0 to 9.4.1 the macro doens work.

Here is the full programming:

Public Sub PrintAttachments()
Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim Atmt As Attachment
Dim FileName As String
Dim topath As String
Dim i As Integer

Set Inbox =
GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Batch
Prints")
Set inbox1 =
GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Batch
copy")
For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
'all attachments are first saved in the temp folder C:
\Temp. Be sure to create this folder.
FileName = "C:\Temp\" & Atmt.FileName
Atmt.SaveAsFile FileName
'please change the program folder accordingly if the
Acrobat Reader is not installed on drive C:
Shell """C:\Programmer\Adobe\Reader 9.0\Reader
\acrord32.exe"" /h /p """ + FileName + """", vbHide
Next
Item.Move inbox1 'tommy


Item.Delete 'remove this line if you don't want the email be
deleted automatically
Next
Set Inbox = Nothing
End Sub

Best regards Tommy
 
H

H. Druss

tommy Hermann said:
Hi

I have made a macro in VBA that is able to print pdf's from a folder
and thereafter move the email's to another folder.
My problem is, that the macro was based on adobe 9.0
But in the meantime newer versions of adobe has showed up, and I
cannot update the macro to a newer version.

This is the sentance that i cannot change:
Shell """C:\Programmer\Adobe\Reader 9.0\Reader\acrord32.exe"" /h /p
""" + FileName + """", vbHide

The macro should work as is. The executable for 9.41 is acrord32.exe and it
is in the folder
"C:\Programmer\Adobe\Reader 9.0\Reader\"

Although I would change the line to:
Shell """C:\Programmer\Adobe\Reader 9.0\Reader\acrord32.exe"" /h /p
""" & FileName & """", vbHide

I assume all the quote marks are correct.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top