Kuinka erän muuntaa ja liittää useita Word-asiakirjoja PDF Tiedostot Outlook-sähköpostiosoitteeseen

Word-asiakirjan liittäminen a-muotoon on helppoa PDF tiedosto Outlook-sähköpostiin. Silti, jos haluat liittää useita Word-asiakirjoja nimellä PDF tiedostot sähköpostiin, voit lukea tämän artikkelin. Tässä näytämme sinulle menetelmän erän saamiseksi.

Word-asiakirjan liittäminen nimellä PDF tiedoston lähettämiseksi Outlook-sähköpostiin voit ensin avata Word-asiakirjan ja siirtyä "Tiedosto"-valikkoon. Sitten voit siirtyä "Tallenna ja lähetä" -välilehdelle, jossa on "Lähetä PDF-tiedostona" -painike, kuten seuraavassa kuvakaappauksessa.

Siten on melko yksinkertaista liittää Word-asiakirja nimellä PDF sähköpostiin. Mutta jos haluat muuntaa ja liittää useita Word-asiakirjoja nimellä PDF tiedostoja postitse, sinun on parempi käyttää seuraavaa tapaa. Sen avulla voit suorittaa sen irtotavarana.

Erä Muunna ja kiinnitä useita Word-asiakirjoja nimellä PDF Tiedostot sähköpostiin

1. Aloita keräämällä haluamasi Word-asiakirjat samaan Windows-kansioon.
2. Käynnistä sitten Outlook-ohjelma.
3. Kopioi seuraavaksi seuraava koodi käyttämättömään projektiin tai moduuliin.

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. Siirrä sen jälkeen kohdistin ensimmäiseen aliohjelmaan.
5. Suorita tämä makro heti painamalla “F5”.
6. Valitse ponnahdusikkunassa Windows-kansio, johon lähde-Word-asiakirjat on tallennettu.
7. Samalla luodaan uusi sähköpostiosoite, johon näet liitteenä olevan sähköpostin PDF tiedostoja, kuten seuraava screenshost.

Outlookin ongelmat vaivaavat

Onko sinua häirinnyt erilaiset Outlook-ongelmat? Esimerkiksi Outlook on usein jumissa "ei vastaa" -tilassa tai Outlookin PST-tiedosto ei ole käytettävissä jne. Yleensä voit ensin kokeilla postilaatikon korjaustyökalua, scanpst, korjata PST-ongelmat. Toisinaan ongelmat voivat kuitenkin ylittää sen, mitä sisäänrakennettu työkalu voi tehdä. Siksi kannattaa pitää tehokkaampi ulkoinen apuohjelma lähellä, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com