Cách chuyển đổi hàng loạt và đính kèm nhiều tài liệu Word thành PDF Tệp vào Email Outlook

giải pháp triển vọng Tháng Chín 29, 2025

Thật dễ dàng để đính kèm một tài liệu Word dưới dạng PDF tệp vào email Outlook. Tuy nhiên, nếu bạn muốn đính kèm nhiều tài liệu Word dưới dạng PDF tập tin vào một email, bạn có thể đọc bài viết này. Ở đây chúng tôi sẽ chỉ cho bạn một phương pháp để lấy nó hàng loạt.

Để đính kèm một tài liệu Word dưới dạng PDF Để gửi tệp tin sang email Outlook, trước tiên bạn có thể mở tài liệu Word và vào menu “Tệp”. Sau đó, bạn có thể chuyển sang tab “Lưu & Gửi”, trên đó có nút “Gửi dưới dạng PDF”, như ảnh chụp màn hình bên dưới.

Vì vậy, khá đơn giản để đính kèm một tài liệu Word dưới dạng PDF đến một email. Tuy nhiên, nếu bạn muốn chuyển đổi và đính kèm nhiều tài liệu Word dưới dạng PDF tệp vào thư, tốt hơn hết bạn nên sử dụng cách sau. Nó có thể cho phép bạn hoàn thành nó với số lượng lớn.

Chuyển đổi hàng loạt và đính kèm nhiều tài liệu Word dưới dạng PDF Tập tin vào một Email

Trước tiên, hãy tập hợp các tài liệu Word mà bạn muốn sử dụng vào cùng một thư mục Windows.
Sau đó, khởi chạy chương trình Outlook.
Tiếp theo, sao chép đoạn mã sau vào một dự án hoặc mô-đun không sử dụng.

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

Sau đó, di chuyển con trỏ vào chương trình con đầu tiên.
Sau đó nhấn “F5” để chạy macro này ngay.
Trong hộp thoại nhỏ bật lên, chọn thư mục Windows nơi lưu trữ tài liệu Word nguồn.
Ngay lập tức, một email mới sẽ được tạo, trong đó bạn có thể xem tệp đính kèm PDF các tập tin, giống như ảnh chụp màn hình sau đây.

Gặp rắc rối bởi sự cố Outlook

Bạn có bị làm phiền bởi các sự cố linh tinh của Outlook không? Ví dụ: Outlook thường xuyên bị kẹt ở trạng thái “không phản hồi” hoặc tệp PST của Outlook không thể truy cập được, v.v. Nói chung, trước tiên, bạn có thể thử công cụ sửa hộp thư đến, scanpst, để khắc phục sự cố PST. Tuy nhiên, đôi khi, các vấn đề có thể nằm ngoài khả năng của công cụ sẵn có. Do đó, bạn nên giữ một tiện ích bên ngoài mạnh mẽ hơn ở gần, chẳng hạn như DataNumen Outlook Repair.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa lỗi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm