Jak konwertować i dołączać wiele dokumentów programu Word jako pliki PDF Pliki do wiadomości e-mail programu Outlook

Dokument programu Word jako plik PDF plik do wiadomości e-mail programu Outlook. Jeśli jednak chcesz dołączyć wiele dokumentów programu Word jako pliki PDF pliki na e-mail, możesz przeczytać ten artykuł. Tutaj pokażemy Ci metodę partii.

Aby dołączyć dokument programu Word jako plik PDF Aby zapisać plik w wiadomości e-mail w programie Outlook, otwórz dokument Word i przejdź do menu „Plik”. Następnie przejdź do zakładki „Zapisz i wyślij”, gdzie znajduje się przycisk „Wyślij jako PDF”, jak na poniższym zrzucie ekranu.

W związku z tym dołączenie dokumentu Worda jako pliku PDF na e-mail. Ale jeśli chcesz przekonwertować i dołączyć wiele dokumentów Worda jako PDF pliki do poczty, lepiej postępować w następujący sposób. Może pozwolić ci to zrobić zbiorczo.

Konwertuj wsadowo i dołączaj wiele dokumentów programu Word jako pliki PDF Pliki na e-mail

1. Na początek zbierz dokumenty programu Word, które chcesz mieć, w tym samym folderze systemu Windows.
2. Następnie uruchom program Outlook.
3. Następnie skopiuj następujący kod do nieużywanego projektu lub modułu.

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. Następnie przenieś kursor do pierwszego podprogramu.
5. Następnie naciśnij „F5”, aby natychmiast uruchomić to makro.
6. W małym oknie podręcznym wybierz folder Windows, w którym przechowywane są źródłowe dokumenty programu Word.
7. Od razu zostanie utworzony nowy e-mail, w którym możesz zobaczyć załączony PDF pliki takie jak poniższy screenshost.

Nękany problemami z perspektywą

Czy przeszkadzają Ci różne problemy z programem Outlook? Na przykład program Outlook często blokuje się w stanie „nie odpowiada” lub plik PST programu Outlook staje się niedostępny itp. Ogólnie można najpierw wypróbować narzędzie do naprawy skrzynki odbiorczej, skanpst, aby naprawić problemy z PST. Jednak czasami problemy mogą wykraczać poza możliwości wbudowanego narzędzia. Dlatego lepiej trzymać w pobliżu silniejsze narzędzie zewnętrzne, takie jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com