როგორ დავამატოთ რამდენიმე ელ. ფოსტის ყველა მიმღები 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. მოგვიანებით, თქვენ უნდა დაამატოთ ეს მაკრო სწრაფი წვდომის ინსტრუმენტთა პანელზე მითითებით:როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
6. საბოლოოდ, შეგიძლიათ სცადოთ ეს მაკრო.

• თავდაპირველად აირჩიეთ რამდენიმე ელ.წერილი, რომლის მიმღებებიც დაემატება კონტაქტებს.
• შემდეგ დააწკაპუნეთ მაკრო ღილაკზე სწრაფი წვდომის ხელსაწყოთა ზოლში.
• როდესაც მაკრო დასრულდება, შეგიძლიათ გადახვიდეთ ნაგულისხმევი კონტაქტების საქაღალდეში. ეს მიმღებები დამატებულია.
• ახალი კონტაქტი გამოიყურება შემდეგ ეკრანის სურათზე.

დააკვირდით თქვენს Outlook-ის გარშემო არსებულ ყველა რისკს

მიუხედავად იმისა, რომ Outlook აღჭურვილია მრავალფეროვანი ფუნქციებით, ის დაუცველია მრავალი ფაქტორის მიმართ, მათ შორის ადამიანური შეცდომების, პროგრამული უზრუნველყოფის გაუმართაობის, ტექნიკის პრობლემებისა და ვირუსების მიმართ. ასე რომ, ჩვენთვის აუცილებელია თვალი ვადევნოთ ყველა პოტენციურ რისკს ჩვენი Outlook-ის გარშემო. ასევე, საკმარისი სიფრთხილის ზომების მიღება აუცილებლობაა. მაგალითად, ჯობია დაიჭიროთ PST დაფიქსირების ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair, რომელსაც შეუძლია PST შეკეთება პრობლემები უპრობლემოდ.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად