Outlook တွင် “Reply All” ကိုအသုံးပြုသောအခါ မူရင်းပေးပို့သူမှလွဲ၍ “CC” အကွက်သို့ လက်ခံသူအားလုံးကို အလိုအလျောက်ရွှေ့နည်း

အချို့သောအသုံးပြုသူများသည် Outlook တွင် “Reply All” ကိုအသုံးပြုသောအခါ မူရင်းပေးပို့သူမှလွဲ၍ “CC” အကွက်သို့ လက်ခံသူအားလုံးကို အမြဲတမ်းရွှေ့သည်။ ဤဆောင်းပါးသည် Outlook VBA ဖြင့် လှုပ်ရှားမှုကို အလိုအလျောက်လုပ်ရန် နည်းလမ်းတစ်ခုကို မိတ်ဆက်ပေးပါမည်။

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

မူရင်းပေးပို့သူမှလွဲ၍ လက်ခံသူအားလုံးကို “CC” အကွက်သို့ “အားလုံးအကြောင်းပြန်ပါ”

1. ပထမဆုံးအနေနဲ့ သင့် Outlook ပရိုဂရမ်ကို စတင်လိုက်ပါ။
2. ထို့နောက် ပင်မ Outlook ဝင်းဒိုးတွင် Alt + F11 ခလုတ်များကို နှိပ်ပါ။
3. ထို့နောက် သင် Outlook VBA တည်းဖြတ်သူသို့ ဝင်ရောက်ပါမည်။
4. ထို့နောက်တွင် သင်သည် “ThisOutlookSession” ပရောဂျက်ကို ရှာဖွေပြီး ဖွင့်သင့်သည်။
5. နောက်ပိုင်းတွင် သင်သည် ဤပရောဂျက်ဝင်းဒိုးထဲသို့ အောက်ပါ VBA ကုဒ်များကို ကူးယူပြီး ကူးထည့်ရန် လိုအပ်သည်။

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

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

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

6. ၎င်းနောက်၊ သင်သည် ဤ macro ကို လက်မှတ်ထိုးပြီး ဒစ်ဂျစ်တယ်ဖြင့် လက်မှတ်ထိုးထားသော မက်ခရိုများကို ခွင့်ပြုရန် သင်၏ Outlook မက်ခရိုဆက်တင်များကို ပြောင်းလဲသင့်သည်။
7. နောက်ဆုံးတွင် VBA ပရောဂျက်အသစ်ကို အသက်သွင်းရန် Outlook ကို ပြန်လည်စတင်နိုင်ပါသည်။
8. ယခုအချိန်မှစ၍၊ "Reply All" ကို အသုံးပြု၍ အီးမေးလ်များကို စာပြန်တိုင်း၊ လက်ခံသူအားလုံးကို "To" အကွက်တွင် မူရင်းပေးပို့သူသာရှိသော "CC" အကွက်သို့ ရွှေ့ထားသည်ကို သင်တွေ့ရပါမည်။

PST အကျင့်ပျက်ခြစားမှုကိစ္စတွင် မစိုးရိမ်ပါနှင့်

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

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

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