Qanday qilib bir nechta Word hujjatlarini to'plamga aylantirish va biriktirish PDF Outlook elektron pochtasiga fayllar

Word hujjatini ilova sifatida biriktirish oson PDF faylni Outlook elektron pochtasiga yuboring. Shunga qaramay, agar siz bir nechta Word hujjatlarini biriktirmoqchi bo'lsangiz PDF fayllarni elektron pochtaga yuborsangiz, ushbu maqolani o'qishingiz mumkin. Bu erda biz uni to'plash usulini ko'rsatamiz.

Word hujjatini qo'shish uchun PDF Faylni Outlook elektron pochtasiga o'tkazish uchun avval Word hujjatini ochib, "Fayl" menyusiga o'tishingiz mumkin. Keyin, quyidagi skrinshotdagi kabi "PDF sifatida yuborish" tugmasi mavjud bo'lgan "Saqlash va yuborish" yorlig'iga o'tishingiz mumkin.

Shunday qilib, Word hujjatini qo'shish juda oddiy PDF elektron pochtaga. Ammo, agar siz bir nechta Word hujjatlarini o'zgartirmoqchi va biriktirmoqchi bo'lsangiz PDF fayllarni pochtaga yuborsangiz, quyidagi usuldan foydalanganingiz ma'qul. Bu sizga uni ommaviy ravishda bajarishga imkon beradi.

Bir nechta Word hujjatlarini to'plamga aylantirish va biriktirish PDF Elektron pochtaga fayllar

1. Boshlash uchun, kerakli Word hujjatlarini bir xil Windows papkasida to'plang.
2. Keyin Outlook dasturini ishga tushiring.
3. Keyin, foydalanilmagan loyiha yoki modulga quyidagi kodni nusxalang.

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. Shundan so'ng, kursorni birinchi pastki dasturga o'tkazing.
5. Keyinchalik, ushbu makrosni darhol ishga tushirish uchun "F5" tugmasini bosing.
6. Qalqib chiquvchi kichik dialog oynasida manba Word hujjatlari saqlanadigan Windows papkasini tanlang.
7. Bir vaqtning o'zida yangi elektron pochta yaratiladi, unda siz biriktirilganlarni ko'rishingiz mumkin PDF quyidagi screenhost kabi fayllar.

Outlook bilan bog'liq muammolar

Turli xil Outlook muammolari sizni bezovta qilyaptimi? Masalan, Outlook tez-tez "javob bermayapti" holatida qolib ketadi yoki Outlook PST fayliga kirish imkoni bo'lmaydi va hokazo. Umuman olganda, siz avval pochta qutisini tuzatish vositasini sinab ko'rishingiz mumkin, Scanpst, PST muammolarini tuzatish uchun. Biroq, ba'zida muammolar o'rnatilgan vosita qila oladigan narsadan tashqarida bo'lishi mumkin. Shuning uchun, yaqinroqda kuchliroq tashqi yordamchi dasturni saqlang, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com