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

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

إرسال بريد إلكتروني تلقائيًا استنادًا إلى قيمة الخلية باستخدام رمز VBA

إرسال بريد إلكتروني تلقائيًا استنادًا إلى قيمة الخلية باستخدام رمز VBA

يرجى القيام بما يلي لإرسال بريد إلكتروني بناءً على قيمة الخلية في Excel.

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

2. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا أدناه في نافذة كود الورقة.

كود VBA: أرسل بريدًا إلكترونيًا عبر Outlook استنادًا إلى قيمة الخلية في Excel

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

ملاحظة:

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

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

ملاحظة:

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

2. إذا كانت البيانات المدخلة في الخلية D7 عبارة عن قيمة نصية ، فسيتم أيضًا ظهور نافذة البريد الإلكتروني.

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

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