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

အလုပ်ချိန်အထိ တိကျသောအီးမေးလ်များ ပေးပို့ခြင်းကို အမြန်နှောင့်နှေးပါ။
- အစပိုင်းတွင် သင်၏ Outlook ပရိုဂရမ်ကို စတင်ပါ။
- ထို့နောက် ပေါ်ထွက်လာသော Outlook ပင်မစခရင်တွင်၊ သင်သည် “Alt + F11” ခလုတ်များကို နှိပ်နိုင်သည်။
- ထို့နောက် အောင်မြင်စွာ Outlook VBA တည်းဖြတ်သူထံ သင်ဝင်ရောက်ခွင့်ရရှိပါမည်။
- ၎င်းနောက်၊ သင်သည် “ThisOutlookSession” ပရောဂျက်ကို ရှာဖွေပြီး ဖွင့်ရန် လိုအပ်သည်။
- ထို့နောက်၊ အောက်ပါ VBA ကုဒ်ကို ဤပရောဂျက်ဝင်းဒိုးထဲသို့ ကူးယူပါ။
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As MailItem
Dim NewSendTime As String
Dim bDelayMail As Boolean
Dim nPrompt As Integer
bDelayMail = True
If TypeOf Item Is MailItem Then
Set objMail = Item
'Work on specific emails only
'You can change the conditions as per your needs
If objMail.Recipients.Item(1).Address = "boss@datanumen.com" Then
Select Case Weekday(Date, vbMonday)
'Delay 2 days if today is Saturday
Case 6
NewSendTime = (Date + 2) & " 09:00:00"
'Delay 1 days if today is Saturday
Case 7
NewSendTime = (Date + 1) & " 09:00:00"
Case Else
If DatePart("h", Now) < 9 Then
'Delay to 9 o'clock if now is too early
NewSendTime = Date & " 09:00:00"
ElseIf DatePart("h", Now) > 18 Then
Select Case Weekday(Date, vbMonday)
'Delay 3 days if today is Friday and now is over 6 PM
Case 5
NewSendTime = (Date + 3) & " 09:00:00"
'Delay to 9 o'clock if now is before 6 PM
Case Else
NewSendTime = (Date + 1) & " 09:00:00"
End Select
Else
bDelayMail = False
End If
End Select
If bDelayMail = True And objMail.DeferredDeliveryTime = "1/1/4501" Then
'Ask if to delay sending this email
nPrompt = MsgBox("Outside Working Hours:" & vbCrLf & "Do you want to delay this email until " & NewSendTime & "?", vbYesNo + vbExclamation, "Delay Email")
If nPrompt = vbYes Then
objMail.DeferredDeliveryTime = NewSendTime
Else
objMail.DeferredDeliveryTime = "1/1/4501"
End If
End If
End If
End If
End Sub
- နောက်ပိုင်းတွင် သင်သည် ဤအီးမေးလ်သို့ ဒစ်ဂျစ်တယ်လက်မှတ်တစ်ခု သတ်မှတ်ရန် လိုအပ်မည်ဖြစ်သည်။
- ထို့နောက် လက်မှတ်ထိုးထားသော မက်ခရိုများကို ခွင့်ပြုရန် သင်၏ Outlook မက်ခရိုဆက်တင်များကို ပြောင်းလဲပါ။
- ယခုမှစ၍၊ ကြိုတင်သတ်မှတ်ထားသော သတ်မှတ်ချက်များနှင့် ကိုက်ညီသည့် အီးမေးလ်များ ပေးပို့သည့်အခါတိုင်း၊ ၎င်းသည် အလုပ်ချိန်ပြင်ပဖြစ်ပါက၊ အောက်ပါပုံကဲ့သို့ အချက်ပြချက်တစ်ခု ရရှိလိမ့်မည်-
- အကယ်၍ သင်သည် “Yes” ကိုရွေးချယ်ပါက၊ Outlook သည် ၎င်းအား အလုပ်ချိန်အထိ ပေးပို့ရန် စီစဉ်ထားမည်ဖြစ်သည်။
ပျက်စီးနေသော Outlook ဖိုင်များကို ကယ်တင်ပါ။
Outlook သည် ၎င်း၏များပြားလှသော အင်္ဂါရပ်များကြောင့် ချီးကျူးမှုများစွာရရှိခဲ့သည်။ သို့သော် သေစေတတ်သော ချို့ယွင်းချက်တစ်ခု ရှိပါသေးသည်။ အဲဒါကတော့ Outlook ဟာ အမှားအယွင်းတွေနဲ့ အကျင့်ပျက်ခြစားမှုတွေ ကျရောက်နေပါတယ်။ ထို့ကြောင့်၊ သင်သည် သင်၏ Outlook ဖိုင်များကို ပုံမှန်အရန်သိမ်းဆည်းသင့်သည်။ ၎င်းသည် သင့်အား နာကျင်ဖွယ် Outlook ဒေတာ ဆုံးရှုံးခြင်းမှ ကာကွယ်နိုင်သည်။ ထို့အပြင်၊ ကဲ့သို့သော အားကြီးသော ပြုပြင်ရေးကိရိယာကို ကိုင်ဆောင်၍ ပိုမိုကောင်းမွန်သည်။ DataNumen Outlook Repair, အရာနိုင် Outlook ကိုပြုပြင်ပါ။ စက္ကန့်ပိုင်းအတွင်း ပြဿနာများ။
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ mdf ပြန်လည်ရယူခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com

