كيفية إرسال بريد إلكتروني إلى عدة مستلمين في قائمة من Excel عبر Outlook؟

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

إرسال بريد إلكتروني إلى عدة مستلمين من Excel باستخدام كود VBA

إرسال بريد إلكتروني إلى عدة مستلمين مع المصنف الحالي كمرفق باستخدام كود VBA

إرسال بريد إلكتروني إلى عدة مستلمين من Excel باستخدام كود VBA

يمكنك استخدام كود VBA لإرسال رسالة إلى عدة مستلمين دفعة واحدة، يرجى اتباع الخطوات التالية:

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

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

كود VBA: إرسال بريد إلكتروني إلى عدة مستلمين

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3. وبعد ذلك اضغط على مفتاح F5 لتنفيذ هذا الكود، ستظهر نافذة منبثقة لتذكيرك بتحديد قائمة العناوين، انظر إلى الصورة:

4. ثم انقر فوق موافق، وسيتم عرض نافذة رسالة Outlook، ويمكنك رؤية أن جميع عناوين البريد الإلكتروني المختارة قد تم إضافتها إلى حقل "إلى"، وبعد ذلك يمكنك إدخال الموضوع وكتابة رسالتك، انظر إلى الصورة:

5. بعد الانتهاء من كتابة الرسالة، يرجى النقر فوق زر الإرسال، وسيتم إرسال هذه الرسالة إلى المستلمين الموجودين في قائمة ورقة العمل الخاصة بك.

إرسال بريد إلكتروني إلى عدة مستلمين مع المصنف الحالي كمرفق باستخدام كود VBA

إذا كنت بحاجة إلى إرسال رسالة إلى عدة مستلمين مع المصنف الحالي كمرفق، يمكنك تطبيق كود VBA التالي.

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

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

كود VBA: إرسال بريد إلكتروني إلى عدة مستلمين مع المصنف الحالي كمرفق

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. بعد لصق الكود، اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر نافذة منبثقة لتذكيرك بتحديد العناوين التي تريد إرسال الرسالة إليها، انظر إلى الصورة:

4. ثم انقر فوق زر موافق، وسيتم عرض نافذة رسالة Outlook، وقد تم إضافة جميع عناوين البريد الإلكتروني إلى حقل "إلى"، كما تم إدراج المصنف الحالي كمرفق أيضًا، وبعد ذلك يمكنك إدخال الموضوع وكتابة رسالتك، انظر إلى الصورة:

5. ثم انقر فوق زر الإرسال لإرسال هذه الرسالة إلى قائمة المستلمين مع المصنف الحالي كمرفق.

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

كيفية إرسال رسائل بريد إلكتروني جماعية مخصصة إلى قائمة من Excel عبر Outlook؟