Birden Çok Word Belgesini Toplu Olarak Dönüştürme ve Ekleme PDF Outlook E-postasına Dosyalar

Bir Word belgesini dosya olarak eklemek kolaydır. PDF dosyasını bir Outlook e-postasına gönderin. Yine de, birden çok Word belgesini şu şekilde eklemek isterseniz: PDF dosyaları bir e-postaya, bu makaleyi okuyabilirsiniz. Burada size onu elde etmek için bir yöntem göstereceğiz.

Bir Word belgesini şu şekilde eklemek için PDF Bir dosyayı Outlook e-postasına göndermek için öncelikle Word belgesini açın ve "Dosya" menüsüne gidin. Ardından, aşağıdaki ekran görüntüsünde olduğu gibi "PDF olarak gönder" düğmesinin bulunduğu "Kaydet ve Gönder" sekmesine geçebilirsiniz.

Böylece, bir Word belgesini şu şekilde eklemek oldukça basittir: PDF bir e-postaya. Ancak, birden çok Word belgesini şu şekilde dönüştürmek ve eklemek isterseniz: PDF dosyaları bir postaya gönderirseniz, aşağıdaki yolu kullanmanız daha iyi olur. Toplu olarak gerçekleştirmenize izin verebilir.

Birden Çok Word Belgesini Toplu Olarak Dönüştürün ve Ekleyin PDF Bir E-postaya Dosyalar

1. Öncelikle, istediğiniz Word belgelerini aynı Windows klasöründe bir araya getirin.
2. Ardından, Outlook programını başlatın.
3. Ardından, aşağıdaki kodu kullanılmayan bir projeye veya modüle kopyalayın.

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. Bundan sonra, imleci ilk alt programa getirin.
5. Ardından, bu makroyu hemen çalıştırmak için “F5” tuşuna basın.
6. Açılan küçük iletişim kutusunda, kaynak Word belgelerinin depolandığı Windows klasörünü seçin.
7. Hemen, ekli görebileceğiniz yeni bir e-posta oluşturulacak. PDF Aşağıdaki screenshost gibi dosyalar.

Outlook Sorunlarından Kurtulmak

Çeşitli Outlook sorunlarından rahatsız mısınız? Örneğin, Outlook sık sık "yanıt vermiyor" durumunda kalıyor veya Outlook PST dosyasına erişilemiyor vb. Genel olarak, önce gelen kutusu onarım aracını deneyebilir, Tarama, PST sorunlarını düzeltmek için. Yine de bazen sorunlar yerleşik aracın yapabileceklerinin ötesinde olabilir. Bu nedenle, yakınınızda daha güçlü bir harici yardımcı program bulundurmanız daha iyi olur, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql onarımı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com