Het afdrukken van een PDF-bijlage in Outlook VBA

Leren hoe om te printen PDF afdrukken bijlagen vanuit Microsoft Outlook met behulp van Visual Basic for Applications (VBA) bespaart u tijd wanneer u moet veel PDF-bijlagen. VBA is een programmeertaal gebruikt in alle Microsoft Office-toepassingen voor het automatiseren van taken, zoals afdrukken, bestanden. In Outlook kunt u de procedures waar VBA-code wordt toegevoegd en uitgevoerd met behulp van de VB-Editor. Gebruik de "ShellExecute" bibliotheek uit te voeren de opdracht print en een PDF-bestand afdrukken. U kunt een paar "For... "Om te zoeken naar de PDF-bijlagen in uw map Postvak in en print ze loops.

• Microsoft Outlook start, klikt u op het menu "Extra" en klik op "Macro > Visual Basic Editor" om te openen de Vensters van de VB-Editor. Klik op het "Invoegen" menu en klik op "Module" om toe te voegen een nieuwe VBA-codemodule.

• Kopieer en plak de volgende code om te definiëren van de "ShellExecute"-functie die u wilt gebruiken voor het afdrukken van de PDF-bestanden:

  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

• Voeg de volgende functie om te noemen de "ShellExecute" functie en de huidige PDF-bestand afdrukken:

  Functie printFile (pdfName As String)
  ShellExecute 0, "Afdrukken", pdfName, vbNullString, "", 1
  End Function

• Kopieer en plak de volgende code wilt doorlopen van alle e-mailitems en afdrukken van PDF-bijlagen gevonden met behulp van de standaardprinter:

  Public Sub PrintAttachments()

  Dim myInbox As MAPIFolderDim mailItem As mailItemDim attchmt As AttachmentDim pdfName As StringSet myInbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)For Each mailItem In myInbox.ItemsFor Each attchmt In mailItem.AttachmentsIf (InStr(1, attchmt, ".pdf", vbTextCompare) <> 0) ThenpdfName = "C:\Temp\" & attchmt.fileNameattchmt.SaveAsFile pdfNameCall printFile(pdfName)End IfNextNextSet myInbox = Nothing

  End Sub

• Druk op "F5" de code uit te voeren. De code zal alle PDF-bijlagen in "C:\Temp" opslaan voordat u ze afdrukt.