Qanday qilib bir nechta elektron pochta xabarlarining barcha qabul qiluvchilarini Outlook kontaktlariga qo'shish kerak

Ba'zi foydalanuvchilar bir nechta elektron pochta xabarlarining barcha qabul qiluvchilarini tezda yangi kontaktlar sifatida Outlook Contacts jildiga qo'shish imkonini beruvchi yechimni orzu qiladi. Shunday qilib, ushbu maqola bunday tezkor yondashuvni taqdim etadi.

Misol uchun, siz bir vaqtning o'zida sizdan tashqari boshqa ko'plab qabul qiluvchilarga yuboriladigan ba'zi elektron pochta xabarlarini olasiz. Bundan tashqari, ushbu qabul qiluvchilar Outlook kontaktlaringizda saqlanmaydi. Bunday holda, siz ushbu qabul qiluvchilarni Outlook kontaktlariga qo'shishingiz mumkin. To'plamlarda erishish uchun siz quyidagi usuldan foydalanishingiz mumkin.

Bir nechta elektron pochta xabarlarining barcha qabul qiluvchilarini Outlook kontaktlariga to'plam qo'shing

1. Boshlash uchun Outlook dasturini ishga tushiring.
2. Keyin, Outlook VBA eidtoriga kirish uchun "Alt + F11" tugmachalarini bosing.
3. Keyinchalik, "Microsoft Visual Basic for Applications" oynasida quyidagi kodni bo'sh modulga nusxa ko'chiring va joylashtiring.

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. Shundan so'ng, ushbu oynani minimallashtiring yoki chiqing.
5. Keyinchalik, ushbu makrosni "Tez kirish asboblar paneli" ga havola bilan qo'shishingiz kerak.Outlook-da VBA kodini qanday ishlatish kerak".
6. Nihoyat, siz ushbu makroni sinab ko'rishingiz mumkin.

• Dastlab, oluvchilari kontaktlarga qo'shiladigan bir nechta elektron pochta xabarlarini tanlang.
• Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
• Makros tugagach, siz standart Kontaktlar jildiga o'tishingiz mumkin. Qabul qiluvchilar qo'shildi.
• Yangi kontakt quyidagi skrinshotga o'xshaydi.

Outlook atrofidagi barcha xavflarni ko'rib chiqing

Outlook turli xil xususiyatlarga ega bo'lsa-da, u inson xatolari, dasturiy ta'minotdagi nosozliklar, apparat muammolari va viruslar kabi ko'plab omillarga nisbatan zaifdir. Shunday qilib, bizning istiqbolimiz atrofidagi barcha mumkin bo'lgan xavflarni kuzatib borishimiz kerak. Bundan tashqari, etarlicha ehtiyot choralarini ko'rish zaruratdir. Masalan, siz PST tuzatish vositasini qo'lga kiritganingiz ma'qul DataNumen Outlook Repairmumkin PST-ni ta'mirlash muammosiz osonlik bilan.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc ta'mirlash mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com