[Çözüldü] Outlook a otomatik kişi eklemek

Merhaba, ne yazık ki böyle bir özellik yok, makro yazmanız gerekli ancak. Ya da power automate kullanabilirsiniz.

Örnek bir kod ama denemedim

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Recipients As Outlook.Recipients
Dim Recipient As Outlook.Recipient
Dim Contact As Outlook.ContactItem
Dim ns As Outlook.NameSpace
Dim ContactFolder As Outlook.Folder

Set ns = Application.GetNamespace("MAPI")
Set ContactFolder = ns.GetDefaultFolder(olFolderContacts)

If TypeName(Item) = "MailItem" Then
Set Recipients = Item.Recipients
For Each Recipient In Recipients
On Error Resume Next
Set Contact = ContactFolder.Items.Find("[Email1Address] = '" & Recipient.Address & "'")
If Contact Is Nothing Then
Set Contact = Application.CreateItem(olContactItem)
Contact.Email1Address = Recipient.Address
Contact.Save
End If
On Error GoTo 0
Next
End If
End Sub