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

Author: Xiaoyang Last Modified: 2025-05-30

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

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

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

يمكن أن يساعدك الكود التالي الخاص بـ VBA على إدراج أسماء جميع المستلمين من حقل "إلى" إلى نص الرسالة، يرجى تنفيذ الخطوات التالية:

1. قم بتشغيل Outlook، ثم اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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. وبعد ذلك لا تزال في نافذة Microsoft Visual Basic for Applications، انقر فوق أدوات > مراجع للانتقال إلى مربع الحوار References-Project1، وحدد خيار Microsoft Word Object Library من قائمة المراجع المتاحة، انظر لقطة الشاشة:

the screenshot of step about inserting all recipient names to email body in outlook 1

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

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