Att lära sig att skriva ut PDF- bilagor från Microsoft Outlook med hjälp av Visual Basic for Applications ( VBA ) kan spara tid när du behöver skriva ut många PDF-bilagor . VBA är ett programmeringsspråk som används i alla Microsoft Office-program för att automatisera uppgifter som att skriva ut filer . I Outlook kan du skapa rutiner där VBA-kod tillsätts och genomförs med hjälp av VB Editor . Använd " ShellExecute " bibliotek för att exekvera kommandot Skriv ut och skriva ut en PDF-fil . Du kan skapa ett par " För ... Loops " för att söka efter bifogade PDF-filer i din inkorg och skriva ut dem . Instruktioner
1
Launch Microsoft Outlook , klicka på menyn "Verktyg" och klicka på " Macro > Visual Basic Editor " för att öppna VB Editor fönster . Klicka på " Infoga " -menyn och klicka på " modul " för att lägga till en ny VBA-kod modulen .
2
Kopiera och klistra in följande kod för att definiera " ShellExecute " funktion som du använder för att skriva ut PDF filer :
Public Declare Function ShellExecute lib " Shell32.dll " Alias " ShellExecuteA " _ ( ByVal hWnd As Long , ByVal lpOperation As String , ByVal lpFile As String , _ByVal lpParameters As String , ByVal lpDirectory As String , _ByVal nShowCmd As Long ) As Long
3
Lägg följande funktion för att ringa " ShellExecute " -funktionen och skriva ut den aktuella PDF- filen :
funktion PrintFile ( pdfName som String ) ShellExecute 0 , " Print " , pdfName , vbNullString , " " , 1End Function
4
Kopiera och klistra in följande kod till en slinga genom alla försändelser och skriva ut alla PDF hittats bilagor använda din standardskrivare : .
Public sub PrintAttachments ( ) Dim myInbox Som MAPIFolderDim mailItem Som mailItemDim attchmt Som AttachmentDim pdfName Som StringSet myInbox = GetNamespace ( " MAPI " ) GetDefaultFolder ( olFolderInbox ) För varje mailItem I myInbox.ItemsFor varje attchmt I mailItem.AttachmentsIf ( InStr 1 ( , attchmt , " pdf . " , vbTextCompare ) < > 0 ) ThenpdfName = " C : \\ Temp \\ " & attchmt.fileNameattchmt.SaveAsFile pdfNameCall PrintFile ( pdfName ) avsluta IfNextNextSet myInbox = NothingEnd Sub
5
Tryck " F5 " för att köra koden . Koden kommer att spara alla bifogade PDF-filer i " C : \\ Temp " innan du skriver ut dem Addera
.
