Ինչպես խմբաքանակի փոխարկել և կցել մի քանի բառի փաստաթղթեր, ինչպես PDF Ֆայլեր դեպի Outlook էլ. Փոստ

Հեշտ է Word փաստաթուղթը կցել որպես PDF ֆայլ ուղարկել Outlook էլ. փոստին: Այնուամենայնիվ, եթե ցանկանում եք կցել բազմաթիվ Word փաստաթղթեր, ինչպես նաև PDF ֆայլեր էլ. փոստով, կարող եք կարդալ այս հոդվածը: Այստեղ մենք ձեզ ցույց կտանք այն խմբաքանակ ստանալու համար:

Word փաստաթուղթը կցել որպես PDF ֆայլ ուղարկեք Outlook էլ. փոստին, նախ կարող եք բացել Word փաստաթուղթը և անցնել «Պատկեր» ընտրացանկին: Դրանից հետո կարող եք անցնել «Պահել և ուղարկել» ներդիրին, որի վրա կա «Ուղարկել որպես» PDF”Կոճակը, ինչպես հետևյալ սքրինշոթը:

Այսպիսով, բավականին պարզ է կցել Word փաստաթուղթը, ինչպես PDF էլ. Բայց, եթե ցանկանում եք փոխակերպել և կցել բազմաթիվ Word փաստաթղթեր, ինչպես PDF ֆայլերը փոստով, ավելի լավ է օգտագործել հետևյալ ձևը. Դա կարող է թույլ տալ, որ այն մեծ մասամբ կատարեք:

Փաթեթային փոխարկել և կցել բազմաթիվ բառերի փաստաթղթեր, ինչպես PDF Ֆայլեր էլ

1. Համար, ինչպեսtart, հավաքեք Word փաստաթղթերը, որոնք ցանկանում եք նույն Windows պանակում:
2. Դրանից հետո գործարկեք Outlook ծրագիրը:
3. Հաջորդը, պատճենեք հետևյալ կոդը չօգտագործված նախագծում կամ մոդուլում:

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. Դրանից հետո կուրսորը տեղափոխեք առաջին ենթածրագիր:
5. Դրանից հետո սեղմեք «F5» ՝ այս մակրոտն անմիջապես գործարկելու համար:
6. Փոխարկվող փոքր երկխոսության դաշտում ընտրեք Windows պանակը, որտեղ պահվում են աղբյուրի Word փաստաթղթերը:
7. Միանգամից կստեղծվի նոր նամակ, որում կտեսնեք կցվածը PDF ֆայլեր, ինչպես հետևյալ սքրինշոթըost.

Տանջվում է Outlook Troubles- ի կողմից

Ձեզ անհանգստացնու՞մ են Outlook- ի տարատեսակ խնդիրները: Օրինակ, Outlook- ը հաճախ մնում է «չպատասխանող» վիճակում կամ Outlook PST ֆայլը դառնում է անհասանելի, և այլն: Ընդհանուր առմամբ, նախ կարող եք փորձել մուտքի արկղի վերանորոգման գործիք, Սկանպստ, PST- ի խնդիրները շտկելու համար: Այնուամենայնիվ, երբեմն խնդիրները կարող են լինել ավելին, ինչ կարող է անել ներկառուցված գործիքը: Հետևաբար, ավելի լավ է ձեր տարածքում պահեք ավելի ուժեղ արտաքին օգտակար ծառայություն, ինչպես, օրինակ DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql վերանորոգում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com