Lernen, wie man PDF -Anhänge von Microsoft Outlook mit Visual Basic für Applikationen (VBA) können Sie Zeit sparen , wenn Sie viele PDF-Anhänge drucken müssen drucken

Mitglieder-Login

InformationenPortable Document Format

Wie man als PDF From Publisher Spei… Mit dem Microsoft Publisher DTP- und Layout-Software verwandelt Ihren Computer in einem One-Stop- De
Probleme beim Öffnen von PDF-Anhä… Mozilla Thunderbird ist ein kostenloses E-Mail -Client, der alle Ihre Web- , Unternehmens-und Exchan
Wie Adobe PDF 7.0 auf Microsoft Exc… Adobe Acrobat 7 Professional enthält eine Funktion , mit der Sie PDF-Formular Daten in ein Format ,
Wie man Zeilenumbrüche in einer PD… Entfernen Zeilenumbrüche in einer Portable Document Format (PDF) -Datei kann der Text leichter zu le

Software

HOME

* Computer Wissen >> Software >> Portable Document Format >> .

Lernen, wie man PDF -Anhänge von Microsoft Outlook mit Visual Basic für Applikationen (VBA) können Sie Zeit sparen , wenn Sie viele PDF-Anhänge drucken müssen drucken

Wie man eine PDF-Anlage in VBA Outlook drucken . VBA ist eine Programmiersprache, in allen Microsoft- Office-Anwendungen verwendet , um Aufgaben wie Drucken von Dateien zu automatisieren. In Outlook können Sie Verfahren, bei denen VBA Code hinzugefügt und ausgeführt mit dem VB -Editor. Benutzen Sie den " ShellExecute " Bibliothek , um den Druck -Befehl ausführen und drucken Sie eine PDF -Datei. Sie können ein paar " For ... Loops " für PDF-Anhänge in Ihrem Posteingang Ordner durchsuchen und ausdrucken. Anleitung
1

Starten Sie Microsoft Outlook , klicken Sie auf das Menü "Extras" und klicken Sie auf " Makro > Visual Basic Editor ", um den VB -Editor-Fenster zu öffnen. Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" ein neues Modul VBA-Code hinzufügen.
2

Kopieren Sie den folgenden Code, um die " ShellExecute "-Funktion zu definieren , die Sie verwenden , um das PDF ausdrucken Dateien :

Öffentliche 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

Fügen Sie die folgende Funktion, um die " ShellExecute " -Funktion aufrufen und drucken Sie das aktuelle PDF-Datei:

Funktion PrintFile ( PDFName Wie String) ShellExecute 0 , "Drucken" , PDFName , vbNullString , "", 1End Funktion
4

Kopieren Sie den folgenden Code, um eine Schleife durch alle Sendungen und drucken Sie PDF-Anhänge gefunden mit Ihrem Standard- Drucker : .

Public Sub PrintAttachments () Dim myInbox Wie MAPIFolderDim MailItem Wie mailItemDim attchmt Wie AttachmentDim PDFName Wie StringSet myInbox = GetNamespace ( " MAPI " ) GetDefaultFolder ( olFolderInbox ) For Each MailItem In myInbox.ItemsFor Jeder attchmt In mailItem.AttachmentsIf ( InStr (1, attchmt , " pdf ". , vbTextCompare ) <> 0) ThenpdfName = "C: \\ Temp \\ " & attchmt.fileNameattchmt.SaveAsFile pdfNameCall PrintFile ( PDFName ) Ende IfNextNextSet myInbox = NothingEnd Sub
5

Presse "F5 ", um den Code auszuführen. ": \\ Temp C " vor dem Drucken

Der Code werden alle PDF-Anhänge im.