Birdən çox Word Sənədini Toplu Konvertasiya etmək və Əlavə etmək necə PDF Fayllar Outlook E-poçtuna

Word sənədini əlavə etmək asandır PDF faylı Outlook e-poçtuna göndərin. Bununla belə, birdən çox Word sənədini əlavə etmək istəyirsinizsə PDF faylları e-poçta göndərsəniz, bu məqaləni oxuya bilərsiniz. Burada onu toplu şəkildə əldə etməyin üsulunu göstərəcəyik.

Word sənədini əlavə etmək üçün PDF Faylı Outlook e-poçtuna köçürmək üçün əvvəlcə Word sənədini açıb "Fayl" menyusuna keçə bilərsiniz. Daha sonra, aşağıdakı ekran görüntüsündə olduğu kimi, "PDF kimi göndər" düyməsinin yerləşdiyi "Saxla və Göndər" sekmesine keçə bilərsiniz.

Beləliklə, Word sənədini əlavə etmək olduqca sadədir PDF e-poçta. Ancaq birdən çox Word sənədini çevirmək və əlavə etmək istəyirsinizsə PDF faylları poçta göndərmək üçün aşağıdakı üsuldan istifadə etmək daha yaxşıdır. Onu toplu şəkildə yerinə yetirməyə imkan verə bilər.

Birdən çox Word Sənədini Toplu Çevirin və Əlavə edin PDF E-poçta fayllar

1. Başlamaq üçün istədiyiniz Word sənədlərini eyni Windows qovluğunda toplayın.
2. Sonra Outlook proqramını işə salın.
3. Sonra, aşağıdakı kodu istifadə olunmamış layihə və ya modula köçürün.

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. Bundan sonra kursoru birinci alt proqrama keçirin.
5. Sonra bu makronu dərhal işə salmaq üçün “F5” düyməsini sıxın.
6. Açılan kiçik dialoq qutusunda mənbə Word sənədlərinin saxlandığı Windows qovluğunu seçin.
7. Dərhal yeni e-poçt yaradılacaq, orada əlavələri görə bilərsiniz PDF aşağıdakı screenhost kimi fayllar.

Outlook problemləri ilə üzləşdi

Müxtəlif Outlook problemləri sizi narahat edir? Məsələn, Outlook tez-tez "cavab vermir" vəziyyətində qalır və ya Outlook PST faylı əlçatmaz olur və s. Ümumiyyətlə, əvvəlcə gələnlər qutusunu təmir alətini sınaya bilərsiniz, scanpst, PST problemlərini həll etmək üçün. Bununla belə, bəzən problemlər daxili alətin edə biləcəyindən çox ola bilər. Buna görə də, daha güclü xarici yardım proqramını yaxınlıqda saxlamağınız daha yaxşıdır, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com