Lære å skrive ut PDF- vedlegg fra Microsoft Outlook ved hjelp av Visual Basic for Applications ( VBA ) kan spare deg for tid når du trenger å skrive ut mange PDF-vedlegg . VBA er et programmeringsspråk som brukes i alle Microsoft Office-programmer til å automatisere oppgaver som utskrift av filer . I Outlook kan du opprette prosedyrer der VBA-kode er lagt og utført ved hjelp av VB Editor. Bruk " ShellExecute " biblioteket for å utføre ut kommandoen og skrive ut en PDF -fil . Du kan lage et par "For ... Loops " for å søke etter PDF-vedlegg i innboksen din mappe og skrive dem ut. Instruksjoner
en

Launch Microsoft Outlook , klikker du på "Verktøy "-menyen og klikk på "Macro > Visual Basic Editor " for å åpne VB Editor vinduer . Klikk på " Insert"-menyen og klikk " Module " for å legge til en ny VBA-kode modul .
2

Kopier og lim inn følgende kode for å definere " ShellExecute "-funksjonen som du vil bruke til å skrive ut PDF filer : en

Public Declare Function ShellExecute Lib " SHELL32.DLL " Alias ​​" ShellExecuteA " _ ( ByVal hWnd Som Long , ByVal lpOperation As String , ByVal lpFile As String , _ByVal lpParameters As String , ByVal lpDirectory As String , nShowCmd _ByVal As Long) As Long
3

Legg til følgende funksjon for å ringe " ShellExecute "-funksjonen og skrive ut gjeldende PDF-fil : en

funksjon printFile ( pdfName As String ) ShellExecute 0 , "Skriv ut" , pdfName , vbNullString , "", 1End Function
4

Kopier og lim inn følgende kode for å sløyfe gjennom alle forsendelsene og skrive ut noen PDF-vedlegg funnet bruker din standard skriver : .

Public Sub PrintAttachments ( ) Dim myInbox Som MAPIFolderDim mailItem Som mailItemDim attchmt Som AttachmentDim pdfName Som StringSet myInbox = GetNamespace ( " MAPI ") GetDefaultFolder ( olFolderInbox ) For hver mailItem I myInbox.ItemsFor hver attchmt I mailItem.AttachmentsIf ( InStr ( 1 , attchmt , " pdf ". , vbTextCompare ) < > 0 ) ThenpdfName = "C : \\ Temp \\ " & attchmt.fileNameattchmt.SaveAsFile pdfNameCall printFile ( pdfName ) Avslutt IfNextNextSet myInbox = NothingEnd Sub
5

Trykk " F5 " for å kjøre koden . Koden vil lagre alle PDF-vedlegg i "C : \\ Temp " før du skriver dem

.