Como converter em lote e anexar vários documentos do Word como PDF Arquivos para um e-mail do Outlook

É fácil anexar um documento do Word como um PDF arquivo para um e-mail do Outlook. No entanto, se você quiser anexar vários documentos do Word como PDF arquivos para um e-mail, você pode ler este artigo. Aqui, mostraremos um método para obtê-lo em lote.

Para anexar um documento do Word como PDF Para enviar um arquivo para um e-mail do Outlook, primeiro abra o documento do Word e acesse o menu "Arquivo". Em seguida, clique na guia "Salvar e Enviar", onde você encontrará o botão "Enviar como PDF", como mostrado na captura de tela a seguir.

Assim, é bastante simples anexar um documento do Word como PDF para um e-mail. Mas, se você quiser converter e anexar vários documentos do Word como PDF arquivos para um e-mail, é melhor usar o seguinte caminho. Ele pode permitir que você faça isso em massa.

Converter em lote e anexar vários documentos do Word como PDF Arquivos para um e-mail

1. Para começar, reúna os documentos do Word que você deseja na mesma pasta do Windows.
2. Em seguida, inicie o programa Outlook.
3. Em seguida, copie o código a seguir em um projeto ou módulo não utilizado.

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. Depois disso, mova o cursor para a primeira sub-rotina.
5. Posteriormente, pressione “F5” para executar esta macro imediatamente.
6. Na pequena caixa de diálogo pop-up, selecione a pasta do Windows onde os documentos de origem do Word estão armazenados.
7. De imediato, será criado um novo e-mail, no qual poderá ver o anexo PDF arquivos, como o seguinte screenshost.

Atormentado por problemas do Outlook

Você está perturbado por diversos problemas do Outlook? Por exemplo, o Outlook fica frequentemente travado no estado "não está respondendo" ou o arquivo PST do Outlook fica inacessível, etc. Em geral, você pode primeiro tentar a ferramenta de reparo da caixa de entrada, ScanpstName, para corrigir problemas de PST. No entanto, às vezes, os problemas podem estar além do que a ferramenta embutida pode fazer. Portanto, é melhor manter um utilitário externo mais potente nas proximidades, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparo do sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com