E-posta bilgi kısmına birden fazla kişi eklemek için Outlook'ta VBA kodu kullanılabilir. Bunun için: 1. Outlook programını başlatın ve VBA editörüne erişmek için "Alt + F11" tuşlarına basın. 2. "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 '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 ``` 3. Bu kodu kopyaladıktan sonra pencereyi simge durumuna küçültün veya kapatın. 4. Ardından, bu makroyu "Hızlı Erişim Araç Çubuğu"na ekleyin. 5. Son olarak, alıcıları içeren e-postaları seçin ve makro düğmesine tıklayın. Bu yöntemle, seçilen e-postalardaki tüm alıcılar Outlook Kişiler klasörüne eklen