Come convertire in batch e allegare più documenti Word come PDF File in un'e-mail di Outlook

È facile allegare un documento Word come file PDF file in un'e-mail di Outlook. Tuttavia, se desideri allegare più documenti Word come PDF file a un'e-mail, puoi leggere questo articolo. Qui ti mostreremo un metodo per ottenerlo in batch.

Per allegare un documento Word come PDF Per inviare un file tramite e-mail a Outlook, è possibile innanzitutto aprire il documento Word e andare al menu "File". Successivamente, si può passare alla scheda "Salva e invia", dove è presente il pulsante "Invia come PDF", come mostrato nella seguente schermata.

Pertanto, è abbastanza semplice allegare un documento Word come PDF ad una e-mail. Tuttavia, se desideri convertire e allegare più documenti Word come PDF file in una mail, è meglio usare il seguente modo. Può farti realizzare alla rinfusa.

Converti in batch e allega più documenti Word come PDF File in un'e-mail

1. Innanzitutto, raccogli i documenti Word che desideri conservare nella stessa cartella di Windows.
2. Quindi, avvia il programma Outlook.
3. Successivamente, copia il codice seguente in un progetto o modulo inutilizzato.

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. Successivamente, sposta il cursore nella prima subroutine.
5. Successivamente, premi "F5" per eseguire subito questa macro.
6. Nella piccola finestra di dialogo popup, seleziona la cartella Windows in cui sono archiviati i documenti Word di origine.
7. Immediatamente, verrà creata una nuova email, in cui puoi vedere l'allegato PDF file, come il seguente screenshost.

Afflitto da problemi di Outlook

Sei disturbato da vari problemi di Outlook? Ad esempio, Outlook è spesso bloccato nello stato "non risponde" o il file PST di Outlook diventa inaccessibile, ecc. In generale, puoi prima provare lo strumento di riparazione della posta in arrivo, Scansione, per risolvere i problemi PST. Tuttavia, a volte, i problemi possono andare oltre ciò che può fare lo strumento integrato. Pertanto, faresti meglio a tenere un'utilità esterna più potente nelle vicinanze, come ad esempio DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com