Kako grupno pretvoriti i priložiti više Word dokumenata kao PDF Datoteke na Outlook e-poštu

Lako je priložiti Word dokument kao a PDF datoteku na Outlook e-poštu. Ipak, ako želite da priložite više Word dokumenata kao PDF datoteke na e-mail, možete pročitati ovaj članak. Ovdje ćemo vam pokazati metodu da ga dobijete u paketu.

Da priložite Word dokument kao PDF Da biste datoteku poslali u Outlook e-poštu, prvo možete otvoriti Word dokument i otići u meni "Datoteka". Zatim možete preći na karticu "Sačuvaj i pošalji", na kojoj se nalazi dugme "Pošalji kao PDF", kao na sljedećem snimku ekrana.

Dakle, vrlo je jednostavno priložiti Word dokument kao PDF na email. Ali, ako želite da konvertujete i priložite više Word dokumenata kao PDF datoteke na e-mail, bolje je koristiti sljedeći način. Može vam omogućiti da to postignete u velikom broju.

Paketno pretvoriti i priložiti više Word dokumenata kao PDF Fajlovi na e-poštu

1. Za početak, prikupite Word dokumente koje želite u istu Windows mapu.
2. Zatim pokrenite Outlook program.
3. Zatim kopirajte sljedeći kod u nekorišteni projekt ili modul.

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. Nakon toga, pomaknite kursor u prvi potprogram.
5. Nakon toga, pritisnite “F5” da odmah pokrenete ovaj makro.
6. U iskačućem malom dijaloškom okviru odaberite Windows folder u kojem su pohranjeni izvorni Word dokumenti.
7. Odjednom će biti kreiran novi email u kojem možete vidjeti prilog PDF datoteke, kao što je sljedeći host ekrana.

Muče problemi sa Outlookom

Smetaju li vas razni problemi sa Outlookom? Na primjer, Outlook se često zaglavi u stanju „ne reagira“ ili Outlook PST datoteka postaje nedostupna, itd. Općenito, prvo možete isprobati alat za popravak pristigle pošte, scanpst, da popravite probleme sa PST-om. Ipak, s vremena na vrijeme, problemi mogu biti izvan onoga što ugrađeni alat može učiniti. Stoga je bolje da u blizini držite moćniji vanjski uslužni program, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql repair i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com