Birden Çok E-postanın Tüm Alıcılarını Toplu Olarak Outlook Kişilerine Ekleme

Bazı kullanıcılar, birden çok e-postanın tüm alıcılarını hızlı bir şekilde yeni kişiler olarak Outlook Kişileri klasörüne eklemelerine olanak tanıyan bir çözüm ister. Dolayısıyla, bu makale bu kadar hızlı bir yaklaşımı tanıtacak.

Örneğin, sizin dışınızda birçok başka alıcıya aynı anda gönderilen bazı e-postalar alırsınız. Ayrıca, bu alıcılar Outlook Kişilerinizde saklanmaz. Bu durumda, bu alıcıları Outlook Kişilerine eklemek isteyebilirsiniz. Gruplar halinde elde etmek için aşağıdaki yolu kullanabilirsiniz.

Toplu Olarak Birden Çok E-postanın Tüm Alıcılarını Outlook Kişilerine Ekleyin

1. Başlamak için Outlook programınızı başlatın.
2. Ardından, Outlook VBA eidtor'a erişmek için “Alt + F11” tuş düğmelerine basın.
3. Daha sonra “Microsoft Visual Basic for Applications” penceresinde aşağıdaki kodu kopyalayıp boş bir modüle yapıştırın.

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. Bundan sonra, simge durumuna küçültün veya bu pencereden çıkın.
5. Daha sonra, bu makroyu “Hızlı Erişim Araç Çubuğuna” referansla eklemelisiniz.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
6. Son olarak, bu makroyu deneyebilirsiniz.

• İlk başta, alıcıları kişilere eklenecek birden fazla e-posta seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Makro bittiğinde, varsayılan Kişiler klasörüne gidebilirsiniz. Bu alıcılar eklendi.
• Yeni kişi aşağıdaki ekran görüntüsü gibi görünecektir.

Görünümünüzle İlgili Tüm Risklere Dikkat Edin

Outlook, çeşitli özelliklerle donatılmış olarak gelse de, insan hataları, yazılım hataları, donanım sorunları ve virüsler gibi birçok faktöre karşı savunmasızdır. Bu nedenle, Görünümümüzle ilgili tüm potansiyel risklere dikkat etmemiz gerekiyor. Ayrıca yeterli önlemlerin alınması da bir zarurettir. Örneğin, aşağıdaki gibi bir PST düzeltme aracına sahip olmanız daha iyi olur: DataNumen Outlook Repairolabilir PST'yi onar zahmetsiz kolaylıkla problemler.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com