Hur man gruppvis konverterar och bifogar flera orddokument som PDF Filer till en Outlook-e-post

Det är enkelt att bifoga ett Word-dokument som en PDF fil till ett Outlook-e-postmeddelande. Ändå, om du vill bifoga flera Word-dokument som PDF filer till ett e-postmeddelande kan du läsa den här artikeln. Här visar vi dig en metod för att batchhämta den.

Att bifoga ett Word-dokument som PDF fil till ett Outlook-e-postmeddelande kan du först öppna Word-dokumentet och gå till "Arkiv"-menyn. Sedan kan du växla till fliken "Spara och skicka", där det finns en knapp för "Skicka som PDF", som i följande skärmdump.

Således är det ganska enkelt att bifoga ett Word-dokument som PDF till ett e-postmeddelande. Men om du vill konvertera och bifoga flera Word-dokument som PDF filer till ett e-postmeddelande, är det bättre att du använder följande sätt. Det kan låta dig åstadkomma det i bulk.

Batchkonvertera och bifoga flera orddokument som PDF Filer till ett e-postmeddelande

1. Till att börja med, samla de Word-dokument du vill ha i samma Windows-mapp.
2. Starta sedan Outlook-programmet.
3. Kopiera sedan följande kod till ett oanvänt projekt eller en 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. Därefter flyttar du markören till den första subrutinen.
5. Tryck sedan på “F5” för att köra detta makro direkt.
6. I den lilla popup-dialogrutan väljer du Windows-mappen där källordet Word-dokument lagras.
7. Omedelbart skapas ett nytt e-postmeddelande där du kan se bilagan PDF filer, som följande screenhost.

Plågas av Outlook-problem

Störs du av diverse Outlook-problem? Till exempel fastnar Outlook ofta i tillståndet "svarar inte" eller Outlook PST-filen blir otillgänglig, etc. I allmänhet kan du först prova reparationsverktyget för inkorgen Scanpst, för att åtgärda PST-problem. Men ibland kan problemen vara längre än vad det inbyggda verktyget kan göra. Därför är det bättre att du håller ett starkare externt verktyg i närheten, till exempel DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql reparation och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com