كيفية إرسال بريد إلكتروني من نطاق محدد من الخلايا في Excel؟

في العديد من الحالات، قد يكون النطاق المحدد من المحتويات في ورقة عمل Excel مفيدًا في التواصل عبر البريد الإلكتروني. في هذه المقالة، سنقدم طريقة لإرسال بريد إلكتروني مع النطاق المحدد مباشرةً في نص البريد الإلكتروني في Excel.

إرسال بريد إلكتروني من نطاق محدد من الخلايا في Excel
إرسال بريد إلكتروني من نطاق محدد من الخلايا باستخدام أداة رائعة
المزيد من الدروس حول الإرسال بالبريد في Excel...

إرسال بريد إلكتروني من نطاق محدد من الخلايا في Excel

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

1. في ورقة العمل التي تحتوي على النطاق الذي تحتاج إلى نسخه، اضغط على مفتاحي "Alt + F11" معًا لفتح نافذة "Microsoft Visual Basic for Applications".

2. في نافذة "Microsoft Visual Basic for Applications" التي تظهر، الرجاء النقر على "Tools" > "References" كما هو موضح في لقطة الشاشة أدناه.

3. في مربع الحوار "References – VBAProject"، الرجاء العثور على خيار "Microsoft Outlook Object Library" والتأكد منه، ثم النقر على زر موافق.

4. انقر على "Insert" > "Module"، ثم قم بنسخ ولصق الكود التالي VBA في نافذة الوحدة.

كود VBA: إرسال بريد إلكتروني بنطاق محدد في Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

ملاحظات:

• 1). الرجاء تغيير نص البريد الإلكتروني في هذا السطر من البرنامج النصي xEmailBody = "مرحبا" & vbLf & vbLf & "نص الرسالة الذي تريد إضافته" & vbLf & vbLf & xEmailBody & vbNewLine حسب الحاجة.
• 2). الرجاء تحديد مستلم البريد الإلكتروني والموضوع في هذا السطر ضمن الكود: (.To = happy.xuebi@163.com and .Subject = "test").

5. اضغط على مفتاح F5 لتشغيل الكود. في مربع الحوار المنبثق Kutools لـ Excel، الرجاء تحديد النطاق الذي تحتاج إلى لصقه في نص البريد الإلكتروني، ثم انقر على زر موافق. انظر لقطة الشاشة:

6. الآن تم إنشاء بريد إلكتروني مع المستلم المحدد، الموضوع، النص والنطاق المحدد من Excel، الرجاء النقر على زر "إرسال" لإرسال هذا البريد الإلكتروني. انظر لقطة الشاشة الموضحة.

ملاحظة: يعمل كود VBA فقط عندما تستخدم Outlook كبرنامج بريدك الإلكتروني.

إرسال بريد إلكتروني من نطاق محدد من الخلايا باستخدام أداة رائعة

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

1. أولاً، تحتاج إلى إعداد قائمة مراسلة تحتوي على الحقول المطلوبة.

• نصائح: يجب أن تحتوي قائمة المراسلة على صفوف على الأقل، ويجب أن تكون الصف الأول عبارة عن رؤوس (على سبيل المثال إذا كنت تريد إرسال رسائل بريد إلكتروني إلى عنواني بريد إلكتروني في Excel، الرجاء كتابة هذين العنوانين مع رأس "البريد الإلكتروني" كما هو موضح في لقطة الشاشة أدناه).
• 
• بدلاً من ذلك، يمكنك إنشاء قائمة مراسلة بسهولة باستخدام ميزة إنشاء قائمة مراسلة.

2. حدد النطاق الذي ستضيف البيانات إليه في نص البريد الإلكتروني واضغط على مفتاحي Ctrl + C لنسخه.

3. حدد قائمة المراسلة بأكملها (بما في ذلك الرؤوس)، انقر على "Kutools Plus" > "إرسال رسائل بريد إلكتروني". انظر لقطة الشاشة:

4. بعد ذلك، سيظهر مربع الحوار "إرسال رسائل بريد إلكتروني".

• 4.1) يتم تعبئة عناصر قائمة المراسلة المحددة في الحقول المقابلة (يمكنك إضافة المزيد من الحقول إلى قائمة المراسلة حسب الحاجة)؛
• 4.2) انقر على مربع نص البريد الإلكتروني، واضغط على مفتاحي Ctrl + V للصق بيانات النطاق المحدد فيه. بعد ذلك، أضف محتوى آخر حسب الحاجة؛
• 4.3) قم بإلغاء تحديد مربع "إرسال رسائل بريد إلكتروني عبر Outlook"؛
• 4.4) انقر على زر "إعدادات خادم الإرسال". انظر لقطة الشاشة:

  

5. بعد ذلك، سيظهر مربع الحوار "إعدادات خادم الإرسال (SMTP) - مخطط جديد". الرجاء ملء عنوان البريد الإلكتروني مع إعدادات الخادم الخاصة به، وتحديد مجلد لحفظ جميع الرسائل المرسلة بعد تحديد مربع "حفظ الرسائل المرسلة إلى"، ثم انقر على زر موافق لحفظ الإعدادات.

6. عند العودة إلى مربع الحوار "إرسال رسائل بريد إلكتروني"، انقر على زر "إرسال" لإرسال البريد الإلكتروني.

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