1. Outlook programını başlatın ve VBA editörüne erişmek için "Alt + F11" tuşlarına basın 4.
2. "Microsoft Visual Basic for Applications" penceresinde aşağıdaki kodu kopyalayıp boş bir modüle yapıştırın 4:

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

    'Seçilen e-postayı al
    Set objSelection = Outlook.Application.ActiveExplorer.Selection

    If Not (objSelection Is Nothing) Then
        For Each objMail In objSelection
            Set objRecipients = objMail.Recipients

            For Each objRecipient In objRecipients
                'Kendinizi alıcı listesinde hariç tutun
                If objRecipient <> Session.CurrentUser Then
                    'E-posta adresi ve isim
                    strEmailAddress = objRecipient.Address
                    strName = Split(strEmailAddress, "@")(0)
                    strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))

                    'Yeni bir kişi oluştur
                    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
Kopyala

3. Bu kodu kopyaladıktan sonra pencereyi simge durumuna küçültün veya kapatın 4.
4. Ardından, bu makroyu "Hızlı Erişim Araç Çubuğu"na ekleyin 4.
5. Son olarak, alıcıları içeren e-postaları seçin ve makro düğmesine tıklayın 4.