Come stampare un allegato PDF in VBA di Outlook

Imparare come stampare gli allegati PDF da Microsoft Outlook utilizzando Visual Basic, Applications Edition (VBA ), è possibile risparmiare tempo quando dovete stampare molti allegati PDF . VBA è un linguaggio di programmazione utilizzato in tutte le applicazioni di Microsoft Office per automatizzare attività quali i file di stampa. In Outlook , è possibile creare procedure in cui viene aggiunto codice VBA ed eseguito utilizzando il VB Editor. Utilizzare la libreria " ShellExecute " per eseguire il comando di stampa e stampare un file PDF . È possibile creare un paio di " cicli FOR ... " per la ricerca di allegati PDF nella tua cartella di posta in arrivo e di stamparli . Istruzioni
1

lancio di Microsoft Outlook , fare clic sul menu " Strumenti " e cliccare su " Basic Editor Macro > visiva " per aprire le finestre VB Editor. Fai clic sul menu "Inserisci" e fare clic su "Modulo " per aggiungere un nuovo modulo di codice VBA .
2

Copia e incolla il seguente codice per definire la funzione " ShellExecute " che verrà utilizzato per stampare il PDF file :

Public Declare Function ShellExecute Lib " shell32.dll " Alias " ShellExecuteA " _ ( ByVal hWnd As Long , ByVal lpOperation As String , ByVal lpFile come stringa, lpParameters _ByVal As String , lpDirectory ByVal come stringa , _ByVal nShowCmd As Long ) As Long
3

Aggiungere la seguente funzione per chiamare la funzione " ShellExecute " e stampare il file corrente PDF:

funzione PrintFile ( pdfName quanto String ) ShellExecute 0 , "Stampa" , pdfName , vbNullString , " " , 1End Funzione
4

Copia e incolla il seguente codice per scorrere tutti gli elementi di posta elettronica e di stampare gli allegati PDF trovati utilizzando la stampante predefinita : .

pubblici PrintAttachments Sub ( ) Dim myInbox Come MAPIFolderDim MailItem Come mailItemDim attchmt Come AttachmentDim pdfName Come StringSet myInbox = GetNamespace ( " MAPI " ) GetDefaultFolder ( olFolderInbox ) per ogni MailItem In myInbox.ItemsFor ogni attchmt In mailItem.AttachmentsIf ( InStr ( 1 , attchmt , "pdf ". , vbTextCompare ) < > 0 ) ThenpdfName = " C : \\ Temp \\ " & attchmt.fileNameattchmt.SaveAsFile pdfNameCall PrintFile ( pdfName ) Fine IfNextNextSet myInbox = NothingEnd Sub
5

Premere " F5 " per eseguire il codice . Il codice salverà tutti gli allegati in formato PDF in " C : \\ Temp" prima di stamparle

.