Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.
'On the next line, edit the path to the folder you want to save the extracted PDFs in. The path must end with a \
Const SAVE_TO_FOLDER = "c:\users\david\documents\testarea\jazzIIIlove\"
Const MACRO_NAME = "Extract All PDF Files"
Dim olkFld As Outlook.Folder, olkMsg As Object, olkAtt As Outlook.Attachment, lngCnt As Long
lngCnt = 1
Set olkFld = Application.ActiveExplorer.CurrentFolder
For Each olkMsg In olkFld.Items
For Each olkAtt In olkMsg.Attachments
If Right(LCase(olkAtt.Filename), 4) = ".pdf" Then
olkAtt.SaveAsFile SAVE_TO_FOLDER & lngCnt & ".pdf"
lngCnt = lngCnt + 1
MsgBox "PDF extraction complete.", vbInformation + vbOKOnly, MACRO_NAME
Open in new window
Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.