انتقل إلى المحتوى الرئيسي

استكشاف الجديد، نسخة مجانية من Kutools لبرنامج Outlook اليوم!

 

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

المؤلف: سيلفيا آخر تعديل: 2022-09-23

كما هو موضح في لقطة الشاشة أدناه ، إذا كان تاريخ الاستحقاق في العمود C أقل من أو يساوي 7 أيام (على سبيل المثال ، التاريخ الحالي هو 2017/9/13) ، يتم إرسال بريد إلكتروني إلى المستلم المحدد في العمود A و يتم عرض المحتوى المحدد في العمود B في نص البريد الإلكتروني. كيف يمكنك أن تفعل لتحقيق ذلك؟ توفر هذه المقالة رمز VBA لمساعدتك في إنجاز هذه المهمة.

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

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

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

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.

كود فبا: أرسل بريدًا إلكترونيًا إذا كان تاريخ الاستحقاق مغلقًا في إكسيل

Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
    Dim xRgDate As Range
    Dim xRgSend As Range
    Dim xRgText As Range
    Dim xRgDone As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xLastRow As Long
    Dim vbCrLf As String
    Dim xMailBody As String
    Dim xRgDateVal As String
    Dim xRgSendVal As String
    Dim xMailSubject As String
    Dim i As Long
    On Error Resume Next
    Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
    If xRgDate Is Nothing Then Exit Sub
    Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
    If xRgSend Is Nothing Then Exit Sub
    Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
    If xRgText Is Nothing Then Exit Sub
    xLastRow = xRgDate.Rows.count
    Set xRgDate = xRgDate(1)
    Set xRgSend = xRgSend(1)
    Set xRgText = xRgText(1)
    Set xOutApp = CreateObject("Outlook.Application")
    For i = 1 To xLastRow
        xRgDateVal = ""
        xRgDateVal = xRgDate.Offset(i - 1).Value
        If xRgDateVal <> "" Then
        If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
            xRgSendVal = xRgSend.Offset(i - 1).Value
            xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
            vbCrLf = "<br><br>"
            xMailBody = "<HTML><BODY>"
            xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
            xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
            xMailBody = xMailBody & "</BODY></HTML>"
            Set xMailItem = xOutApp.CreateItem(0)
            With xMailItem
                .Subject = xMailSubject
                .To = xRgSendVal
                .HTMLBody = xMailBody
                .Display
                '.Send
            End With
            Set xMailItem = Nothing
        End If
    End If
    Next
    Set xOutApp = Nothing
End Sub

ملاحظة: الخط إذا كان CDate (xRgDateVal) - التاريخ <= 7 و CDate (xRgDateVal) - التاريخ> 0 ثم في رمز VBA يعني أن تاريخ الاستحقاق يجب أن يكون أكبر من يوم واحد وأقل من أو يساوي 1 أيام. يمكنك تغييره كما تريد.

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

4. ثم الثانية كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد نطاق العمود المقابل الذي يحتوي على عناوين البريد الإلكتروني للمستلمين ، وانقر فوق OK زر. انظر لقطة الشاشة:

5. في الماضي كوتولس ل إكسيل ، حدد المحتوى الذي تريد عرضه في نص البريد الإلكتروني ، ثم انقر فوق OK .

بعد ذلك ، سيتم إنشاء بريد إلكتروني تلقائيًا مع المستلم المحدد والموضوع والجسم المدرجين إذا كان تاريخ الاستحقاق في العمود C أقل من أو يساوي 7 أيام. الرجاء الضغط على أرسل زر لإرسال البريد الإلكتروني.

ملاحظة:

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

2. لن يتم تشغيل هذا الرمز إذا لم تكن هناك تواريخ تفي بالمعايير.

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

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

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup  |   VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير   |  مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا   |  إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات:  12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

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

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