كيفية إرسال بريد إلكتروني إذا تم النقر فوق الزر في Excel؟

لنفترض أنك بحاجة إلى إرسال بريد إلكتروني من خلال Outlook بالنقر فوق زر في ورقة عمل Excel ، كيف يمكنك القيام بذلك؟ ستقدم هذه المقالة طريقة VBA لتحقيق ذلك بالتفصيل.

أرسل بريدًا إلكترونيًا إذا تم النقر فوق الزر برمز VBA

أرسل بريدًا إلكترونيًا إذا تم النقر فوق الزر برمز VBA

يرجى القيام بما يلي لإرسال بريد إلكتروني عبر Outlook إذا تم النقر فوق زر الأمر في مصنف Excel.

1. أدخل زر الأمر في ورقة العمل الخاصة بك عن طريق النقر المطور > إدراج > زر الأمر (عنصر تحكم ActiveX). انظر لقطة الشاشة:

2. انقر بزر الماوس الأيمن فوق زر الأمر الذي تم إدخاله ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن كما هو موضح أدناه.

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

كود فبا: أرسل بريدًا إلكترونيًا إذا تم النقر فوق الزر في Excel

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

ملاحظة:

1). الرجاء تغيير نص البريد الإلكتروني كما تريد في xMailBody سطر في الكود.

2). استبدال عنوان البريد الإلكتروني مع عنوان البريد الإلكتروني للمستلم في السطر .To = "عنوان البريد الإلكتروني".

3). حدد مستلمي "نسخة إلى" و "نسخة مخفية الوجهة" كما تريد .CC = "" و .Bcc = "" أقسام.

4). تغيير موضوع البريد الإلكتروني في السطر .Subject = "اختبار إرسال البريد الإلكتروني بالنقر فوق الزر".

4. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

5. قم بإيقاف تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم. انظر لقطة الشاشة:

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

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

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

• كيفية إرسال بريد إلكتروني تلقائيًا بناءً على قيمة الخلية في Excel؟
• كيفية إرسال بريد إلكتروني من خلال Outlook عندما يتم حفظ المصنف في Excel؟
• كيفية إرسال بريد إلكتروني إذا تم تعديل خلية معينة في Excel؟
• كيفية إرسال بريد إلكتروني إذا تم الوفاء بتاريخ الاستحقاق في Excel؟
• كيفية إرسال تذكير أو إعلام بالبريد الإلكتروني إذا تم تحديث المصنف في Excel؟

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...