At lære at udskrive PDF filer fra Microsoft Outlook ved hjælp af Visual Basic for Applications ( VBA ) kan spare dig tid, når du skal udskrive mange vedhæftede PDF-filer . VBA er et programmeringssprog , der anvendes i alle Microsoft Office-programmer til at automatisere opgaver såsom udskrivning af filer . I Outlook kan du oprette procedurer, hvor VBA-kode tilsættes og henrettet ved hjælp af VB Editor. Brug " ShellExecute " bibliotek for at udføre print kommando og udskrive en PDF-fil. Du kan oprette et par "For ... Loops " for at søge efter PDF- filer i din indbakke mappe og udskrive dem. Instruktioner
1
Launch Microsoft Outlook , klik på menuen "Funktioner" og klik på "Macro > Visual Basic Editor " for at åbne VB Editor vinduer. Klik på " Indsæt" menuen og klikke på " Modul " for at tilføje en ny VBA-kode modul.
2
Kopier og indsæt følgende kode til at definere " ShellExecute " funktion, som du vil bruge til at udskrive PDF filer : Hej
Public Erklær Funktion 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
Tilføj følgende funktion til at kalde " ShellExecute " funktion og udskrive den aktuelle PDF-fil : Hej
Function udskriftsfilen ( pdfName Som String ) ShellExecute 0 , "Udskriv" , pdfName , vbNullString , "", 1End Function
4
Kopier og indsæt følgende kode til at sløjfe gennem alle forsendelser og udskrive PDF fundet vedhæftede filer ved hjælp af din standardprinter : .
Public sub PrintAttachments ( ) Dim myInbox Som MAPIFolderDim mailItem Som mailItemDim attchmt Som AttachmentDim pdfName Som StringSet myInbox = GetNamespace ( " MAPI " ) GetDefaultFolder ( olFolderInbox ) For hver mailItem In myInbox.ItemsFor hver attchmt I mailItem.AttachmentsIf ( InStr (1, attchmt " pdf ". , vbTextCompare ) < > 0) ThenpdfName = " C: \\ Temp \\ " & attchmt.fileNameattchmt.SaveAsFile pdfNameCall udskriftsfilen ( pdfName ) End IfNextNextSet myInbox = NothingEnd Sub
5
Tryk på " F5 " for at køre koden. Koden vil gemme alle vedhæftede PDF-filer i "C: \\ Temp ", før du udskriver dem
.