Kā partijā konvertēt un pievienot vairākus Word dokumentus kā PDF Faili uz Outlook e-pastu

Word dokumentu ir viegli pievienot kā PDF failu uz Outlook e-pastu. Tomēr, ja vēlaties pievienot vairākus Word dokumentus kā PDF failus uz e-pastu, varat izlasīt šo rakstu. Šeit mēs parādīsim metodi, kā to iegūt.

Lai pievienotu Word dokumentu kā PDF Lai nosūtītu failu uz Outlook e-pastu, vispirms atveriet Word dokumentu un dodieties uz izvēlni “Fails”. Pēc tam pārslēdzieties uz cilni “Saglabāt un sūtīt”, kurā ir poga “Sūtīt kā PDF”, kā parādīts tālāk redzamajā ekrānuzņēmumā.

Tādējādi ir diezgan vienkārši pievienot Word dokumentu kā PDF uz e-pastu. Bet, ja vēlaties konvertēt un pievienot vairākus Word dokumentus kā PDF failus uz pastu, jums labāk izmantot šādu veidu. Tas var ļaut jums to paveikt vairumā.

Partijas konvertēšana un pievienošana vairākiem Word dokumentiem kā PDF Faili uz e-pastu

1. Sākumā apkopojiet vajadzīgos Word dokumentus vienā Windows mapē.
2. Pēc tam palaidiet programmu Outlook.
3. Pēc tam nokopējiet šo kodu neizmantotā projektā vai 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. Pēc tam pārvietojiet kursoru pirmajā apakšprogrammā.
5. Pēc tam nospiediet “F5”, lai uzreiz palaistu šo makro.
6. Nelielajā uznirstošajā dialoglodziņā atlasiet Windows mapi, kurā tiek glabāti Word avota dokumenti.
7. Uzreiz tiks izveidots jauns e-pasts, kurā varat redzēt pievienoto PDF failus, piemēram, šādus screenhost.

Moka Outlook problēmas

Vai jūs satrauc dažādas Outlook problēmas? Piemēram, Outlook bieži iestrēgst stāvoklī “nereaģē”, vai Outlook PST fails kļūst nepieejams utt. Parasti vispirms varat izmēģināt iesūtnes labošanas rīku Scanpst, lai novērstu PST problēmas. Tomēr reizēm problēmas var būt ārpus iebūvētā rīka. Tāpēc labāk turēt tuvumā spēcīgāku ārēju utilītu, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar