كيف طريقة ارسال الايميل بكود معين عند انقضاء فترة معينة

[أبو. مشاري]

السلام عليكم

مثل ماهو مبين بالموضوع وطلبي هو كتالي :

عندي ملف اكسل (مرفق ) تفضل علي العضوا الفاضل المبدع Justice_1 وهو عبارة عن متابعة معاملات ويوجد في الملف تنسق شرطي بحيث إذا مر على تاريخ المعاملة أكثر من عدة ايام تضيء باللون الأحمر ويوجد خانة بها أيميل صاحب الشخص الذي يستوجب عليه الرد على الخطاب .

طلبي :

ارغب إذا تأخرت المعاملة بأن أضع كود أو تنسيق شرطي يقوم بإرسال أيميل إلى صاحب الشخص الذي يستوجب عليه الرد على بريده تحتوي على تنبيه بأن المعاملة تأخرت ويستوجب عليه الرد .

أنا في انتظاركم .. والله يحفظكم ويرعاكم

1مثال.rar

[أ / محمد صالح]

أخي الكريم أبا مشاري

بعيدا عن استخدام برنامج أوتلوك المتخصص في إرسال البريد والذي يحتاج إلى نوعمعين من حسابات البريد التي تدعم البوب أب

جئت لك بكود إرسال بريد مباشرة بدون برامج اعتمادا على حسابك في gmail

فإذا لم يكن لديك حساب فيجب التسجيل في www.gmail.com

ينبغي بعض المعرفة بطريقة كتابة صفحات html إذ كنت ترغب في رسالة ذات مستوى عالٍ لكتابة أكواد صفحة test.html

وأتركك مع المرفق

وأي استفسار لا تتردد

mas_mailer.rar

[عبدالله باقشير]

عمل رائع جدا جدا

سلمت يداك

و

[أ / محمد صالح]

عمل رائع جدا جدا

سلمت يداك

و

رأيك شهادة أعتز بها أخي خبور

وهذا دليل وصول الرسالة

لاحظ اسم المرسل وبريده وعنوان الرسالة وتنسيق الرسالة كصفحة html

وأهم شيء إذا لم تظهر حروف الرسالة بحروف عربية

يجب تغيير الترميز إلى

arabic(windows-1256) كما هو موضح بالصورة

كل عام أنتم بخير

[عبدالله باقشير]

السلاىم عليكم

اخي الفاضل / محمد صالح----- حفظه الله

انا فرحت كثير بهذا العمل

والسبب انني كنت حاولت من سابق اعمل تجارب لارسال البريد عبر ايميل ليس له دخل بايميل الجهاز

وكانت محاولات ليست بمثل ما اهديتنا اياه هذا اليوم

وتعلمنا على يدك شيئا كان غائبا عنا

وفوق كل ذي علم عليم

صدق الله العظيم

جزاك الله خيرا وحندعيلك إن شاء الله عند الفطور

اذا ذكرنا (لان حينها ينسيك الماء البارد ورائحة الطعام كل شي)

اخوك خبور خير

[أ / محمد صالح]

هذا تواضع منك أخي خبور خير

للعلم يوجد أكواد متعلقة بهذا الكود لإرسال صفحة من ملف أو الملف كاملا واستعمال مرفقات مع الرسالة

واستعمال نسخة مطابقة ونسخ أكثر في مرة واحدة

ولكن اقتصرت على الكود السابق لأنه هو المطلوب من الأخ أبي مشاري

وإن شاء الله سيتم عمل موضوع مستقل لعرض هذه الأكواد وكل ما يتعلق بالإكسل والبريد

*******

وأذكرك أخي الكريم

بأن دعوة المسلم لأخيه بظهر الغيب مستجابة وما بالك بدعاء الصائم

ويقول الملك لكل من دعا

آمين ولك مثلها

******

فلا تحرمنا ور تحرم نفسك من هذا الثواب

اخوكم

محمد صالح

[أبو. مشاري]

اخي العزيز محمد صالح

بارك الله فيك على هذا الابداع المميز ونسال الله العلي القدير بان يوفقك

لكن هل يوجد كود يقوم باخذ رقم المعاملة المتاخرة ويبلغها لصاحب الشان ؟

مثال :

نفيدكم بان المعاملة رقم 5555 متاخرة وتستوجب الرد

تم تعديل سبتمبر 9, 2009 بواسطه أبو. مشاري

[أ / محمد صالح]

أخي الكريم

ما دمت تريد إرسال بيانات من ورقة العمل فلن تصل اللغة العربية صحيحة نظرا لاختلاف الترميز بين الإكسل وصفحات الانترنت

ولذلك ستكون الرسالة باللغة الانجليزية

