Hvordan skrive ut en PDF-vedlegg i VBA Outlook

August 31

Lære å skrive ut PDF-vedlegg fra Microsoft Outlook ved hjelp av Visual Basic for Applications (VBA) kan du spare tid når du trenger å skrive ut mange PDF-vedlegg. VBA er et programmeringsspråk som brukes i alle Microsoft Office-programmer for å automatisere oppgaver som utskrift av filer. I Outlook kan du opprette prosedyrer hvor VBA-kode er lagt og gjennomført ved hjelp av VB Editor. Bruk "ShellExecute" biblioteket for å utføre utskriftskommando og skrive ut en PDF-fil. Du kan lage et par "For ... Loops" for å søke etter PDF-vedlegg i innboksen mappe og skrive dem ut.

Bruksanvisning

1 Start Microsoft Outlook, klikker du på "Verktøy" -menyen og klikk "Macro> Visual Basic Editor" for å åpne VB Editor vinduer. Klikk på "Insert" -menyen og klikk "Module" for å legge til en ny VBA kodemodul.

2 Kopier og lim inn følgende kode for å definere "ShellExecute" funksjon som du vil bruke for å skrive ut PDF-filer:

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 Legg til følgende funksjon for å ringe "ShellExecute" -funksjonen og skrive ut gjeldende PDF-fil:

Funksjon utskriftsfila (pdfName As String)
ShellExecute 0, "Print", pdfName, vbNullString, "", en
End Function

4 Kopier og lim inn følgende kode for å sløyfe gjennom alle postelementer og skrive ut PDF-vedlegg funnet ved hjelp av standardskriver:

Public Sub PrintAttachments ()

Dim myInbox As MAPIFolder Dim mailItem As mailItem Dim attchmt As Attachment Dim pdfName As String Set myInbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) For Each mailItem In myInbox.Items For Each attchmt In mailItem.Attachments If (InStr(1, attchmt, ".pdf", vbTextCompare) <> 0) Then pdfName = "C:\Temp\" & attchmt.fileName attchmt.SaveAsFile pdfName Call printFile(pdfName) End If Next Next Set myInbox = Nothing

End Sub

5 Trykk "F5" for å kjøre koden. Koden vil lagre alle PDF-vedlegg i "C: \ Temp" før du skriver dem.