Ako pre tlač vo formáte PDF prílohu v programe Outlook VBA

Naučiť sa, ako tlačiť vo formáte PDF prílohy z aplikácie Microsoft Outlook pomocou jazyka Visual Basic for Applications ( VBA ) vám môže ušetriť čas , kedy potrebujete tlačiť veľa príloh vo formáte PDF . VBA je programovací jazyk používaný vo všetkých aplikáciách balíka Microsoft Office pre automatizáciu úloh , ako je tlač súborov . V programe Outlook , môžete vytvoriť postupy , kde je pridaná a vykonané VBA kód pomocou editora jazyka Visual Basic . Použite " ShellExecute " knižnicu spustiť príkaz tlače a vytlačiť súbor vo formáte PDF . Môžete vytvoriť niekoľko " Pre ... Slučky " hľadať PDF príloh vo vašej e - mailovej schránky zložke a vytlačiť ich . Pokyny dovolená 1

Spustite program Microsoft Outlook , kliknite na ponuku " Nástroje " a kliknite na tlačidlo " Makro > Editor jazyka Visual Basic " pre otvorenie okna VB Editor . Kliknite na " Vložiť " menu a kliknite na " modul " pre pridanie nového modulu kódu VBA .
2

Skopírujte a vložte nasledujúci kód definuje funkciu " ShellExecute " , ktorý budete používať pre tlač vo formáte PDF súbory :

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

Pridať nasledujúce funkcie volať funkciu " ShellExecute " a vytlačiť aktuálny súbor vo formáte PDF :

funkcia Printfil ( pdfName As string) ShellExecute 0 , " Print " , pdfName , vbNullString , " " , 1End Funkcia
4

skopírujte a vložte nasledujúci kód do slučky cez všetky položky pošty a vytlačiť všetky PDF príloh nájdené pomocou predvolenú tlačiareň : Spojené

Public Sub PrintAttachments ( ) Dim myInbox Ako MAPIFolderDim mailItem Ako mailItemDim attchmt Ako AttachmentDim pdfName Ako StringSet myInbox = GetNamespace ( " MAPI " ) GetDefaultFolder ( olFolderInbox ) For Each mailItem V myInbox.ItemsFor . každý attchmt V mailItem.AttachmentsIf ( Instru ( 1 , attchmt , " pdf " . , vbTextCompare ) < > 0 ) ThenpdfName = " C : \\ Temp \\ " a attchmt.fileNameattchmt.SaveAsFile pdfNameCall Printfil ( pdfName ) koniec IfNextNextSet myInbox = NothingEnd Sub
5

Stlačte " F5 " spustiť kód . Pred tlačou
Foto : kód sa uloží všetky PDF zasielať súbory v " \\ Temp C " .

• Predchádzajúca strana: Ako sa destiluje v súbore PDF 
• Ďalšia strana: Ako exportovať PRT do PDF