كيف يمكن إدراج أسماء جميع المستلمين في نص رسالة البريد الإلكتروني في Outlook؟

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

إدراج أسماء جميع المستلمين في نص البريد الإلكتروني باستخدام كود VBA في Outlook

---

إدراج أسماء جميع المستلمين في نص البريد الإلكتروني باستخدام كود VBA في Outlook

يمكنك استخدام كود VBA التالي لإدراج أسماء جميع المستلمين من حقل «إلى» مباشرةً في نص الرسالة. يُرجى اتباع الخطوات التالية:

1. افتح برنامج Outlook، ثم اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. انقر فوقإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةالوحدة النمطية.

كود VBA: إدراج أسماء المستلمين في نص الرسالة:

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. ثم، بينما لا تزال في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر فوقأدوات > المراجعللانتقال إلى مربع حوارالمراجع - المشروع1، وفعّل خيارMicrosoft Word Object Library من قائمةالمراجع المتاحة، كما في لقطة الشاشة:

4. بعد ذلك، انقر فوقموافقلإغلاق مربع الحوار. الآن، عليك إضافة هذا الكود إلىشريط أدوات الوصول السريع.

5. لإنشاء رسالة جديدة، انقر فوقإنشاء بريد إلكتروني جديد، ثم في نافذةالرسالة، انقر فوق أيقونةتخصيص شريط أدوات الوصول السريع، واخترالمزيد من الأوامر، كما في لقطة الشاشة:

6. في مربع حوارخيارات Outlook:

(1.) اختروحدات الماكرومن قائمةاختيار الأوامر منالمنسدلة؛

(2.) ثم اختر اسم كود VBA الذي أدخلته للتو؛

(3.) انقر فوق زرإضافةلإضافة الكود إلى قائمةتخصيص شريط أدوات الوصول السريع.

7. بعد ذلك، ستظهر أيقونة الماكرو فيشريط أدوات الوصول السريع، كما هو موضح في لقطة الشاشة التالية:

8. الآن، عند النقر فوق أيقونة الماكرو، سيتم إدراج أسماء المستلمين من حقل «إلى» مباشرةً في نص الرسالة، كما هو موضح في لقطة الشاشة التالية: