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

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

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

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

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

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

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

رمز فبا: أدخل أسماء المستلمين في نص الرسالة:

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 الخيار من المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:

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

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