Πώς να Εκτύπωση Συνημμένο PDF σε VBA Outlook

Μαθαίνοντας πώς να εκτυπώσετε συνημμένα PDF από το Microsoft Outlook χρησιμοποιώντας τη Visual Basic for Applications ( VBA ) μπορεί να σας εξοικονομήσει χρόνο , όταν χρειάζεται να εκτυπώσετε πολλά συνημμένα PDF . VBA είναι μια γλώσσα προγραμματισμού που χρησιμοποιείται σε όλες τις εφαρμογές του Microsoft Office για την αυτοματοποίηση εργασιών , όπως εκτύπωση αρχείων . Στο Outlook , μπορείτε να δημιουργήσετε τις διαδικασίες στις οποίες προστίθεται κώδικα VBA και να εκτελεστούν με το συντάκτη VB . Χρησιμοποιήστε το " ShellExecute " βιβλιοθήκη για να εκτελέσει την εντολή εκτύπωσης και να εκτυπώσετε ένα αρχείο PDF . Μπορείτε να δημιουργήσετε ένα ζευγάρι των " Για ... Loops " για να αναζητήσετε τα συνημμένα PDF στο φάκελο εισερχομένων σας και να τις εκτυπώσετε . Οδηγίες
Η 1

Εκκίνηση του Microsoft Outlook , κάντε κλικ στο μενού "Εργαλεία" και κάντε κλικ στο "Macro > Visual Basic Editor" για να ανοίξετε τα παράθυρα VB Editor. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα κώδικα VBA . 2

αντιγραφή και επικόλληση του παρακάτω κώδικα για να καθορίσει το " ShellExecute " λειτουργία που θα χρησιμοποιήσετε για να τυπώσετε το PDF αρχεία:

Λειτουργία Public Declare ShellExecute Lib " shell32.dll " Alias ​​" ShellExecuteA » _ ( ByVal hWnd Όπως Long , ByVal lpOperation As String , ByVal lpFile As String , _ByVal lpParameters As String , ByVal lpDirectory As String , _ByVal nShowCmd Όπως Long ) Όπως Long
εικόνων 3

Προσθέστε την ακόλουθη συνάρτηση για να καλέσετε τη λειτουργία " ShellExecute " και να εκτυπώσετε το τρέχον αρχείο PDF :

λειτουργία PrintFile ( pdfName Όπως String ) ShellExecute 0 , "Print" , pdfName , vbNullString , " " , 1End Λειτουργία
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να βρόχο μέσω όλων των στοιχείων ηλεκτρονικού ταχυδρομείου και να εκτυπώσετε τα συνημμένα PDF βρέθηκαν χρησιμοποιώντας τον προεπιλεγμένο εκτυπωτή :

PrintAttachments Public Sub ( ) Dim myInbox Όπως MAPIFolderDim mailItem Όπως mailItemDim attchmt Όπως AttachmentDim pdfName Όπως StringSet myInbox = GetNamespace ( " MAPI " ) GetDefaultFolder ( olFolderInbox ) Για κάθε mailItem Σε myInbox.ItemsFor . κάθε attchmt Σε mailItem.AttachmentsIf ( InStr ( 1 , attchmt , " pdf ". , vbTextCompare ) <> 0 ) ThenpdfName = " C : \\ Temp \\" & attchmt.fileNameattchmt.SaveAsFile pdfNameCall PrintFile ( pdfName ) End IfNextNextSet myInbox = NothingEnd Sub
5

Πατήστε το " F5 " για να εκτελέσετε τον κώδικα . Ο κωδικός θα σώσει όλα τα συνημμένα PDF σε " C : \\ Temp " πριν από την εκτύπωση τους
Η
εικόνων .