Stapelkonvertieren und Anhängen mehrerer Word-Dokumente als PDF Dateien an eine Outlook-E-Mail

Es ist einfach, ein Word-Dokument als anzuhängen PDF Datei in eine Outlook-E-Mail. Wenn Sie jedoch mehrere Word-Dokumente als anhängen möchten PDF Dateien an eine E-Mail können Sie diesen Artikel lesen. Hier zeigen wir Ihnen eine Methode, um es stapelweise zu erhalten.

So hängen Sie ein Word-Dokument an als PDF Um eine Datei an eine Outlook-E-Mail zu senden, öffnen Sie zunächst das Word-Dokument und gehen Sie zum Menü „Datei“. Anschließend wechseln Sie zum Tab „Speichern und Senden“. Dort finden Sie die Schaltfläche „Als PDF senden“, wie im folgenden Screenshot dargestellt.

Somit ist es ganz einfach, ein Word-Dokument als anzuhängen PDF zu einer E-Mail. Wenn Sie jedoch mehrere Word-Dokumente konvertieren und anhängen möchten als PDF Dateien an eine Mail, sind Sie besser auf die folgende Weise. Damit können Sie es in großen Mengen erreichen.

Stapelkonvertieren und Anhängen mehrerer Word-Dokumente als PDF Dateien an eine E-Mail

1. Sammeln Sie zunächst die gewünschten Word-Dokumente im selben Windows-Ordner.
2. Starten Sie dann das Outlook-Programm.
3. Kopieren Sie anschließend den folgenden Code in ein nicht verwendetes Projekt oder Modul.

Dim objMail As Outlook.MailItem

Sub BatchAttachMultipleWordDocumentsAsPDFToEmail()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       objMail.Display
    End If
End Sub

Sub ProcessFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strDocumentName As String
    Dim strPDF As String

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "doc" Or LCase(strFileExtension) = "docx" Then
           Set objWordApp = CreateObject("Word.Application")
           Set objWordDocument = objWordApp.Documents.Open(objFile.Path)

           'Convert document to pdf
           strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1)
           strPDF = strPath & strDocumentName & ".pdf"
           objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Close False

           'Attach the pdf to email
           objMail.Attachments.Add strPDF

           Kill strPDF
        End If
    Next

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubfolder.Path)
           End If
       Next
    End If
End Sub

4. Bewegen Sie danach den Cursor in die erste Unterroutine.
5. Drücken Sie anschließend „F5“, um dieses Makro sofort auszuführen.
6. Wählen Sie im kleinen Popup-Dialogfeld den Windows-Ordner aus, in dem die Word-Quelldokumente gespeichert sind.
7. Sofort wird eine neue E-Mail erstellt, in der Sie den Anhang sehen können PDF Dateien, wie die folgenden screenshost.

Von Outlook-Problemen geplagt

Sind Sie durch verschiedene Outlook-Probleme gestört? Beispielsweise bleibt Outlook häufig im Status "Nicht antwortend" hängen, oder auf die Outlook-PST-Datei kann nicht mehr zugegriffen werden. Im Allgemeinen können Sie zuerst das Reparaturwerkzeug für den Posteingang ausprobieren. scanpst, um PST-Probleme zu beheben. Manchmal können die Probleme jedoch über das hinausgehen, was das eingebaute Tool leisten kann. Daher sollten Sie ein leistungsfähigeres externes Dienstprogramm in der Nähe aufbewahren, z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Reparatur und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX