مرحبا،
أحاول إرسال بريد إلكتروني بناءً على تغيير غير مباشر في قيمة الخلية (على سبيل المثال> 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 = لا شيء
نهاية الفرعية
شكر!
مرحبا هناك،
عندما تحصل على خطأ 424 ، يرجى النقر فوق تصحيح الأخطاء ، ثم التقاط لقطة شاشة للمشكلة الموجودة.
قمنا بتشغيل الكود الذي قدمته ، لقد عمل بشكل جيد بعد أن قمنا بتغيير نهاية اذا ازرق داكن خروج الفرعية.
يرجى تغيير الكود الخاص بك وفقًا لذلك ، ثم جربه لمعرفة ما إذا كان يعمل بالشكل الذي تريده.
أماندا
عندما تحصل على خطأ 424 ، يرجى النقر فوق تصحيح الأخطاء ، ثم التقاط لقطة شاشة للمشكلة الموجودة.
قمنا بتشغيل الكود الذي قدمته ، لقد عمل بشكل جيد بعد أن قمنا بتغيير نهاية اذا ازرق داكن خروج الفرعية.
يرجى تغيير الكود الخاص بك وفقًا لذلك ، ثم جربه لمعرفة ما إذا كان يعمل بالشكل الذي تريده.
أماندا
شكرا اماندا! ومع ذلك ، ما زلت أتلقى الخطأ ، ولم يوفر الموجه خيار "تصحيح". أنا جديد إلى حد ما على VBA ، فهل يمكن أن تكون المسافة البادئة الخاصة بي؟ رؤيتها تعمل على نهايتك. لقد حاولت تحميل لقطة شاشة ولكني واجهت صعوبة في إرسال رسالة الرد الخاصة بي (يتم تحميلها لفترات طويلة ، مجرد تنبيه).
مرحبًا رايان ، هل قمت بتغيير خط يتوسطه خط فقط نهاية اذا إلى خروج الفرعية؟ (لقد لاحظت أن هناك خطأ مطبعي (eixt) في الصورة ، آسف لذلك.)
إذا كانت الإجابة بنعم ، هل يمكنك إرفاق ملف Excel حيث قمت بتطبيق الكود؟
أماندا
إذا كانت الإجابة بنعم ، هل يمكنك إرفاق ملف Excel حيث قمت بتطبيق الكود؟
أماندا
شكرا اماندا! ومع ذلك ، ما زلت أتلقى الخطأ ، ولم يوفر الموجه خيار "تصحيح". أنا جديد إلى حد ما على VBA ، فهل يمكن أن تكون المسافة البادئة الخاصة بي؟ رؤيتها تعمل على نهايتك. لقد حاولت تحميل لقطة شاشة ولكني واجهت صعوبة في إرسال رسالة الرد الخاصة بي (يتم تحميلها لفترات طويلة ، مجرد تنبيه).
يمكنك محاولة نشرها مع المرفقات الآن.
مرحبًا أماندا ، آسف للتأخير ، لقد قمت بتغيير End إذا كنت تريد الخروج من Sub. لكنني غير قادر على إضافة ملف Excel أو لقطات الشاشة لسبب ما - لا يمكنني الرد بالمرفقات. لم أتمكن من إضافة ملف Excel على أي حال لأنه ملف xlsm وغير مدعوم لتحميل الملف. هل يمكننا الدردشة عبر البريد الإلكتروني؟ ryandavis1225@gmail.com
مرحبًا أماندا و ExcelFan ، آسف للتأخير ، لقد قمت بتغيير End إذا كنت تريد الخروج من Sub. لكن ما زلت غير قادر على إضافة ملف Excel أو لقطات الشاشة لسبب ما - لا يمكنني الرد بالمرفقات. لم أتمكن من إضافة ملف Excel على أي حال لأنه ملف xlsm وغير مدعوم لتحميل الملف. على أي حال يمكننا الدردشة عبر البريد الإلكتروني؟ بهذه الطريقة يمكنني تمرير الملفات
مرحبًا أماندا ، آسف للتأخير ، لقد قمت بتغيير End إذا كنت تريد الخروج من Sub. لكنني غير قادر على إضافة ملف Excel أو لقطات الشاشة لسبب ما - لا يمكنني الرد بالمرفقات. لم أتمكن من إضافة ملف Excel على أي حال لأنه ملف xlsm وغير مدعوم لتحميل الملف. هل يمكننا الدردشة عبر البريد الإلكتروني؟ ryandavis1225@gmail.com
مرحبا،
لماذا لا تحفظها على شكل ملف مضغوط أو رر؟
لا أستطيع نشر أي نوع من أنواع الملفات للأسف ، ولا الروابط. لقد تواصلت مع الدعم ولكنني أجيب الآن حتى الآن. لست متأكدًا من السبب ولكن عند إرسال الصفحة يتم تحميلها فقط ولا يتم إرسالها. لقد جربت متصفحات متعددة ، ومسح ذاكرة التخزين المؤقت ، وأجهزة متعددة: /
أنا أقدر استعدادك للمساعدة! للأسف لا يمكنني تمرير الملفات في هذا الوقت
أنا أقدر استعدادك للمساعدة! للأسف لا يمكنني تمرير الملفات في هذا الوقت
اهلا ريان،
شكرًا على الملاحظات. سوف نتحقق مما إذا كانت هناك أي مشكلة تتعلق بإرفاق الملف. في الوقت الحالي، يُرجى إرسال ملفك إلى amanda@extendoffice.com
أماندا
شكرًا على الملاحظات. سوف نتحقق مما إذا كانت هناك أي مشكلة تتعلق بإرفاق الملف. في الوقت الحالي، يُرجى إرسال ملفك إلى amanda@extendoffice.com
أماندا
مرحبًا أماندا!
هذا ريان 4 من ExtendOffice. شكرًا لك على إرسال عنوان بريدك الإلكتروني للمساعدة في حل مشكلتي ، وأعتزم أن أكون عضوًا نشطًا منذ اكتشاف مجتمعك الرائع ، لذلك آمل أن يتم حل مشكلات تحميل ملفي في النهاية!
في الوقت الحالي ، يرجى الاطلاع على الملف المرفق هنا. لقد قمت بتحديث الكود لقراءة "Exit Sub" بدلاً من "End if" ، ومع ذلك ما زلت أتلقى خطأ بدون خيار تصحيح الأخطاء. هل تستطيع أن تنصح؟ ربما هو بنيتي أو المسافة البادئة.
شكرا مرة اخرى على المساعدة!
ريان
اهلا ريان،
تم استلام رسائل البريد الإلكتروني. نظرًا لأنه قد يكون هناك مستخدمون آخرون لديهم نفس المشكلة ، سأرد هنا.
الرجاء تجربة الطريقة أدناه:
1. فتح الرقم المرجعي.
2. التحقق من مكتبة كائنات Microsoft Outlook 16.0. ملاحظة: بدلاً من 16.0 ، قد يكون لديك 15.0 ، 14.0 ، إلخ.
3. استبدل الكود أدناه
Dim xOutApp As Object
Dim xOutMail As Objectإلى
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItemيرجى تجربة الخطوات الثلاث المذكورة أعلاه. نظرًا لأن vba الخاص بك يعمل بشكل جيد على جهاز الكمبيوتر الخاص بنا ، فمن الصعب علينا إعادة إنتاج المشكلة. نأمل أن تساعدك هذه الطريقة!
أماندا
مرحبًا أماندا ، لدي مكتبة كائنات Microsoft Outlook 16.0 ولكن للأسف لم ينجح هذا أيضًا - لدي خطأ جديد يشير إلى رمز المشكلة. يبدو أن Outlook.Application ليس نوعًا محددًا - هل أحتاج إلى إنشاء بعض الربط المبكر لتأهيل الكائن؟
شكرًا لك!
(ملاحظة مرة أخرى ، لا يمكنني إرسال لقطات شاشة / مرفقات - سأرسلها عبر البريد الإلكتروني ولكن لا تتردد في النشر هنا للمجتمع أيضًا.)
شكرًا لك!
(ملاحظة مرة أخرى ، لا يمكنني إرسال لقطات شاشة / مرفقات - سأرسلها عبر البريد الإلكتروني ولكن لا تتردد في النشر هنا للمجتمع أيضًا.)
اهلا ريان،
وصلت الرساله. لكن آسف لأن الكود يعمل على أجهزة الكمبيوتر الخاصة بنا ، لذلك لم نتمكن من التفكير في حلول أخرى لك الآن.
حول لقطات الشاشة ، هل نقرت تحميل الملفات تحت المرفقات مربع ثم حدد الملفات التي يدعمها المنتدى؟
أماندا
وصلت الرساله. لكن آسف لأن الكود يعمل على أجهزة الكمبيوتر الخاصة بنا ، لذلك لم نتمكن من التفكير في حلول أخرى لك الآن.
حول لقطات الشاشة ، هل نقرت تحميل الملفات تحت المرفقات مربع ثم حدد الملفات التي يدعمها المنتدى؟
أماندا
المشكله: / أتساءل ما يمكن أن يكون - سأحاول اللعب بها أكثر.
حول الملفات ، لقد حاولت ذلك. أقوم بتحميل ما يرام ولكن بعد التحقق من أنني لست روبوتًا وضرب الرد. يتم تحميل الصفحة وتحميلها فقط ، ولكن لا يتم إرسالها مطلقًا. يمكنني الرد على ما يرام بدون مرفقات. أماندا ، لقد أرسلت لك المرفقات والكتاب عبر البريد الإلكتروني.
سأعلمكم جميعًا إذا تم حل هذه المشكلة!
شكرا على كل المساعدة على أي حال
ريان
حول الملفات ، لقد حاولت ذلك. أقوم بتحميل ما يرام ولكن بعد التحقق من أنني لست روبوتًا وضرب الرد. يتم تحميل الصفحة وتحميلها فقط ، ولكن لا يتم إرسالها مطلقًا. يمكنني الرد على ما يرام بدون مرفقات. أماندا ، لقد أرسلت لك المرفقات والكتاب عبر البريد الإلكتروني.
سأعلمكم جميعًا إذا تم حل هذه المشكلة!
شكرا على كل المساعدة على أي حال
ريان
- الصفحة:
- 1
لا توجد ردود لهذا المنصب حتى الآن.