အီးမေးလ်များစွာ၏ လက်ခံသူအားလုံးကို Outlook အဆက်အသွယ်များထဲသို့ အစုလိုက်ထည့်နည်း

အချို့သောအသုံးပြုသူများသည် အဆက်အသွယ်အသစ်များအဖြစ် Outlook Contacts ဖိုဒါသို့ အီးမေးလ်အများအပြားလက်ခံသူအားလုံးကို လျင်မြန်စွာထည့်နိုင်စေမည့် အဖြေတစ်ခုကို လိုလားတောင့်တကြသည်။ ထို့ကြောင့် ဤဆောင်းပါးသည် ဤကဲ့သို့သော အမြန်ချဉ်းကပ်နည်းကို မိတ်ဆက်ပေးပါမည်။

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

အတွဲလိုက် အီးမေးလ်များစွာ၏ လက်ခံသူအားလုံးကို Outlook အဆက်အသွယ်များထဲသို့ ထည့်ပါ။

1. စတင်ရန်၊ သင်၏ Outlook ပရိုဂရမ်ကို စတင်ပါ။
2. ထို့နောက် Outlook VBA eidtor သို့ဝင်ရောက်ရန် “Alt + F11” ခလုတ်များကို နှိပ်ပါ။
3. နောက်ပိုင်းတွင်၊ “Microsoft Visual Basic for Applications” ဝင်းဒိုးတွင်၊ အောက်ပါကုဒ်ကို ကွက်လပ်တစ်ခုထဲသို့ ကူးယူပြီး ကူးထည့်ပါ။

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. ထို့နောက် ဤဝင်းဒိုးကို လျှော့ပါ သို့မဟုတ် ထွက်ပါ။
5. နောက်ပိုင်းတွင်၊ "" ကိုရည်ညွှန်းပြီး Quick Access Toolbar တွင် ဤ macro ကိုထည့်သင့်သည်။သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
6. နောက်ဆုံးအနေနဲ့ ဒီ macro ကို စမ်းကြည့်နိုင်ပါတယ်။

• ပထမဦးစွာ၊ လက်ခံသူများကို အဆက်အသွယ်များသို့ ထည့်မည့် အီးမေးလ်များစွာကို ရွေးပါ။
• ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• မက်ခရိုပြီးဆုံးသောအခါ၊ သင်သည် မူရင်းအဆက်အသွယ်များဖိုဒါသို့ သွားနိုင်သည်။ လက်ခံသူများကို ပေါင်းထည့်ထားသည်။
• အဆက်အသွယ်အသစ်သည် အောက်ပါစခရင်ပုံစခရင်ပုံကဲ့သို့ ဖြစ်လိမ့်မည်။

သင့် Outlook ဝန်းကျင်ရှိ အန္တရာယ်အားလုံးကို ကြည့်ပါ။

Outlook တွင် ကွဲပြားသောအင်္ဂါရပ်များပါ၀င်လာသော်လည်း၊ ၎င်းသည် လူသားအမှားအယွင်းများ၊ ဆော့ဖ်ဝဲချို့ယွင်းချက်များ၊ ဟာ့ဒ်ဝဲပြဿနာများနှင့် ဗိုင်းရပ်စ်များအပါအဝင် အကြောင်းရင်းများစွာကို ထိခိုက်စေနိုင်သည်။ ထို့ကြောင့်၊ ကျွန်ုပ်တို့၏ Outlook ဝန်းကျင်ရှိ ဖြစ်နိုင်ခြေရှိသော အန္တရာယ်အားလုံးကို စောင့်ကြည့်ရန် လိုအပ်ပါသည်။ ထို့အပြင် လုံလောက်သော ကြိုတင်ကာကွယ်မှုများ ပြုလုပ်ရန် လိုအပ်ပါသည်။ ဥပမာ- PST fix tool လိုမျိုး ကိုင်ရတာ ပိုကောင်းပါတယ်။ DataNumen Outlook Repair, အရာနိုင် PST ပြုပြင်ခြင်း။ လွယ်ကူသောပြဿနာများ။

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

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