Outlook’ta bir e-postaya yanıt verirken Kişi’yi otomatik olarak nasıl ekleyebilirim?
E-postalara yanıt verirken, göndereni veya alıcıları Outlook kişi listenize otomatik olarak eklemek isteyebilirsiniz. Bu işlem zaman kazandırır ve önemli kişi bilgilerinizi asla kaybetmenizi önler. Outlook, yanıt verirken otomatik Kişi Ekle özelliğini yerel olarak desteklemediğinden, bir e-postadan otomatik olarak kişi eklemeniz için size iki yöntem sunacağım; bunlardan biri Kutools for Outlook özelliğidir.
Yanıt verirken Outlook e-postasından VBA ile otomatik Kişi Ekle
Yanıt verirken Outlook e-postasından VBA ile otomatik Kişi Ekle
Bu VBA kodu, Outlook’ta bir e-postaya yanıt verdiğinizde göndericiyi ve tüm alıcıları otomatik olarak Kişi olarak ekler. Lütfen aşağıdaki adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için Alt+F11 tuşlarına basın.
2. Project1 öğesini genişletin ve ThisOutlookSession öğesini açmak için çift tıklayın; ardından aşağıdaki VBA kodunu ThisOutlookSession penceresine yapıştırın. Ekran görüntüsüne bakın:
VBA: Outlook’ta bir e-postaya yanıt verirken otomatik olarak Kişi Ekle
Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub
Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub
3. VBA kodunu kaydedin ve Microsoft Outlook’u yeniden başlatın.
Artık Outlook’ta bir e-postaya yanıt verdiğinizde, bu e-postanın göndericisi ve tüm alıcıları otomatik olarak Kişi olarak varsayılan e-posta hesabınızın varsayılan kişi klasörüne kaydedilecektir.
Toplu Ekle birden fazla göndericiyi ve alıcıyı Seçilen Öğeler’tan kişiler listesine Kutools ile ekleyin
Kutools for Outlook, Kişi Ekle işlemini Seçili E-postaların Göndericilerini ve Birden Fazla Alıcısını Kişilere Ekle özelliğiyle kolaylaştırır. Böylece bir veya daha fazla e-postadan toplu olarak kişi ekleyebilirsiniz.
Adım 1. Kutools for Outlook’u indirip yükleyin. Ardından, göndericilerini ve alıcılarını kişiler listenize eklemek istediğiniz e-postaları seçmek için Gönderilen Öğeler klasörüne (veya başka bir klasöre) gidin.
Adım 2. Kutools > Kişi Ekle > Seçili E-postaların Göndericilerini ve Birden Fazla Alıcısını Kişilere Ekle’ye tıklayın.
Adım 3. E-postadan Kişiler Ekle iletişim kutusunda,
Bir Kişi Klasörü Seçin: Kişiyi kaydetmek istediğiniz klasörü seçin.
Adresleri Seçin: Varsayılan olarak, mevcut olanlar hariç tüm adresler otomatik olarak seçilir. Listeyi gözden geçirin ve eklemek istemediğiniz adreslerin seçimini kaldırın.
Tamam’a Tıklayın: Seçiminizi onaylayarak kişileri seçilen klasöre kaydedin.
Adım 4. Başarıyla kaç kişinin eklendiğini gösteren bir iletişim kutusu görünecektir. İletişim kutusunu kapatmak için Tamam’a tıklayın.
İlgili Makaleler
En İyi Office Verimlilik Araçları
Kutools for Outlook’in tamamen yenilenmiş sürümünü 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!
📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Tekil Mesajlara Bölme…
📨E-posta Yönetimi: E-postayı Geri Çağırma / Konu Başlıklarına ve Diğer Özelliklere Göre Dolandırıcılık E-postalarını Engelleme / Yinelenen E-postaları Silme / Gelişmiş Arama / Klasörleri Düzenleme…
📁Ekleri Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır, Otomatik Sıkıştır…
🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…
👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Balık Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Mevcut Saati – Saat Dilimini Göster…
👩🏼🤝👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…
Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dili destekler!
🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin
Kesinlikle Önerilir: Kutools for Office (5’li Paket)
Beş yükleyiciyi tek tıkla indirin —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!
- ✅Tek tıkla kullanım kolaylığı: Beş kurulum paketini tek seferde indirin.
- 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
- 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint