كيفية إضافة جهات الاتصال تلقائيًا من بريد إلكتروني عند الرد في Outlook؟

Author: Kelly Last Modified: 2025-05-30

عند الرد على رسائل البريد الإلكتروني، قد ترغب في إضافة المرسل أو المستلمين تلقائيًا إلى جهات اتصال Outlook الخاصة بك. يمكن أن يوفر هذا الوقت ويضمن لك عدم فقدان معلومات الاتصال المهمة. بينما لا يدعم Outlook بشكل أصلي إضافة جهات الاتصال تلقائيًا عند الرد، سأوضح لك طريقتين لإضافة جهات الاتصال تلقائيًا من البريد الإلكتروني، بما في ذلك ميزة أدوات Kutools لـ Outlook.

إضافة جهات الاتصال تلقائيًا من بريد إلكتروني في Outlook عند الرد باستخدام VBA

إضافة دفعة لعدة مرسلين ومستلمين من الرسائل المحددة إلى جهات الاتصال باستخدام Kutools

إضافة جهات الاتصال تلقائيًا من بريد إلكتروني في Outlook عند الرد باستخدام VBA

سيقوم هذا الكود VBA بإضافة المرسل وجميع المستلمين للبريد الإلكتروني كجهات اتصال جديدة عند الرد على البريد الإلكتروني في Outlook. يرجى القيام بما يلي:

1. اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. قم بتوسيع Project1، وانقر نقرًا مزدوجًا على ThisOutlookSession لفتحه، ثم الصق الكود VBA أدناه في نافذة ThisOutlookSession. انظر لقطة الشاشة:

the screenshot of auto adding contacts from an outlook email when replying with vba

VBA: إضافة جهات الاتصال تلقائيًا من بريد إلكتروني عند الرد في Outlook

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 وأعد تشغيل Microsoft Outlook الخاص بك.

من الآن فصاعدًا، عند الرد على بريد إلكتروني في Outlook، سيتم حفظ المرسل وجميع المستلمين لهذا البريد كجهات اتصال جديدة تلقائيًا في مجلد جهات الاتصال الافتراضي للحساب البريدي الافتراضي.

إضافة دفعة لعدة مرسلين ومستلمين من الرسائل المحددة إلى جهات الاتصال باستخدام Kutools

تبسيط أدوات Kutools لـ Outlook عملية إضافة جهات الاتصال بميزتها إضافة المرسلين والمستلمين المتعددين للرسائل المختارة إلى جهات الاتصال. تتيح لك هذه الميزة إضافة جهات اتصال دفعة واحدة من بريد إلكتروني واحد أو أكثر.

👉 يتوفر الآن إصدار مجاني من أدوات Kutools لـ Outlook، حيث تكون 70+ الميزات مجانية مدى الحياة. قم بتنزيل الإصدار المجاني الآن.

الخطوة 1. قم بتنزيل وتثبيت أدوات Kutools لـ Outlook. بعد ذلك، انتقل إلى مجلد الرسائل المرسلة (أو مجلد آخر) وحدد الرسائل التي تريد إضافة المرسلين والمستلمين لها إلى جهات الاتصال.

الخطوة 2. انقر على Kutools > إضافة جهات اتصال > إضافة المرسلين والمستلمين المتعددين للرسائل المختارة إلى جهات الاتصال.

الخطوة 3. في مربع الحوار إضافة جهات الاتصال من الرسائل،

اختر مجلد جهة الاتصال: اختر المجلد الذي تريد حفظ جهات الاتصال الجديدة فيه.
اختر العناوين: يتم تحديد جميع العناوين افتراضيًا باستثناء الموجودة بالفعل. راجع القائمة وألغِ تحديد أي عناوين لا تريد إضافتها.
انقر فوق موافق: أكد اختيارك واحفظ جهات الاتصال في المجلد المختار.