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 file in un'e-mail di Outlook, puoi prima aprire il documento Word e andare al menu "File". Quindi, puoi passare alla scheda "Salva e invia", in cui è presente un "Invia come PDF”, come nella schermata seguente.

Invia come PDF

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. Per cometart, raccogli i documenti di Word che desideri 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) 'Seleziona la cartella Windows specifica Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder( 0, "Seleziona una cartella Windows:", 0, "") Se non objWindowsFolder non è nulla Allora strWindowsFolder = objWindowsFolder.self.Path & "\" Call ProcessFolders(strWindowsFolder) objMail.Display End If End 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 Imposta objFileSystem = CreateObject("Scripting.FileSystemObject") Imposta objFolder = objFileSystem.GetFolder(strPath) Per ogni objFile In objFolder.Files strFileExtension = objFileSystem.GetExtensionName(objFile) If LCase(strFileExtension) = "doc" O LCase(strFileExtension ) = "docx" Quindi imposta objWordApp = CreateObject("Word.Application") Imposta objWordDocument = objWordApp.Documents.Open(objFile.Path) 'Converti documento in pdf
           strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1) strPDF = strPath & strDocumentName & ".pdf" objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Close False 'Allega il pdf inviare un'e-mail a objMail.Attachments.Add strPDF

           Uccidi strPDF
        End If Next 'Elabora tutte le cartelle e le sottocartelle 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

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

  1. Successivamente, sposta il cursore nella prima subroutine.
  2. Successivamente, premi "F5" per eseguire subito questa macro.
  3. Nella piccola finestra di dialogo popup, seleziona la cartella Windows in cui sono archiviati i documenti Word di origine.Seleziona la cartella di Windows
  4. Immediatamente, verrà creata una nuova email, in cui puoi vedere l'allegato PDF file, come il seguente screenshost.Attached PDF File nella nuova e-mail

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

I commenti sono chiusi.