مرحبا،
أحاول إرسال بريد إلكتروني بناءً على تغيير غير مباشر في قيمة الخلية (على سبيل المثال> 7) ، مع مرفق البريد الإلكتروني ومرجع الخلية المحدد للخلايا المتغيرة في جسم البريد الخارجي الخاص بي. لقد تغيرت قيمة الخلية غير المباشرة إلى الأسفل بناءً على المعايير. ومع ذلك ، أتلقى خطأ 424 عند محاولة تعيين متغير لاستدعاء عنوان الخلية في بريدي الإلكتروني. هل يمكنك المساعدة؟ أشعر أنني قريب.
خافت xRg كمدى
خافت xRgSel كمجموعة
تعيين النطاق والهدف
ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
خافت xRgPre كنطاق
على خطأ استئناف التالي
إذا كان Target.Cells.Count> 1 ثم اخرج من Sub
تعيين xRg = Range ("Q2: Q43")
تعيين xRgPre = xRg السوابق
تعيين xRgSel = تقاطع (الهدف ، xRg)
ActiveWorkbook. حفظ
إذا كانت xRg.Value> 7 ثم
اتصل بـ Mail_small_Text_Outlook
ElseIf (ليس xRgPre لا شيء) و (تقاطع (الهدف ، xRgPre). Address = Target.Adress) ثم
إنهاء حالة
إنهاء حالة
نهاية الفرعية
Sub Mail_small_Text_Outlook الفرعي ()
خافت xOutApp ككائن
تعتيم xOutMail ككائن
خافت xMailBody كسلسلة
تعيين xOutApp = CreateObject ("Outlook.Application")
قم بتعيين xOutMail = xOutApp.CreateItem (0)
xMailBody = "مرحبًا ، خلايا (خلايا)" & xRgSel.Address (خطأ ، خطأ) & _
"في ورقة العمل '" & Me.Name & "' تجاوزت 3 أيام من الاستيعاب" & vbNewLine & vbNewLine & _
"يرجى مراجعة العملاء المتوقعين والتواصل معهم" & vbNewLine & _
"شكرا"
على خطأ استئناف التالي
مع xOutMail
. إلى = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "الأيام المنقضية منذ تناول الرصاص"
. الجسم = xMailBody
.المرفقات.إضافة (ThisWorkbook.FullName)
.Display أو .Send
انتهت ب
على خطأ GoTo 0
تعيين xOutMail = لا شيء
تعيين xOutApp = لا شيء
نهاية الفرعية
شكر!
أحاول إرسال بريد إلكتروني بناءً على تغيير غير مباشر في قيمة الخلية (على سبيل المثال> 7) ، مع مرفق البريد الإلكتروني ومرجع الخلية المحدد للخلايا المتغيرة في جسم البريد الخارجي الخاص بي. لقد تغيرت قيمة الخلية غير المباشرة إلى الأسفل بناءً على المعايير. ومع ذلك ، أتلقى خطأ 424 عند محاولة تعيين متغير لاستدعاء عنوان الخلية في بريدي الإلكتروني. هل يمكنك المساعدة؟ أشعر أنني قريب.
خافت xRg كمدى
خافت xRgSel كمجموعة
تعيين النطاق والهدف
ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
خافت xRgPre كنطاق
على خطأ استئناف التالي
إذا كان Target.Cells.Count> 1 ثم اخرج من Sub
تعيين xRg = Range ("Q2: Q43")
تعيين xRgPre = xRg السوابق
تعيين xRgSel = تقاطع (الهدف ، xRg)
ActiveWorkbook. حفظ
إذا كانت xRg.Value> 7 ثم
اتصل بـ Mail_small_Text_Outlook
ElseIf (ليس xRgPre لا شيء) و (تقاطع (الهدف ، xRgPre). Address = Target.Adress) ثم
إنهاء حالة
إنهاء حالة
نهاية الفرعية
Sub Mail_small_Text_Outlook الفرعي ()
خافت xOutApp ككائن
تعتيم xOutMail ككائن
خافت xMailBody كسلسلة
تعيين xOutApp = CreateObject ("Outlook.Application")
قم بتعيين xOutMail = xOutApp.CreateItem (0)
xMailBody = "مرحبًا ، خلايا (خلايا)" & xRgSel.Address (خطأ ، خطأ) & _
"في ورقة العمل '" & Me.Name & "' تجاوزت 3 أيام من الاستيعاب" & vbNewLine & vbNewLine & _
"يرجى مراجعة العملاء المتوقعين والتواصل معهم" & vbNewLine & _
"شكرا"
على خطأ استئناف التالي
مع xOutMail
. إلى = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "الأيام المنقضية منذ تناول الرصاص"
. الجسم = xMailBody
.المرفقات.إضافة (ThisWorkbook.FullName)
.Display أو .Send
انتهت ب
على خطأ GoTo 0
تعيين xOutMail = لا شيء
تعيين xOutApp = لا شيء
نهاية الفرعية
شكر!