သီးခြား Domain တစ်ခုရှိ အဆက်အသွယ်များအားလုံးထံ အီးမေးလ်ပို့နည်း

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

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

သီးခြား Domain တစ်ခုရှိ အဆက်အသွယ်များအားလုံးထံ အီးမေးလ်ပို့ပါ။

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

Sub SendanEmailtoAllContactsinSpecificDomain()
    Dim objContactsFolder As Outlook.Folder
    Dim objItem As Object
    Dim objContact As Outlook.ContactItem
    Dim strEmail1Address, strEmail2Address, strEmail3Address As String
    Dim objMail As Outlook.MailItem
    Dim objMailRecipients As Outlook.Recipients
 
    Set objMail = Application.CreateItem(olMailItem)
    Set objMailRecipients = objMail.Recipients
    Set objContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
 
    For Each objItem In objContactsFolder.Items
        If objItem.Class = olContact Then
           Set objContact = objItem
           strEmail1Address = objContact.Email1Address
           strEmail2Address = objContact.Email2Address
           strEmail3Address = objContact.Email3Address

           'Change the specific email domain
           If InStr(strEmail1Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail1Address)
           ElseIf InStr(strEmail2Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail2Address)
           ElseIf InStr(strEmail3Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail3Address)
           End If
 
        End If
    Next objItem
 
    objMail.Display
End Sub

5. ၎င်းနောက်၊ သင်သည်သင်၏ Outlook မက်ခရိုလုံခြုံရေးအဆင့်ကိုနိမ့်သောသို့ပြောင်းရန်လိုအပ်သည်။
6. ရွေးချယ်နိုင်သောအားဖြင့်၊ သင်သည် ထိုသို့သောအီးမေးလ်တစ်စောင်ကို မကြာခဏပေးပို့ရန် လိုအပ်ပါက၊ Quick Access Toolbar သို့ မက်ခရိုအသစ်ကို ထည့်ရန်လည်း အကြံပြုထားသည်။
7. ဒီအချိန်မှာ စမ်းကြည့်လို့ရပါတယ်။ toolbar ရှိ "run" icon ကိုနှိပ်ပါ။
8. နောက်ဆုံးတွင် အီးမေးလ်အသစ်တစ်ခု ပေါ်လာလိမ့်မည်။ သတ်မှတ်ထားသော အီးမေးလ်ဒိုမိန်းအတွင်းရှိ အီးမေးလ်လိပ်စာများအားလုံးကို အောက်ပါဖန်သားပြင်ဓာတ်ပုံကဲ့သို့ “To” အကွက်တွင် ထည့်သွင်းထားကြောင်း သင်တွေ့ရှိနိုင်သည်-

PST အမှားများကို ရင်ဆိုင်ရာတွင် ဘယ်သောအခါမှ မထိတ်လန့်ပါနဲ့။

အသုံးပြုသူများသည် လက်လှမ်းမမီနိုင်သော PST အမှားအယွင်းများ၊ ဗိုင်းရပ်စ်ကူးစက်ခံထားရသော PST ဖိုင် သို့မဟုတ် PST ဖိုင်များကဲ့သို့သော ပြင်းထန်သော PST ပြဿနာများနှင့် ကြုံတွေ့ရသည့်အခါ ထိတ်လန့်တတ်ကြသည်။ ယိုယွင်းနေသော Outlook PST ဒေတာ စသည်တို့။ သို့သော် စိတ်ဖြေလျှော့ပြီး တတ်နိုင်သမျှ အမြန်ဆုံးဖြေရှင်းရန် အကောင်းဆုံးကြိုးစားပါ။ ပထမဆုံးအနေနဲ့ Res စမ်းကြည့်နိုင်ပါတယ်။tarOutlook ကိုအသုံးပြုပါ။ ပြဿနာများ ဆက်ရှိနေပါက၊ သင်သည် ဝင်စာပုံးပြုပြင်ရေးတူးလ်၊ Scanpst.exe သို့ ပြန်ဖြစ်နိုင်သည်။ သို့သော် ၎င်းသည် မည်သည့်အကျိုးသက်ရောက်မှုမျှ မပြုလုပ်နိုင်ဟု ယူဆပါက၊ အတွေ့အကြုံရှိသော ကိရိယာကဲ့သို့သော ပိုမိုအတွေ့အကြုံရှိသော ကိရိယာတစ်ခုထံ သင်ပြန်လည်ချေပနိုင်သည်။ DataNumen Outlook Repair.

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

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