By رونين 2020 يوم الثلاثاء 14 فبراير 2023
نشر في Excel
الردود 0
الإعجابات 0
المشاهدات 2K
الأصوات 0
أنا جديد في VBA. أتطلع إلى إرسال بريد إلكتروني عندما تدخل الخلية K "نعم" .... لقد وصلت إلى هذا الحد ولكني أجد صعوبة في الخطوة التالية.

أرغب في قراءة نص البريد الإلكتروني على النحو التالي:

مرحبًا ، ملخص مقترح المشروع أدناه.

اسم المشروع: * معلومات من الخلية أ *
الوصف: * الخلية ب *
الحل: * الخلية C *
الفوائد: * Cell D *
التكلفة: * الخلية F *
الوقت: Cell * G *
الخطر: الخلية * ح *
العميل (العملاء): الخلية الأولى
العلامة التجارية (العلامات): Cell J

أطيب التحيات،

* الخلية L *


يوجد أدناه الرمز الذي استخدمته حتى الآن:


ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا كان Target.Cells.Count> 1 ثم اخرج من Sub
إذا كان (ليس التقاطع (الهدف ، النطاق ("K: K")) لا شيء) و (Target.Value = "نعم") إذن
اتصل بـ Mail_small_Text_Outlook
إنهاء حالة
نهاية الفرعية
Sub Mail_small_Text_Outlook الفرعي ()
خافت xOutApp ككائن
تعتيم xOutMail ككائن
خافت xMailBody كسلسلة
تعيين xOutApp = CreateObject ("Outlook.Application")
قم بتعيين xOutMail = xOutApp.CreateItem (0)
xMailBody = "مرحبًا" & vbNewLine & vbNewLine & _
"هذا هو السطر 1" & vbNewLine & _
"هذا هو السطر 2"
على خطأ استئناف التالي
مع xOutMail
. إلى = "عنوان البريد الإلكتروني"
.CC = ""
.BCC = ""
.Subject = "إرسال عن طريق اختبار قيمة الخلية"
. الجسم = xMailBody
.Display أو استخدام .Send
انتهت ب
على خطأ GoTo 0
تعيين xOutMail = لا شيء
تعيين xOutApp = لا شيء
نهاية الفرعية

شكراً لكم مقدماً لأي شخص يمكنه مساعدتي.
عرض مشاركة كاملة