Multiple Word Documents အဖြစ် Batch Convert နှင့် Attach လုပ်နည်း PDF Outlook Email သို့ ဖိုင်များ

Word Document တစ်ခုအနေဖြင့် ပူးတွဲရန်လွယ်ကူသည်။ PDF Outlook အီးမေးလ်သို့ဖိုင်။ သို့တိုင် သင်သည် Word စာရွက်စာတမ်းများစွာကို ပူးတွဲတင်ပြလိုလျှင် PDF အီးမေးလ်တစ်ခုသို့ဖိုင်များ၊ ဤဆောင်းပါးကိုသင်ဖတ်နိုင်သည်။ ဤနေရာတွင် batch ရယူနည်းကို သင်ပြပါမည်။

Word Document ကဲ့သို့ ပူးတွဲဆောင်ရွက်ရန် PDF Outlook အီးမေးလ်တစ်ခုသို့ ဖိုင်တစ်ခုပို့ရန်၊ ဦးစွာ Word စာရွက်စာတမ်းကိုဖွင့်ပြီး “File” မီနူးသို့သွားနိုင်သည်။ ထို့နောက် “Save & Send” tab သို့ပြောင်းနိုင်သည်၊ ၎င်းတွင် အောက်ပါ screenshot ကဲ့သို့ “Send as PDF” ခလုတ်ရှိသည်။

ထို့ကြောင့် Word document တစ်ခုကို ပူးတွဲရန်မှာ အလွန်ရိုးရှင်းပါသည်။ PDF အီးမေးလ်တစ်ခုသို့ သို့သော် သင်သည် Word document အများအပြားကို convert လုပ်ပြီး ပူးတွဲလိုလျှင် PDF mail သို့ ဖိုင်များ ပို့ခြင်း ၊ သင်သည် အောက်ပါ နည်းလမ်းကို အသုံးပြု၍ ပိုမိုကောင်းမွန်ပါသည်။ ၎င်းသည် သင့်အား အစုလိုက်အပြုံလိုက် ပြီးမြောက်စေနိုင်သည်။

Batch Convert & Attach အဖြစ် Multiple Word Documents PDF အီးမေးလ်သို့ ဖိုင်များ

1. အစပြုရန်အတွက်၊ သင်လိုချင်သော Word စာရွက်စာတမ်းများကို Windows folder တစ်ခုတည်းတွင်စုဆောင်းပါ။
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. ထို့နောက် ဤ macro ကိုချက်ချင်းလုပ်ဆောင်ရန် "F5" ကိုနှိပ်ပါ။
6. ပေါ်လာသော သေးငယ်သော ဒိုင်ယာလော့ခ်ဘောက်စ်တွင်၊ အရင်းအမြစ် Word စာရွက်စာတမ်းများကို သိမ်းဆည်းထားသည့် Windows ဖိုင်တွဲကို ရွေးချယ်ပါ။
7. ပူးတွဲပါဖိုင်ကို သင်တွေ့မြင်နိုင်စေမည့် အီးမေးလ်အသစ်ကို တစ်ချိန်တည်းတွင် ဖန်တီးမည်ဖြစ်သည်။ PDF အောက်ပါ screenhost ကဲ့သို့သော ဖိုင်များ။

Outlook ပြဿနာများဖြင့် နပမ်းလုံးနေပါသည်။

အမျိုးမျိုးသော Outlook ပြဿနာများကြောင့် သင်သည် စိတ်အနှောင့်အယှက်ဖြစ်ပါသလား။ ဥပမာအားဖြင့်၊ Outlook သည် "မတုံ့ပြန်ခြင်း" အခြေအနေတွင် မကြာခဏ ပိတ်မိနေပါသည် သို့မဟုတ် Outlook PST ဖိုင်သည် လက်လှမ်းမမီနိုင်ဖြစ်လာခြင်း စသည်တို့ဖြစ်သည်။ ယေဘုယျအားဖြင့် သင်သည် inbox ပြုပြင်ခြင်း tool ကို ဦးစွာ စမ်းသုံးနိုင်သည်။ scanpstPST ပြဿနာများကိုဖြေရှင်းရန်။ သို့တိုင်၊ တစ်ခါတစ်ရံတွင်၊ တပ်ဆင်ထားသောကိရိယာသည် လုပ်ဆောင်နိုင်သည့်အရာထက် ကျော်လွန်သွားနိုင်သည်။ ထို့ကြောင့်၊ သင်သည်ထိုကဲ့သို့သော အနီးအနားတွင် ပိုမိုအားကောင်းသော ပြင်ပအသုံးအဆောင်တစ်ခုကို ထိန်းသိမ်းထားသင့်သည်။ DataNumen Outlook Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ပြုပြင်ခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com