Note: The other languages of the website are Google-translated. Back to English

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

هل سبق لك أن حاولت إرسال بريد إلكتروني بناءً على التاريخ في خلية Excel؟ على سبيل المثال ، فيما يلي قائمة بالتواريخ في العمود A ، ثم تريد إرسال بريد إلكتروني بالموضوع ونص الرسالة إلى مستلم (يمكن أيضًا CC و BCC للآخرين) ، كيف يمكنك التعامل معه؟

أرسل بريدًا إلكترونيًا بناءً على التاريخ باستخدام VBA


أرسل بريدًا إلكترونيًا بناءً على التاريخ باستخدام VBA

لإرسال بريد إلكتروني استنادًا إلى التاريخ في Excel ، يمكنك فقط تطبيق رمز ماكرو.

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

2. انقر إدراج > وحدة، والصق الكود أدناه في البرنامج النصي الفارغ. 

فبا: إرسال حسب التاريخ

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

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

4. انقر فوق "موافق" ، واستمر في تحديد موضوع البريد الإلكتروني ، وعنوان البريد الإلكتروني للمرسل ، وعنوان البريد الإلكتروني للمستلم ، و CC ، و BCC ، ونص الرسالة. انظر لقطة الشاشة:

إرسال المستند حسب التاريخ 2 حق السهم إرسال المستند حسب التاريخ 3 حق السهم إرسال المستند حسب التاريخ 4
        السهم لأسفل
إرسال المستند حسب التاريخ 7 سهم اليسار إرسال المستند حسب التاريخ 6 سهم اليسار إرسال المستند حسب التاريخ 5

5. انقر OK > OK حتى آخر مرة ، ثم تم إرسال البريد الإلكتروني.
إرسال المستند حسب التاريخ 8

ملاحظة: يجب أن يكون عنوان البريد الإلكتروني الخاص بالمرسل هو الحساب الافتراضي في Outlook الخاص بك.


إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني

doc إرسال بريد إلكتروني

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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (15)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني الحصول على VBA في Excel لإنشاء بريد إلكتروني عندما يتغير لون الخلية؟ يمكنني استخدام الصيغة لتغيير خط الخلايا ، بناءً على ساعة الكمبيوتر ، عندما يكون التاريخ ضمن نطاق قبل انتهاء الصلاحية. لدي حاليًا جدول بيانات به أسماء 25 موظفًا وتواريخ انتهاء صلاحية رخصة قيادتهم وتصاريح العمل وتواريخ تأشيرة الدخول / الخروج وتاريخ البدء السنوي. بعض التواريخ هي 30 يومًا ، والبعض الآخر 60 يومًا. عندما يدخل التاريخ في نطاق 30 (أو 60) يومًا قبل انتهاء الصلاحية ، تتغير القيمة في الخلية من الخط الأسود العادي إلى الخط الأحمر الغامق. أريد أن أكون قادرًا على إرسال بريد إلكتروني إليّ يحذرني من أن الشخص الموجود في A1 ... A2 ... A3 ، وما إلى ذلك على وشك انتهاء صلاحية مستند العمل. ما هو السيناريو الذي أحتاجه للتشغيل لإنجاز ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هنا مقال ربما يمكن أن يساعدك. https://www.extendoffice.com/documents/excel/4661-excel-send-email-if-cell-is-modified.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا قريب مما أحتاجه لكنني عالق في مشكلتين. أولاً ، أحتاج إلى تشغيل هذا عبر كتابي الكامل الذي تتم إضافة أوراق عمل جديدة إليه يوميًا. ثانيًا ، أحتاج إلى تضمين اسم ورقة العمل في البريد الإلكتروني حتى أعرف الورقة المستحقة. أقوم بإنشاء تذاكر جديدة (أوراق عمل) بحقل يمثل تاريخًا مستقبليًا ، وعندما يصل ذلك اليوم ، أحتاج إلى بريد إلكتروني. شكرا لك على مساعدتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فيليسيداديس من المواد ؛ بيرو لا لي funciona. Al parecer El Rango no se llena، por ende queda vacío y sale de la rutina.

علاقة ألغونا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
holagracias por tu ayuda ... tengo una Consulta ..... en la format Set xRgDate = Application.InputBox ("الرجاء تحديد عمود تاريخ الاستحقاق:"، "KuTools For Excel"،،،،،، 8)، el 8 كيو المعنى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يتم ملء المربعات تلقائيًا بعد الضغط على "موافق". أين يمكنني تغيير الموضوع وعنوان البريد الإلكتروني ونص البريد الإلكتروني في الرمز؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Bonjour j'ai copié lesodes، à la validation il me requeste bien les cellules worées، mais lorsque que je valide، il ne me Propose pas la suite des fenêtres، sujets، adresses etc
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً بوتري ، آسف على الرد بالإنجليزية لأنني لا أعرف الفرنسية. هل لي أن أعرف تنسيق التاريخ والوقت الخاص بك؟ أعتقد أن الكود ربما يعمل فقط للتاريخ والوقت بتنسيق التاريخ باللغة الإنجليزية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Merhaba ، bir excel dosyasında hatırlatıcı olarak bu konuyla ilgili VSB nin nasıl yapıldığı ile ilgili bilgiye ihtiyacım var. Örneğin boş bir hücreye bilgi girildiğinde bana mail at ya da 3 hafta sıklıkla hücreye bilgi girilip girilmediğiyle alakalı bana bilgi ver.

Hertürlü bilgi ve kaynağa açığım. Şimdiden herkese teşekkür ederim ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا محمد ، إليك برنامج تعليمي كيفية إرسال بريد إلكتروني إذا تم تعديل خلية معينة في Excel؟ يتحدث عن إرسال بريد إلكتروني مع ملف Excel كمرفق إذا تم تعديل الخلايا في النطاق المحدد ، مما قد يساعدك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Çok teşekkür ederim ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لن يستمر xRg التالي إذا كان لدي نفس التواريخ عدة مرات ، فإنه يرسل رسائل البريد الإلكتروني إلى نفس المستخدم عدة مرات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، vaibhav ، يمكنك إزالة المرات المكررة باستخدام ميزة إزالة التكرارات في أدوات البيانات ضمن علامة التبويب البيانات ، ثم استخدام VBA.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،


هذا مثالي ، ولكن عندما أقوم بإضافة تاريخ أو تغييره ، فلن يرسل البريد الإلكتروني Automatiklicht ، ولا بد لي من تشغيل الكود مرة أخرى وبحلول ذلك لا بد لي من اختيار نطاق التاريخ والمرسل والمستقبل وجميع المعلومات مرة أخرى. هل هناك طريقة لحل هذه المشكلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أقوم بالنقر فوق تشغيل التاريخ ، يُطلب مني تحديد نطاق ، لا يحدث شيء بعد النقر فوق "موافق"؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL