Ako dávkovať previesť a pripojiť viac dokumentov Word ako PDF Súbory do e-mailu programu Outlook

Je ľahké pripojiť dokument Word ako PDF súbor do e-mailu Outlooku. Ak však chcete priložiť viac dokumentov Word ako PDF súborov na e-mail, môžete si prečítať tento článok. Tu vám ukážeme spôsob, ako ho získať hromadne.

Ak chcete pripojiť dokument Word ako PDF súbor do e-mailu Outlooku, môžete najskôr otvoriť dokument Word a prejsť do ponuky „Súbor“. Potom môžete prepnúť na kartu „Uložiť a odoslať“, na ktorej je „Poslať ako PDF”, Podobne ako na nasledujúcej snímke obrazovky.

Je teda celkom jednoduché pripojiť dokument Word ako PDF na email. Ale ak chcete previesť a priložiť viac dokumentov Word ako PDF súborov do e-mailu, budete na tom lepšie nasledujúcim spôsobom. Môže vás to dosiahnuť hromadne.

Dávkové previesť a pripojiť viac dokumentov Word ako PDF Súbory na e-mail

1. Pre akotart, zhromaždite požadované dokumenty Wordu do rovnakého priečinka Windows.
2. Potom spustite program Outlook.
3. Ďalej skopírujte nasledujúci kód do nepoužívaného projektu alebo modulu.

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. Potom posuňte kurzor na prvý podprogram.
5. Následne stlačte „F5“, aby ste toto makro ihneď spustili.
6. V malom vyskakovacom dialógovom okne vyberte priečinok Windows, kde sú uložené zdrojové dokumenty programu Word.
7. Okamžite sa vytvorí nový e-mail, v ktorom vidíte priložený PDF súbory, ako napríklad nasledujúca obrazovkaost.

Sťažujú sa problémy s programom Outlook

Vyrušujú vás rôzne problémy s programom Outlook? Napríklad Outlook je často uviaznutý v stave „neodpovedá“ alebo je súbor Outlook PST neprístupný atď. Spravidla najskôr môžete vyskúšať nástroj na opravu doručenej pošty, Scanpst, na opravu problémov s PST. Problémy však niekedy môžu byť nad rámec toho, čo dokáže zabudovaný nástroj. Preto si radšej nechajte v okolí silnejší externý nástroj, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S