Hvordan batchkonvertere og legge ved flere Word-dokumenter som PDF Filer til en Outlook-e-post

Det er enkelt å legge ved et Word-dokument som et PDF fil til en Outlook-e-post. Likevel, hvis du ønsker å legge ved flere Word-dokumenter som PDF filer til en e-post, kan du lese denne artikkelen. Her vil vi vise deg en metode for å batchskaffe det.

For å legge ved et Word-dokument som PDF fil til en Outlook-e-post, kan du først åpne Word-dokumentet og gå til «Fil»-menyen. Deretter kan du bytte til fanen «Lagre og send», der det finnes en «Send som PDF»-knapp, som på skjermbildet nedenfor.

Dermed er det ganske enkelt å legge ved et Word-dokument som PDF til en e-post. Men hvis du ønsker å konvertere og legge ved flere Word-dokumenter som PDF filer til en e-post, er det bedre å bruke følgende måte. Det kan la deg oppnå det i bulk.

Batchkonverter og legg ved flere Word-dokumenter som PDF Filer til en e-post

1. For det første, samle Word-dokumentene du vil ha i samme Windows-mappe.
2. Start deretter Outlook-programmet.
3. Deretter kopierer du følgende kode til et ubrukt prosjekt eller 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. Etter det, flytt markøren inn i den første subrutinen.
5. Trykk deretter "F5" for å kjøre denne makroen med en gang.
6. I den lille popup-dialogboksen velger du Windows-mappen der kilde Word-dokumentene er lagret.
7. Med en gang vil det bli opprettet en ny e-post, der du kan se den vedlagte PDF filer, som følgende screenhost.

Plaget av Outlook-problemer

Blir du forstyrret av diverse Outlook-problemer? For eksempel sitter Outlook ofte fast i tilstanden "svarer ikke", eller Outlook PST-filen blir utilgjengelig osv. Generelt kan du først prøve reparasjonsverktøyet for innboks, scanpst, for å fikse PST-problemer. Men til tider kan problemene være utover det det innebygde verktøyet kan gjøre. Derfor bør du ha et mer potent eksternt verktøy i nærheten, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql reparasjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med