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 ako Outlook.MailItem Sub BatchAttachMultipleWordDocumentsAsPDFToEmail () Dim objShell As Object Dim objWindowsFolder As Object Dim strWindowsFolder As String Set objMail = Outlook.Application.CreateItem (olMailItem) 'Vyberte konkrétny priečinok Windows Set objShell = CreateObject ("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder ( 0, "Vyberte priečinok Windows:", 0, "") Ak nie je objWindowsFolder nič, potom strWindowsFolder = objWindowsFolder.self.Path & "\" Zavolajte ProcessFolders (strWindowsFolder) objMail.Display Koniec Ak Koniec 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) ifExtension (objFile) If LC ) = "docx" Potom Set objWordApp = CreateObject ("Word.Application") Set objWordDocument = objWordApp.Documents.Open (objFile.Path) 'Konvertovať dokument na pdf
           strDocumentName = vľavo (objWordDocument.Name, (Len (objWordDocument.Name) - Len (strFileExtension)) - 1) strPDF = strPath & strDocumentName & ".pdf"objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Close False 'Pripojte pdf na e-mail objMail.Attachments.Add strPDF

           Zabiť strPDF
        End If Next 'Spracovať všetky priečinky a podpriečinky If objFolder.SubFolders.Count> 0 Potom Pre každý objSubfolder V objFolder.SubFolders If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then ProcessFolders (objSubfolder.Path) Koniec Ak Nasledujúci Koniec Ak Koniec 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