Use Automation to Open and Print 100 + PDF attachments to an email ?

I will be receiving an email on a regular basis that will contain well over 100 PDF attachments. I need code that can be run through Outlook 2000 that will acheive this task. I posted this question in the Outlook area and received what may be a good start:


Sub printPDFAttachment()
Dim olApp As Outlook.Application
Dim it As Object
Dim att As Outlook.Attachment
Dim intPos As Integer
Dim strExt As String
Dim wshShell As Object
Dim cmdLine As String
Dim strRun As String
Dim sel As Outlook.Selection
Dim myTempFolder As String
Dim acrobatPrint As String
acrobatPrint = "Acrord32.exe /p /h "
myTempFolder = "c:\temp"

Set olApp = Application '       CreateObject("Outlook.application")

Set sel = olApp.ActiveExplorer.Selection
For Each it In sel
   If it.Class = olMail Then
       For Each att In it.Attachments
           intPos = InStrRev(att.FileName, ".")
           strExt = LCase(Mid(att.FileName, intPos + 1))
           If strExt = "pdf" Then
              att.SaveAsFile myTempFolder & "\" & att.DisplayName
              Set wshShell = Application.CreateObject("Wscript.Shell")
              cmdLine = acrobatPrint & myTempFolder & "\" & att.DisplayName
              strRun = wshShell.Run(cmdLine, 1, True)
              'wshShell.Quit (Commented Out...Said method does not exist)
              Set wshShell = Nothing
           End If
       Next
   End If
Next

Set sel = Nothing
Set olApp = Nothing
End Sub



The problem with this method is that I have to "X" down the Adobe application for each PDF found in the attachement. The person who gave me this code said that it worked great with Distiller but my expertise is in Excel, not Acrobat so I don't have a clue as to what distiller even is. I need a solution that can use a legal free copy Acrobat reader, unless distiller can legally  be downloaded for free .