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

အချို့သောလူများသည် အီးမေးလ်ကို အလံပြသည့်အခါ အလိုအလျောက် သို့မဟုတ် အမြန်ဖန်တီးရန် ဆန္ဒရှိကြသည်။ ဤဆောင်းပါးသည် Outlook VBA ဖြင့် ၎င်းကိုနားလည်ရန် ချဉ်းကပ်နည်းကို မိတ်ဆက်ပေးပါမည်။

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

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

1. ပထမတွင်၊ "Developer" tab သို့ပြောင်းပြီး "Code" အုပ်စုရှိ "Visual Basic" ခလုတ်ကိုနှိပ်ပါ။
2. ထို့နောက် "Microsoft Visual Basic for Applications" ဝင်းဒိုးအသစ်တွင်၊ ဤပရောဂျက်ကိုဖွင့်ရန် "ThisOutlookSession" ကို နှစ်ချက်နှိပ်ရပါမည်။
3. ထို့နောက် အောက်ပါ VBA ကုဒ်များကို ကော်ပီကူးပြီး ၎င်းထဲသို့ ကူးထည့်ပါ။

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim oAppt As AppointmentItem
    Dim strMsg As String
    Dim nRes As Integer
 
    On Error Resume Next
 
    If TypeName(Item) = "MailItem" And Item.IsMarkedAsTask = True Then
       strMsg = "Do you want to create a new appointment"
       nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Creating Appointment")
       If nRes = vbYes Then
          Set oAppt = Application.CreateItem(olAppointmentItem)
          With oAppt
               .Subject = "New Appt: " & Item.Subject
               .Location = InputBox("Enter the Location, please.")
               'Type the concrete time, such as "12/29/2015 15:30"
               .Start = InputBox("Enter a specific time (format: MM/DD/YYYY hh:mm), please.")
               .Duration = 120
               .Body = "New Appointment: " & vbCrLf & vbCrLf & Item.Body
               .Attachments.Add Item
               .ReminderSet = True
               .ReminderMinutesBeforeStart = 30
               'Use ".Save" to directly save the new appointment
               .Display
          End With
       End If
 
      'To clear the flag on the email
      'If you want to keep email flagged, remove the following 4 lines
       With Item
            .ClearTaskFlag
            .Save
       End With
    End If
End Sub

4. နောက်ပိုင်းတွင်၊ သင်သည် လက်မှတ်အသစ်တစ်ခုဖန်တီးရန်နှင့် လက်ရှိ “ThisOutlookSession” ပရောဂျက်များကို လက်မှတ်ရေးထိုးရန် "Digital Certificate for VBA Projects" ကို အသုံးပြုသင့်သည်။
5. ၎င်းနောက်၊ သင်သည် “Visual Basic” ဝင်းဒိုးမှ ထွက်ပြီး ဒစ်ဂျစ်တယ်ဖြင့် လက်မှတ်ထိုးထားသော မက်ခရိုများကိုသာ ခွင့်ပြုရန် မက်ခရိုဆက်တင်များကို ပြောင်းလဲနိုင်သည်။
6. နောက်ဆုံးတွင်၊ သင်ကြိုးစားနိုင်သည်။

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

မှတ်စုများ:

1. ဤ VBA ကုဒ်များတွင်၊ သတိပေးချက်ကို မူရင်းအတိုင်း မိနစ် 30 သတ်မှတ်ထားသည်။ ကုဒ်များကို အလိုအလျောက် ပြောင်းလဲနိုင်ပါသည်။
2. ကုဒ်များသည် ချိန်းဆိုမှုကြာချိန်ကို မိနစ် 120 ဟု သတ်မှတ်ထားပြီး 2 နာရီဖြစ်သည်။ သင့်လိုအပ်ချက်အရ “.Duration = 120” လိုင်းကို သင်ပြောင်းလဲနိုင်သည်။
3. တိကျသောအချိန်ကို မသတ်မှတ်ထားပါက၊ ချိန်းဆိုမှုအသစ်ကို လက်ရှိရက်စွဲနှင့် အချိန်ကို မူရင်းအတိုင်း သတ်မှတ်ပေးမည်ဖြစ်သည်။
4. ချိန်းဆိုမှုကို တိုက်ရိုက်သိမ်းဆည်းရန် “.Save” လိုင်းကို သင်ထည့်နိုင်သည်။

Outlook ပြဿနာများကိုဖယ်ရှားပါ။

Outlook သည် အမျိုးမျိုးသော ပြဿနာများကို ကြုံတွေ့ရနိုင်သည်ကို သိရှိသည်။ အဆိုးဆုံးအခြေအနေမှာ Outlook အကျင့်ပျက်ခြစားမှုဖြစ်ရမည်။ သင့် Outlook ဖိုင် ပျက်စီးနေပြီး သင့်လက်ထဲတွင် အရန်ကူးယူထားပါက၊ သင့်အား အလွယ်တကူ ပြန်လည်ရယူနိုင်ပါသည်။ ပျက်စီးနေသော Outlook ဒေတာ အရန်သိမ်းဆည်းမှုများမှ သို့သော် သင့်တွင် အရန်ကူးထားခြင်း မရှိပါက၊ ပျက်စီးနေသော Outlook ဖိုင်ကို ပြန်လည်ပြုပြင်ရန် လိုအပ်မည်ဖြစ်သည်။ ဤကိစ္စတွင်၊ သင်သည် built-in ပြုပြင်ရေးကိရိယာ၊ Scapst.exe ကိုသုံးနိုင်သည် သို့မဟုတ် ပိုမိုအတွေ့အကြုံရှိသောကိရိယာကဲ့သို့ အပန်းဖြေရန်၊ DataNumen Outlook Repair.

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

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