Олон имэйлийн бүх хүлээн авагчдыг Outlook контакт руу хэрхэн нэмэх вэ?

Зарим хэрэглэгчид олон имэйлийн бүх хүлээн авагчдыг Outlook Contacts фолдерт шинэ харилцагч хэлбэрээр хурдан нэмэх боломжийг олгодог шийдлийг хүсч байна. Тиймээс энэхүү нийтлэлд ийм хурдан хандлагыг танилцуулах болно.

Жишээлбэл, танд өөр имэйлийг өөр танаас бусад олон хүлээн авагчид нэгэн зэрэг илгээдэг. Үүнээс гадна эдгээр хүлээн авагчид таны Outlook Харилцагчид хадгалагдахгүй. Энэ тохиолдолд та эдгээр хүлээн авагчдыг Outlook Contacts-д нэмэхийг хүсч магадгүй юм. Багцад хүрэхийн тулд та дараахь аргыг ашиглаж болно.

Багцыг олон имэйлийн бүх хүлээн авагчийг Outlook контакт руу нэмэх

1. Эхлэхийн тулд Outlook програмаа ажиллуулаарай.
2. Дараа нь "Alt + F11" товчлуурыг дарж Outlook VBA eidtor-т ​​хандана уу.
3. Дараа нь “Програмд ​​зориулсан Microsoft Visual Basic” цонхонд дараахь кодыг хуулж хоосон модульд буулгана уу.

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 дээр “ЛавлагааТаны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
6. Эцэст нь та энэ макрог туршиж үзэх боломжтой.

• Эхэндээ, хүлээн авагчдыг харилцагчид нэмэх олон имэйлийг сонгоно уу.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Макро дуусахад та анхдагч Contacts хавтас руу орж болно. Эдгээр хүлээн авагчдыг нэмсэн.
• Шинэ харилцагч дараахь дэлгэцийн агшин шиг харагдах болно.

Таны Outlook-ийн эргэн тойрон дахь бүх эрсдлийг анхаарч үзээрэй

Хэдийгээр Outlook нь олон янзын шинж чанартай байдаг боловч хүний ​​алдаа, програм хангамжийн алдаа, техник хангамжийн асуудал, вирус зэрэг олон хүчин зүйлүүдэд өртөмтгий байдаг. Тиймээс бид өөрсдийн хэтийн төлөвийн эргэн тойронд гарч болзошгүй бүх эрсдлийг анхааралтай ажиглаж байх шаардлагатай байна. Түүнчлэн хангалттай урьдчилан сэргийлэх арга хэмжээ авах нь зайлшгүй шаардлагатай асуудал юм. Жишээлбэл, PST засах хэрэгслийг барьж авах нь дээр DataNumen Outlook RepairАль болох засварын газар бэрхшээлгүй, хялбар.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf-ийг засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com