ဘာသာရပ်မပါဘဲ Outlook အီးမေးလ်မပို့မီ ပထမစာကြောင်း၏ကိုယ်ထည်ကို ဘာသာရပ်အဖြစ် အလိုအလျောက်ယူနည်း

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

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

အကြောင်းအရာမပါဘဲ အီးမေးလ်မပို့မီ ပထမစာကြောင်းကို Subject အဖြစ် အလိုအလျောက်ယူပါ။

1. အစပိုင်းတွင်၊ Outlook အက်ပ်ကို စတင်ပါ။
2. ထို့နောက် "အဆင့်များအတိုင်း"သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"သင် VBA တည်းဖြတ်သူသို့ဝင်ရောက်နိုင်သည်။
3. ထို့နောက်၊ VBA တည်းဖြတ်မှုတွင်၊ “MS Word Object Lib” သို့ ရည်ညွှန်းချက်ကို ထည့်ပါ။rary” အရ “Object Lib ထည့်နည်းrary VBA တွင် အကိုးအကား"။
4. နောက်ပိုင်းတွင်၊ အောက်ပါကုဒ်ကို “ThisOutlookSession” ပရောဂျက်သို့ ကူးယူပါ။

Private WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail And Inspector.CurrentItem.Subject = "" Then
       Inspector.CurrentItem.Subject = " "
    End If
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objMailSelection As Word.Selection
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       If Len(Trim(objMail.Subject)) = 0 Then
          If MsgBox("No subject! Whether to take first line as subject?", vbQuestion + vbYesNo) = vbYes Then
             Set objMailDocument = objMail.GetInspector.WordEditor
             Set objMailSelection = objMailDocument.Application.Selection
 
             objMailDocument.Range(0, 0).Select
             objMailSelection.MoveEnd wdLine
 
             'Take first line of body as subject
             objMail.Subject = objMailSelection.Text
          End If
       End If
     End If
End Sub

5. ထို့နောက် “Application_S” တွင် cursor ထည့်ပါ။tartup” လုပ်ရိုးလုပ်စဉ်အခွဲနှင့် “F5” ကိုနှိပ်ပါ။
6. နောက်ဆုံးအနေနဲ့ စမ်းကြည့်လို့ရပါတယ်။

• ပထမဦးစွာ၊ အကြောင်းအရာချည်းသက်သက်ဖြင့် အီးမေးလ်တစ်ခုကို ဖန်တီးပြီး ရေးဖွဲ့ပါ။
• ထို့နောက် "Send" ခလုတ်ကိုနှိပ်ပါ။
• နောက်ပိုင်းတွင်၊ အကြောင်းအရာအဖြစ် ပထမစာကြောင်းကို ဘာသာရပ်အဖြစ် ခံယူမလားဟု မေးသည့် မက်ဆေ့ချ်ကို ရရှိမည်ဖြစ်သည်။
• “Yes” ခလုတ်ကို ရွေးချယ်သရွေ့၊ အီးမေးလ်စာကိုယ်၏ ပထမစာကြောင်းကို အကြောင်းအရာအဖြစ် ထုတ်ယူပြီး အသုံးပြုမည်ဖြစ်ပြီး အီးမေးလ်ကို ပေးပို့မည်ဖြစ်သည်။

သင်၏ Outlook ဒေတာကို လုံခြုံအောင်ထားပါ။

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

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

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