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

Lako je priložiti Word dokument kao PDF datoteku u Outlook e-poštu. Ipak, ako želite priložiti više Word dokumenata kao PDF datoteke na e-poštu, možete pročitati ovaj članak. Ovdje ćemo vam pokazati metodu za grupno dobivanje.

Za prilaganje Word dokumenta kao PDF datoteku u Outlook e-poštu, prvo možete otvoriti Word dokument i otići na izbornik "Datoteka". Zatim se možete prebaciti na karticu "Spremi i pošalji" na kojoj se nalazi gumb "Pošalji kao PDF", kao na sljedećoj snimci zaslona.

Dakle, vrlo je jednostavno priložiti Word dokument kao PDF na e-mail. Ali, ako želite pretvoriti i priložiti više Word dokumenata kao PDF datoteke u e-poštu, bolje je koristiti sljedeći način. Može vam omogućiti da to postignete u rasutom stanju.

Skupno pretvaranje i prilaganje više Word dokumenata kao PDF Datoteke na e-poštu

1. Za početak, skupite željene Word dokumente u istu mapu sustava Windows.
2. Zatim pokrenite program Outlook.
3. Zatim kopirajte sljedeći kod u neiskoriš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 biste odmah pokrenuli ovu makronaredbu.
6. U skočnom malom dijaloškom okviru odaberite Windows mapu u kojoj su pohranjeni izvorni Word dokumenti.
7. Odmah će se kreirati nova e-pošta u kojoj možete vidjeti privitak PDF datoteke, poput sljedećeg hosta zaslona.

Muče ga Outlook problemi

Muče vas razni problemi s Outlookom? Na primjer, Outlook je često zapeo u stanju "ne odgovara" ili Outlook PST datoteka postaje nedostupna, itd. Općenito, prvo možete isprobati alat za popravak pristigle pošte, scanpst, za rješavanje problema s PST-om. Ipak, ponekad problemi mogu biti veći od onoga što ugrađeni alat može učiniti. Stoga je bolje da u blizini držite snažniji vanjski alat, kao što je npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com