وهذا ما دفعني أمس إلى جعل الرسالة صفحة test.html حتى نستطيع إرسال رسالة باللغة العربية

على العموم مرفق مثال لاستخدام الدالة مع تغيير الاسم ورقم المعاملة

أكرر باللغة الانجليزية

تم تعديل سبتمبر 10, 2009 بواسطه mas123

[طارق محمود]

اخي الصالح / محمد صالح

ماشاء الله إبداع غير عادي وتميز ملحوظ

كنت أحتاج لمثل هذا ولم أعلم أنه ممكن

جزاك الله خيرا

سأجد الوقت لقراءة كل مشاركاتك إن شاء الله

واضح أنك كنز عظيم شأن كثير من الأخوة في المنتدي

بارك الله فيك

أخوكم / طارق

[أ / محمد صالح]

اخي العزيز محمد صالح

بارك الله فيك على هذا الابداع المميز ونسال الله العلي القدير بان يوفقك

لكن هل يوجد كود يقوم باخذ رقم المعاملة المتاخرة ويبلغها لصاحب الشان ؟

مثال :

نفيدكم بان المعاملة رقم 5555 متاخرة وتستوجب الرد

حاولت قب ذلك وكانت النتيجة

أخي الكريم

ما دمت تريد إرسال بيانات من ورقة العمل فلن تصل اللغة العربية صحيحة نظرا لاختلاف الترميز بين الإكسل وصفحات الانترنت

ولذلك ستكون الرسالة باللغة الانجليزية

وهذا ما دفعني أمس إلى جعل الرسالة صفحة test.html حتى نستطيع إرسال رسالة باللغة العربية

على العموم مرفق مثال لاستخدام الدالة مع تغيير الاسم ورقم المعاملة

أكرر باللغة الانجليزية

تم حذف المرفق لدواعي أمنية يعلمها المتقدمون

وتم التغيير والحمد لله

وهديتي لك أخي الكريم أبا مشاري

وكل من يريد هذا الموضوع

تم عمل دالة لتصنيع ملف test.html لكل عميل بمتغيراته

الاسم ورقم المعاملة وتاريخ المعاملة

وإرفاقه بالرسالة

ملحوظة يلزمك بعض التعديل في الكود الذي يصنع ملف test.html في الدالة وتغيير اسم شركتك أو تغيير الصيغة مع ملاحظة عدم تغيير أكواد html أو أكواد تضمين البيانا داخل الملف

كل عام أنتم بخير

أخوكم

محمد صالح

mas_mail2.rar

[أ / محمد صالح]

اخي الصالح / محمد صالح

ماشاء الله إبداع غير عادي وتميز ملحوظ

كنت أحتاج لمثل هذا ولم أعلم أنه ممكن

جزاك الله خيرا

سأجد الوقت لقراءة كل مشاركاتك إن شاء الله

واضح أنك كنز عظيم شأن كثير من الأخوة في المنتدي

بارك الله فيك

أخوكم / طارق

مجرد مرورك أخي طارق على ردودي شيء يسعدني

فما بالك بهذه الكلمات الرقيقة

ما أنا إلا طالب في مدرستكم أخي طارق

فلك أيادٍ بيضاء كثيرة لا تخفى على أحد في هذا الصرح التعليي الكبير

جزا الله القائمين عليه خير الجزاء

وكل عام أنتم بخير

[أبو. مشاري]

اخي الفاضل / محمد صالح----- حفظه الله

تحية طيبة

لم تعمل معي ولا ادري ما سبب مع اني طبقت جميع المستلزمات

انا في انتظارك

والله يحفظكم ويرعاكم

[محمد طاهر عرفه]

جزاك الله خيرا

إن فكرة استخدام ال CDO فى الارسال من الاكسيل لم ألتفت اليها من قبل

و هي ممتازة خاصة فى استخدام ال Gmail

و إن شاء الله تفتح للكثير من الأخوة أبواب كثيرة لربط التطبيقات المختلفة بالبريد

إضافة ممتازة و جعلهالله فى ميزان حسناتك

[أ / محمد صالح]

اخي الفاضل / محمد صالح----- حفظه الله

تحية طيبة

لم تعمل معي ولا ادري ما سبب مع اني طبقت جميع المستلزمات

انا في انتظارك

والله يحفظكم ويرعاكم

أخي الكريم

هل قمت بكتابة بريدك في gmail وكلمة مروره في المكان المحدد بالموديول؟؟

هل كتبت قائمة عناوين البريد الخاصة بالعملاء في مكانها في الشيت؟

هل ضغطت على الزر الموجود في الشيت؟

لا أعتقد أنك إذا قمت بما سبق

لن تعمل معك

