Kako paketno pretvoriti in priložiti več besednih dokumentov kot PDF Datoteke v e-poštno sporočilo Outlook

Wordov dokument je enostavno priložiti kot PDF datoteko na Outlookovo e-pošto. Če pa želite priložiti več Wordovih dokumentov kot PDF datoteke na e-pošto, lahko preberete ta članek. Tukaj vam bomo pokazali način, kako ga serijsko dobiti.

Če želite priložiti Wordov dokument kot PDF Datoteko v Outlookovo e-pošto lahko najprej odprete Wordov dokument in pojdite v meni »Datoteka«. Nato lahko preklopite na zavihek »Shrani in pošlji«, na katerem je gumb »Pošlji kot PDF«, kot je prikazano na naslednjem posnetku zaslona.

Tako je zelo enostavno priložiti Wordov dokument kot PDF na e-pošto. Če pa želite pretvoriti in priložiti več dokumentov Word kot PDF datotek na pošto, raje uporabite naslednji način. To vam lahko omogoči v velikem obsegu.

Paket pretvori in priloži več besednih dokumentov kot PDF Datoteke na e-pošto

1. Za začetek zberite želene Wordove dokumente v isti mapi Windows.
2. Nato zaženite program Outlook.
3. Nato kopirajte naslednjo kodo v neuporabljeni projekt ali 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. Po tem premaknite kazalec v prvo podprogram.
5. Nato pritisnite “F5”, da takoj zaženete ta makro.
6. V pojavnem majhnem pogovornem oknu izberite mapo Windows, v kateri so shranjeni izvorni Wordovi dokumenti.
7. Takoj bo ustvarjen nov e-poštni naslov, v katerem boste videli priloženo PDF datoteke, kot je naslednja datoteka zaslona.

Prizadenejo težave v Outlooku

Vas motijo ​​različne težave z Outlookom? Na primer, Outlook je pogosto zataknjen v stanju »ne odziva« ali datoteka Outlook PST postane nedostopna itd. Na splošno lahko najprej poskusite orodje za popravilo mape »Prejeto«, scanpst, da odpravite težave s PST. Vendar včasih težave morda presegajo zmožnosti vgrajenega orodja. Zato raje imejte v bližini močnejši zunanji pripomoček, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com