Wéi Batch Convertéieren & Befestegt Multiple Word Dokumenter als PDF Dateien an eng Outlook E-Mail

Et ass einfach e Word Dokument als e PDF Datei an eng Outlook E-Mail. Wéi och ëmmer, wann Dir e puer Word-Dokumenter wéi PDF Dateien op eng E-Mail, kënnt Dir dësen Artikel liesen. Hei weisen mir Iech eng Method fir et batch ze kréien.

Fir e Word-Dokument als PDF Fichier op eng Outlook E-Mail, kënnt Dir als éischt d'Word-Dokument opmaachen an op de Menü "Datei" goen. Da kënnt Dir op de Tab "Späicheren & Schécken" wiesselen, op deem et e "Schécken als". PDF" Knäppchen, wéi de folgende Screenshot.

Also ass et zimmlech einfach e Word Dokument ze befestegt als PDF an eng E-Mail. Awer, wann Dir wëllt méi Word Dokumenter konvertéieren an befestigen wéi PDF Dateien op eng Mail, Dir sidd besser op de folgende Wee ze benotzen. Et kann Iech et am bulk erreechen.

Batch Convertéieren & Befestegt Multiple Word Dokumenter als PDF Dateien an eng E-Mail

1. Fir astart, sammelt d'Word Dokumenter déi Dir wëllt am selwechte Windows Dossier.
2. Dann starten Outlook Programm.
3. Als nächst kopéiert de folgende Code an en onbenotzten Projet oder 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 Every objFile In objFolder.Files strFileExtension = objFileSystem.GetExtensionName(objFile) If LCFileExtension(strFileExtension)(strFileExtension) ) = "docx" Dann Set objWordApp = CreateObject("Word.Application") Set objWordDocument = objWordApp.Documents.Open(objFile.Path) 'Dokument konvertéieren op 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 per E-Mail an objMail.Attachments.Add strPDF

           Kill strPDF
        End If Next 'Process all folders and subfolders If objFolder.SubFolders.Count > 0 Then For Every objSubfolder In objFolder.SubFolders If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Dann ProcessFolders (objSubfolder.Path) Enn Wann nächst Enn Wann Enn Sub

4. Duerno réckelt de Cursor an déi éischt Subroutine.
5. Duerno dréckt op "F5" fir dëse Makro direkt auszeféieren.
6. An der klenger Popup-Dialogbox, wielt de Windows Dossier wou d'Quell Word-Dokumenter gespäichert sinn.
7. Op eemol gëtt eng nei E-Mail erstallt, an där Dir déi befestegt gesinn PDF Dateien, wéi de folgende Screenshost.

Geplëmmt vun Outlook Troubles

Sidd Dir vun verschiddenen Outlook Problemer gestéiert? Zum Beispill, Outlook ass dacks am "net reagéiert" Staat hänke bliwwen oder Outlook PST Datei gëtt onzougänglech, etc. Am Allgemengen, kënnt Dir éischt Inbox Reparatur Tool probéieren, scanpst, fir PST Themen ze fixéieren. Awer heiansdo kënnen d'Problemer doriwwer eraus sinn wat den inbuilt Tool maache kann. Dofir sollt Dir besser e méi potenten externen Utility an der Géigend halen, wéi z DataNumen Outlook Repair.

Auteur Aféierung:

Shirley Zhang ass en Daten Erhuelung Expert an DataNumen, Inc., deen de weltwäite Leader an Daten Erhuelung Technologien ass, dorënner sql Reparatur an Ausbléck Reparatur Software Produiten. Fir méi Informatiounen besicht www.datanumen.com