Outlook အီးမေးလ်များကို ပရင့်ထုတ်ရန် တိကျသော ပရင်တာတစ်ခုကို အလိုအလျောက်အသုံးပြုနည်း

အီးမေးလ်များကို ပရင့်ထုတ်ရန် သတ်မှတ်ထားသော ပုံသေမဟုတ်သော ပရင်တာတစ်ခုကို အသုံးပြုရန် Outlook ကို သင်သတ်မှတ်၍မရပါ။ သို့သော် ဤဆောင်းပါးတွင်၊ Outlook VBA ဖြင့် ၎င်းကိုအောင်မြင်ရန် နည်းလမ်းတစ်ခုကို သင့်အား ပြသပါမည်။

သင့်ကွန်ပျူတာသည် ဤကွန်ပျူတာရှိ ပရိုဂရမ်အားလုံးကို အသုံးပြုမည့် ပုံသေပရင်တာအဖြစ် သတ်မှတ်ရပါမည်။ ဤကိစ္စတွင်၊ သင်သည် Outlook ရှိ ပုံသေမဟုတ်သော ပရင်တာမှတဆင့် အီးမေးလ်များကို ပရင့်ထုတ်လိုပါက၊ ပရင့်ထုတ်သည့်အခါတိုင်း ပရင်တာကို ပြောင်းလဲရပါမည်။ တော်တော်ဒုက္ခပေးတယ်။ ထို့ကြောင့်၊ အောက်ပါတို့၌၊ အကြိမ်တိုင်း ပရင်တာပြောင်းရန် မလိုအပ်ဘဲ အီးမေးလ်များအတွက် တိကျသော ပရင်တာတစ်ခုကို အလိုအလျောက်အသုံးပြုနည်းကို သင့်အား မျှဝေပါမည်။

အီးမေးလ်များကို ပရင့်ထုတ်ရန် တိကျသော ပရင်တာတစ်ခုကို အလိုအလျောက် အသုံးပြုပါ။

1. အစပိုင်းမှာ Outlook application ကိုစတင်ပါ။
2. ထို့နောက် ပင်မ Outlook ဝင်းဒိုးတွင် “Alt + F11” သော့ခလုတ်များကို နှိပ်ပါ။
3. ထို့နောက် “Microsoft Visual Basic for Applications” ဝင်းဒိုးတွင်၊ ဦးစွာ “Microsoft Word object Library” ကိုဖွင့်ရန်လိုအပ်သည်။ ၎င်းကိုရရှိရန် 'Tools” > “Reference” ကိုနှိပ်နိုင်သည်။
4. ထို့နောက် ဗလာ module တစ်ခုကို သင်ဝင်ရောက်ရန်လိုအပ်သည်။
5. ထို့နောက်၊ အောက်ပါ VBA ကုဒ်ကို ဤ module ထဲသို့ ကူးယူပြီး ကူးထည့်ပါ။

Sub PrintEmail()
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objWordApp As Word.Application
    Dim strTempFolder As String
    Dim strMailDocument As String
    Dim objMailDocument As Word.Document
    Dim strPrinter As String

    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objItem = ActiveInspector.CurrentItem
           Case olExplorer
                Set objItem = ActiveExplorer.Selection.Item(1)
    End Select
 
    If TypeOf objItem Is MailItem Then
       Set objMail = objItem
 
       Set objWordApp = CreateObject("Word.Application")
       strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
       strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
       objMail.SaveAs strMailDocument, olDoc
 
       Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
       objWordApp.Visible = True
       objMailDocument.Activate
 
       strPrinter = objWordApp.ActivePrinter
       'Change to the name of specific printer
       objWordApp.ActivePrinter = "Specific Printer"
       objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
       objWordApp.ActivePrinter = strPrinter
 
       objMailDocument.Close False
       objWordApp.Quit
       Kill strMailDocument
    End If
End Sub

6. ၎င်းနောက်၊ သင်သည်လက်ရှိဝင်းဒိုးကိုပိတ်နိုင်သည်။
7. ထို့နောက် “File” menu သို့သွား၍ “Options” ကိုနှိပ်ပါ။
8. “Outlook Options” ဝင်းဒိုးတွင်၊ “Quick Access Toolbar” တက်ဘ်သို့ပြောင်းပြီး ပုံမှန်အတိုင်း Quick Access Toolbar သို့ မက်ခရိုအသစ်ကို ထည့်ပါ။
9. နောက်ဆုံးတွင် သင်သည် ဤ VBA ပရောဂျက်ကို စမ်းသုံးနိုင်သည်။

• ပထမဦးစွာ သင်သည် ပရင့်ထုတ်လိုသော အီးမေးလ်ကို ရွေးပါ သို့မဟုတ် ဖွင့်ပါ။
• ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• အီးမေးလ်ကို သတ်သတ်မှတ်မှတ် ပရင်တာမှ တပြိုင်နက် ပရင့်ထုတ်မည်ဖြစ်သည်။

10. ယခုမှစ၍၊ သီးခြားပရင်တာဖြင့် အီးမေးလ်များကို ပရင့်ထုတ်ရန်၊ သင်သည် ဤ macro ကိုသာ အသုံးပြုနိုင်သည်။

မတော်တဆ အကျင့်ပျက်ခြစားမှုပြီးနောက် Outlook ကို ပြန်လည်ရယူပါ။

Outlook ဒေတာတွေ ပျောက်ဆုံးမသွားအောင် ကာကွယ်ဖို့အတွက် ကြိုးစားအားထုတ်မှုတွေ အများကြီးလုပ်ရပါမယ်။ ဥပမာအားဖြင့် PST ဖိုင်ကို ပုံမှန် backup လုပ်ထားသင့်ပါတယ်။ ပြင်ပပြုပြင်ရေးကိရိယာတစ်ခုလိုမျိုး ကိရိယာတစ်ခုကို ရယူဖို့ အကြံပြုလိုပါတယ်။ DataNumen Outlook Repair။ ဖြစ်နိုင်ပါသည် PST ကိုပြင်ပါ။ အမှားများနှင့် သင့်အတွက် အများဆုံး Outlook ဒေတာကို ပြန်လည်ရယူပါ။

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

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