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

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

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

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

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

سيقوم هذا الرمز البرمجي (VBA) تلقائيًا بإضافة المرسِل وجميع المستلمين في رسالة البريد الإلكتروني كجهات اتصال عند الرد على الرسالة في Outlook. يُرجى اتباع الخطوات التالية:

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

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

رمز 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يبسّط إضافة جهات الاتصال بفضل ميزتهإضافة المرسلين والمستلمين المتعددين من الرسائل المحددة إلى جهات الاتصال، مما يمكّنك من تنفيذ العملية دفعةً واحدة من رسالة واحدة أو أكثر.

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

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

الخطوة 3. في مربع حوار «إضافة جهات الاتصال من البريد الإلكتروني»،

1. حدد مجلد جهة الاتصال: اختر المجلد الذي تريد حفظ جهة الاتصال فيه.

2. حدد العناوين: بشكل افتراضي، يتم تحديد جميع العناوين باستثناء تلك المضافة مسبقًا. راجع القائمة وأزل تحديد أي عناوين لا ترغب في إضافتها.

3. انقر فوق «موافق»: لتأكيد اختيارك وحفظ جهات الاتصال في المجلد المحدد.

   

الخطوة 4. سيظهر مربع حوار يعرض عدد جهات الاتصال التي تمت إضافتها بنجاح. انقر فوقموافقلإغلاق مربع الحوار.

مقالات ذات صلة

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

👩🏼‍🤝‍👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة