Cara Batch Convert & Attach Multiple Word Documents sebagai PDF File ke Email Outlook

Mudah untuk melampirkan dokumen Word sebagai file PDF file ke email Outlook. Namun, jika Anda ingin melampirkan banyak dokumen Word sebagai PDF file ke email, Anda dapat membaca artikel ini. Di sini kami akan menunjukkan kepada Anda metode untuk mendapatkan batch.

Untuk melampirkan dokumen Word sebagai PDF Untuk mengirim file ke email Outlook, pertama-tama Anda dapat membuka dokumen Word dan masuk ke menu "File". Kemudian, Anda dapat beralih ke tab "Simpan & Kirim", di mana terdapat tombol "Kirim sebagai PDF", seperti tangkapan layar berikut.

Jadi, cukup mudah untuk melampirkan dokumen Word sebagai PDF ke email. Tetapi, jika Anda ingin mengonversi dan melampirkan banyak dokumen Word sebagai PDF file ke email, Anda lebih baik menggunakan cara berikut. Ini dapat membuat Anda menyelesaikannya secara massal.

Konversi Batch & Lampirkan Beberapa Dokumen Word sebagai PDF File ke Email

1. Sebagai langkah awal, kumpulkan dokumen Word yang Anda inginkan dalam folder Windows yang sama.
2. Kemudian, luncurkan program Outlook.
3. Selanjutnya, salin kode berikut ke dalam proyek atau modul yang tidak digunakan.

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. Setelah itu, pindahkan kursor ke subrutin pertama.
5. Selanjutnya, tekan "F5" untuk langsung menjalankan makro ini.
6. Di kotak dialog kecil popup, pilih folder Windows tempat dokumen Word sumber disimpan.
7. Segera, email baru akan dibuat, di mana Anda dapat melihat lampirannya PDF file, seperti tangkapan layar berikut.

Diganggu oleh Masalah Outlook

Apakah Anda terganggu oleh masalah Outlook lain-lain? Misalnya, Outlook sering macet dalam status "tidak merespons" atau file PST Outlook menjadi tidak dapat diakses, dll. Secara umum, Anda dapat mencoba alat perbaikan kotak masuk terlebih dahulu, scanpst, untuk memperbaiki masalah PST. Namun, terkadang, masalahnya mungkin melebihi apa yang dapat dilakukan alat bawaan. Oleh karena itu, Anda sebaiknya menyimpan utilitas eksternal yang lebih kuat di sekitarnya, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaikan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com