وبانتظار ملاحظات الإخوة الذين قاموا بتجربة الكود بعد تعديله

[أ / محمد صالح]

جزاك الله خيرا

إن فكرة استخدام ال CDO فى الارسال من الاكسيل لم ألتفت اليها من قبل

و هي ممتازة خاصة فى استخدام ال Gmail

و إن شاء الله تفتح للكثير من الأخوة أبواب كثيرة لربط التطبيقات المختلفة بالبريد

إضافة ممتازة و جعلهالله فى ميزان حسناتك

سعيد جدا بمرورك أخي وصديقي م / محمد طاهر

وأضيف إلى ما سبق

أنه يمكن استعمالها في إرسال البريد من الموقع بعيدا عن شروط الاستضافة

فقد تحتم على صاحب الموقع الاستضافة عدم إرسال أكثر من مثلا 100 رسالة في الساعة

فكيف سيرسل إلى جميع أعضاء موقعه رسالة يهنئهم فيها بالعيد مثلا ؟؟؟

يوجد طريقة لنفس الغرض مع php

إرسال رسائل البريد بعيدا عن قيود الاستضافة

تقبل الله منا ومنكم

[أبو. مشاري]

اخي الفاضل / محمد صالح----- حفظه الله

تم العمل بشكل صحيح والسبب يعود مشكلة كانت بالبريد

لا ادري ماذا اقولك لك لكن فعلا لقد ابهرتنا بعملك الجبار اسال الله العلي القدير ان ينفع بك المسلمين وان يزيدك كمان وكمان علم

مع خالص تحياتي وشكري لك

تم تعديل سبتمبر 11, 2009 بواسطه أبو. مشاري

[أ / محمد صالح]

الحمد لله الذي هدانا لهذا

وما كنا لنتهدي لولا أن هدانا الله

[أبو. مشاري]

Sub mas()

On Error Resume Next

Dim n As Integer

For n = 2 To 31

If Range("b" & n & "").Value = "" And Date - Range("a" & n & "").Value > 14 Then

If Range("c" & n & "").Value <> "" Then

Kill ThisWorkbook.Path & "\test.html"

generatehtml (n)

Send_Mail (Range("c" & n & "").Value)

Range("d" & n & "").Value = "&Ecirc;&atilde; &Ccedil;&aacute;&Aring;&Ntilde;&Oacute;&Ccedil;&aacute;"

End If

End If

Next n

MsgBox "&Ecirc;&atilde; &Aring;&Ntilde;&Oacute;&Ccedil;&aacute; &Igrave;&atilde;&iacute;&Uacute; &Ccedil;&aacute;&Ntilde;&Oacute;&Ccedil;&AElig;&aacute;"

End Sub

ياخوان حرف n ايش يقصد اي شيت ؟؟؟؟

[أ / محمد صالح]

أخي الكريم

المتغير n يمثل سلسلة الأرقام من 2 إلى 31 وهو يمثل عدد الصفوف التي بها قائمة الإيميلات

For n = 2 To 31

If Range("b" & n & "").Value = "" And Date - Range("a" & n & "").Value > 14 Then

If Range("c" & n & "").Value <> "" Then

Kill ThisWorkbook.Path & "\test.html"

generatehtml (n)

ففي بداية السلسلة التكرارية تكون قيمة n=2 وهكذا يمكنك استبدال الحرف n بقيمته 2 فيما سبق من أكواد

ويتم تنفيذ الأكواد حتى نجد السطر

next n

والذي يعني تكرار نفس الخطوات مع زيادة قيمة n إلى 3 ثم 4 ثم 5 وهكذا حتى الرقم الموجود بعد to الذي هو 31 في حالتنا

أتمنى أن يكون الأمر اتضح

تم تعديل سبتمبر 15, 2009 بواسطه mas123

[أبو. مشاري]

الله يعطيك العافية

وياليت تكمل جميلك وتخبرناماهي باقي المتغيرات

تم تعديل سبتمبر 15, 2009 بواسطه أبو. مشاري

[أبو. مشاري]

ياخوان ممكن احد يساعدنا

انا لدي اشتراك في Outlook خاص بالعمل ،والمشكلة بأن بريد gmail البورتات الخاصة به لدينا بالعمل مقفله

كيف اقوم بتغير الكود بحيث اجعله عن طريق Outlook ؟؟؟؟

تم تعديل أكتوبر 15, 2009 بواسطه أبو. مشاري

[احمد فضيله]

بوركت يا ا/محمد

[احمد فضيله]

جزاك الله كل خير

[myyasser]

الله يعطيك العافية

[احمدزمان]

السلام عليكم

عمل رائع من استاذ فاضل

شيء رائع جدا جدا جدا

جزاك الله كل خير