Outlook တွင် လုပ်ဆောင်စရာတစ်ခုကို ပြီးမြောက်ပြီးနောက်၊ အထက်လူကြီးကဲ့သို့ တစ်စုံတစ်ဦးကို အကြောင်းကြားရန် သုံးစွဲသူအများအပြားက အီးမေးလ်တစ်စောင် ပေးပို့လိုပေမည်။ အီးမေးလ်ကို ကိုယ်တိုင်ပေးပို့ခြင်းသည် အချိန်ကုန်မည်ဖြစ်သည်။ ဤဆောင်းပါးတွင် ဤကဲ့သို့သောအီးမေးလ်များကို အလိုအလျောက်ပေးပို့ရန် အမြန်နည်းလမ်းကို မိတ်ဆက်ပေးပါမည်။
ဆောင်းပါးမှ“သင်၏ Outlook ရှိ အခြားသူများကို အလုပ်တာဝန်ပေးအပ်ရန် လျင်မြန်သောအဆင့် ၄ ခု”၊ အကယ်၍ လုပ်ငန်းတာဝန်ကို သင်၏အထက်လူကြီးထံမှ တာဝန်ပေးအပ်ထားပြီး၊ အောက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံကဲ့သို့ ၎င်းတို့သည် အခြေအနေအစီရင်ခံစာကို ကြိုတင်လိုအပ်ပါက၊ ၎င်းတို့သည် အစီရင်ခံစာအီးမေးလ်ကို အလိုအလျောက် ရရှိနိုင်မည် ဖြစ်ကြောင်း သင်သိနိုင်ပါသည်။
သို့သော်၊ လုပ်ဆောင်စရာကို သင်ကိုယ်တိုင် ဖန်တီးထားလျှင် ပြီးပြည့်စုံသည်ဟု အမှတ်အသားပြုသောအခါတွင် Outlook သည် မည်သူတစ်ဦးတစ်ယောက်ကိုမျှ အကြောင်းကြားချက်အီးမေးလ်ကို ဘယ်သောအခါမှ ပေးပို့မည်မဟုတ်ပါ။ ဤကိစ္စတွင်၊ သင်သည် သင်၏အလုပ်အား အစီရင်ခံရန် အကြောင်းကြားချက်အီးမေးလ်တစ်စောင် ပေးပို့လိုပါက၊ ၎င်းကို သင်ကိုယ်တိုင် လုပ်ဆောင်ရမည်ဖြစ်သည်။ သို့သော် အောက်ပါ VBA ကုဒ်များဖြင့် သင်သည် Outlook ကို အလိုအလျောက် ပြီးမြောက်စေနိုင်သည်။
သီးခြားလုပ်ဆောင်စရာတစ်ခုပြီးမြောက်သောအခါ အကြောင်းကြားချက်အီးမေးလ်ကို အလိုအလျောက်ပေးပို့ပါ။
- အစပိုင်းမှာ Outlook ကိုစတင်ပြီး “Developer” tab ကိုပြောင်းသင့်ပါတယ်။
- ထို့နောက် ရှာဖွေပြီး “Visual Basic” ခလုတ်ကို နှိပ်ပါ။ “Microsoft Visual Basic for Applications” ဝင်းဒိုးအသစ်တစ်ခု ပေါ်လာပါမည်။
- ၎င်းနောက်၊ ၎င်းကိုဖွင့်ရန် “ThisOutlookSession” ပရောဂျက်ကို နှစ်ချက်နှိပ်ပြီး အောက်ပါ VBA ကုဒ်များကို ၎င်းထဲသို့ ကူးယူပါ။
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderTasks).Items
End Sub
Private Sub olItems_ItemChange(ByVal Item As Object)
Dim obApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim Recip As String
'Replace "test" as per your needs
If InStr(LCase(Item.Subject), "test") > 0 And Item.Complete = True Then
'Replace with your desired contact
Recip = "John Smith"
If MsgBox("Do you want to send a report to " & Recip & " ?", vbYesNo + vbQuestion, "Confirm Sending Report") = vbYes Then
Set obApp = Outlook.Application
Set olMail = obApp.CreateItem(olMailItem)
With olMail
.To = Recip
.Subject = "Complete: " & Item.Subject
.Body = "Dear Mr. Smith" & vbCrLf & "I've completed this task in " & DateDiff("d", Item.CreationTime, Now) & " day" & Chr(40) & "s" & Chr(41) & "." & vbCrLf & vbCrLf & "Task Name: " & Item.Subject & vbCrLf & "Start Date: " & Item.StartDate & vbCrLf & "Due Date: " & Item.DueDate & vbCrLf & "Creation Time: " & Item.CreationTime & vbCrLf & "Completed Time: " & Now & vbCrLf & vbCrLf & "Task Details: " & vbCrLf & Item.Body
.ReadReceiptRequested = True
'To directly send it,use ".Send" instead
.Display
End With
End If
End If
End Sub
- ထို့နောက်တွင် ဤကုဒ်ကို လက်မှတ်ထိုးရန် ဆက်လက်လုပ်ဆောင်ပြီး ဒစ်ဂျစ်တယ်ဖြင့် လက်မှတ်ထိုးထားသော မက်ခရိုများကိုသာ ခွင့်ပြုရန် မက်ခရိုဆက်တင်များကို ပြောင်းလဲပါ။
- နောက်ဆုံးတွင် သင်သည် လက်ရှိဝင်းဒိုးမှထွက်၍ စမ်းကြည့်နိုင်သည်။
- သင်လုပ်ဆောင်စရာတစ်ခုပြီးမြောက်ကြောင်း အမှတ်အသားပြုသောအခါ၊ အောက်ပါပုံကဲ့သို့ မက်ဆေ့ချ်တစ်ခုကို သင်လက်ခံရရှိလိမ့်မည်-
- “Yes” ခလုတ်ကို နှိပ်လိုက်သောအခါ၊ အောက်ပါပုံအတိုင်း ပေါ်လာသည့် မက်ဆေ့ချ်အသစ်တစ်ခု ပွင့်လာပါမည်။
မှတ်စု: အကယ်၍ သင်သည် “.display” ကို “.Send” လိုင်းဖြင့် အစားထိုးပါက၊ ဤအီးမေးလ်ကို ပေါ်လာခြင်းမရှိဘဲ တိုက်ရိုက် ပေးပို့မည်ဖြစ်ပါသည်။
အမည်မသိအီးမေးလ်လိပ်စာများမှ မက်ဆေ့ချ်များကို ဂရုပြုပါ။
အမည်မသိလိပ်စာများမှ အီးမေးလ်များစွာကို သင်လက်ခံရရှိဖူးသူဖြစ်ရမည်။ ဒီလိုမျိုး အီးမေးလ်တွေကို သတိထားဖို့ အကြံပြုလိုပါတယ်။ ၎င်းတို့သည် အပြစ်ကင်းသည်ဟု ထင်ရသော်လည်း အန္တရာယ်ရှိသော လင့်ခ်များ၊ ပူးတွဲပါဖိုင်များ သို့မဟုတ် မက်ခရိုများ ပါဝင်သောကြောင့် ဖြစ်သည်။ ၎င်းတို့ကို နှိပ်လိုက်သည် သို့မဟုတ် ဖွင့်လိုက်သည်နှင့် သင့် Outlook သည် ကူးစက်သွားနိုင်သည်။ ထိုအချိန်တွင်၊ သင်၏ Outlook ဒေတာကို ပြန်လည်ရရှိရန်အတွက်၊ သင်သည် ကြယ်ပွင့်ကို အသုံးပြုရန်မှလွဲ၍ ရွေးချယ်စရာမရှိပေ။ ပျက်စီးနေသော Outlook ဒေတာကို ပြုပြင်ရန် အသုံးဝင်မှု, ကဲ့သို့ DataNumen Outlook Repair.
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ SQL mdf ပြဿနာကို ပြုပြင်ပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com


