Does anyone have VBA code to open and print 100 + PDF attachements in an email ? Using Outlook 2000 if that matters.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
You need Windows Scripting installed on your machine
W2k, XP
Goto http://www.microsoft.com/d
Other platform:
at http://www.microsoft.com/d
Install it
Stefri
PS: it should come IE5.0 et higer
stefri
I downloaded scripten.exe but it made no difference to the way this worked. Apparently I need a way to close Acrobat on each loop or have Acrobat stay open and have it open the successive PDFs and print them. Since I have never done Application Automation I am treading in new area.
As of yet I still can not get it to open and print multiple files. It opens Acrobat and prints the first PDF file but then just kind of hangs there. I can not do anything inside VBA so I can tell that it's still running. I can maximize the Acrobat session. Only when I close the Acrobat session does my VBA then error at the line wshSHell.Quit by returning "Object Does Not Support Property or Method"
Any Other Ideas ?
Also....How do I give you 500 extra points as promised ?
I read your post too fast
Remove wshSHell.Quit which does not exist.... (may be was it too late in my time zone when coding....)
Could you check the command which is used when you drag and drop a pdf file on the Acroread icon
Folder Option, File Type
look for pdf, select print then modify, copy the command line to be used in the variable getting rid of %1
This is the value to be set in acrobatPrint
Otherwide you may strRun = wshShell.Run(cmdLine, 1, False). The command wont wait for acrobat print completion.
If you want to increase points, post a new thread for stefri and post a comment in this thread with a link to the new post. I will be happy to accept them
I would suggest you to wait for a valid solution before adding points (Oh, dear, I am too honest....)
Stefri
Ps: I have Acrobat Distiller and the code is working really fine, I think we have to find the correct switches in Folder Option, Folder Type to force Acroread closing.
Otherwise, get ready to click, click, click.... the upper right handside X to close the window
Business Accounts
Answer for Membership
by: stefriPosted on 2003-06-04 at 12:02:12ID: 8651306
Open VBA (Alt F11)
Cut and paste the code between ' snips
Assign the macro to a button:
right click the standard toolbar,
customize
Command Tab
Macros: drag and drop printPDFAttachment to the toolbar
To use the button, select a mail with pdf attachment then click you button
Yoy may be have to change the value of the variable acrobatPrint which if is for Distiller (check the associated program in Explorer: Folder Option, File Type
look for pdf, select print then modify, copy the command line to be used in the variable getting rid of %1)
tempFolder points to c:\temp where are saved the attached pdfs.
Good luck
Stefri
PS: I do not have mail with pdf for the moment, try first on a mail with at most 2 attachments.... :-D (just in case....)
' snips
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 = "Acrobat.exe /p /h "
myTempFolder = "c:\temp"
Set olApp = Application ' CreateObject("Outlook.appl
Set sel = olApp.ActiveExplorer.Selec
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("
cmdLine = acrobatPrint & myTempFolder & "\" & att.DisplayName
strRun = wshShell.Run(cmdLine, 1, True)
wshShell.Quit
Set wshShell = Nothing
End If
Next
End If
Next
Set sel = Nothing
Set olApp = Nothing
End Sub
' snips