Note: The other languages of the website are Google-translated. Back to English

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

في Outlook 2010 ، يمكنك تمكين اقترح جهات الاتصال ميزة وإضافة المستلمين تلقائيًا كجهات اتصال جديدة. ومع ذلك، هذا اقترح جهات الاتصال الميزة غير مدعومة في Outlook 2013 و 2016. هنا ، سأقدم VBA لإضافة المرسل والمستلمين للبريد الإلكتروني تلقائيًا كجهات اتصال جديدة عند الرد في Outlook.

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

علامة تبويب Office - قم بتمكين التحرير والتصفح المبوب في المكتب ، وجعل العمل أسهل بكثير ...
Kutools for Outlook - يجلب 100 ميزة متقدمة قوية إلى Microsoft Outlook
  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي تعدد رسائل البريد الإلكتروني حسب القواعد ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عندما تحاول الرد على الكل إذا كان عنوان بريدك في قائمة BCC ؛ تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد ؛ الرد على العديد من رسائل البريد الإلكتروني في وقت واحد ؛ إضافة تحية تلقائية عند الرد إضافة التاريخ والوقت تلقائيًا إلى الموضوع ...
  • أدوات المرفقات: فصل تلقائي ، ضغط الكل ، إعادة تسمية الكل ، حفظ تلقائي للكل ... تقرير سريع، عد الرسائل المختارة ، إزالة رسائل البريد وجهات الاتصال المكررة ...
  • أكثر من 100 ميزة متقدمة سوف حل معظم مشاكلك في Outlook 2021 - 2010 أو Office 365. الميزات الكاملة نسخة تجريبية مجانية مدتها 60 يومًا.

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

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

1. صحافة قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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

فبا: إضافة جهات اتصال تلقائيًا من بريد إلكتروني عند الرد في 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 for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (1)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، شكرا لك على هذا الرمز.
لكنه يكرر (في حالتي على الأقل) جهات الاتصال عدة مرات كما أكتب لهم. اي فكرة؟
بالمناسبة ، في خيارات Outlook ، يتم تحديد المربع "البحث عن التكرارات عند حفظ جهة اتصال جديدة".
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL