ارسال رسالة من اكسس إلى ياهوو

[cudi]

السلام عليكم 

هل من الممكن ان ترسل كلمة المرور من اكسس إلى ياهوو ؟

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

اكسس سوف يرسل كلمة المرور خاص به إلى ياهوو 

علما كلمة المرور = 12345

علما ياهوو مربوط مع الانترنت ، إذا ما عندي انترنت لا استطيع استخدم ياهوو ، لكن اكسس يشتغل بدون انترنت

هذه الرابطة 

 

Database6.rar

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

تفضل أخي الكريم

هذا مثالك بعد بعض التعديلات

فقط يلزمك وضع بريدك في جميل وكلمة مروره في الكود الخاص بزر الإرسال

mas_forgetpassword_email.rar

[cudi]

شكرا جزيلا لك أخي الغالي

قصدك سأضع جميل الخاص بي في الكود و رقم السري الخاص بالجميل

و أي مستخدم نسيت كلمة المرور أنا سأتبعها ، سوف يرسل رقم سري الخاص بهم إلى ؟

 

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

سوف يرسل لهم بريد بكلمة المرور الخاصة بهم

من حسابك في جي ميل

[Shivan Rekany]

استأذن من استاذنا @أ / محمد صالح

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

وبعدين راح ترسل الرسالة الى اي ايميل ما في مشكلة في ذلك
فقط راح تكتب الى اي ايميل تريد ان ترسله 

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

مشكور أستاذ @Shivan Rekany على التوضيح

ولكن الآلية المتبعة في البرنامج هي

يختار أو يكتب اسم المستخدم في شاشة الدخول

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

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

باستخدام بريد جي ميل المبرمج أو القائم على الأمر

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

وفقنا الله جميعا لكل خير

[Shivan Rekany]

اسف استاذنا @أ / محمد صالح

انا ما انزلت المرفق ولكن قرأت مشاركتك الاولى وفكرت ذلك لان كتير مواضيع الارسال في هذه المنتدى يكون كما قلت في مشاركتي الاولى

لذا اعتذر منكم 

تقبلوا تحياتي

اخوكم الصغير

شفان ريكاني

[cudi]

شكرا جزيلا استاذ الغالي

لكن أعطاني هذه الرسالة

 

تم تعديل مايو 24, 2017 بواسطه cudi

[cudi]

 أنا تم حلها ذلك المشكلة لكن لا يرسل أيضا 

 يعطيني هذه الرسالة ،علما أنا استخدم هذه البريد يوميا بدون أي مشكلة

هل يجب أستخدم جي ميل فقط ؟

 

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

6 ساعات مضت, cudi said:

شكرا جزيلا استاذ الغالي

لكن أعطاني هذه الرسالة

 

حل هذه المشكلة هو تغيير السطر الذي يحتوي على dlookup عن كلمة المرور للبريد المكتوب 

بإحاطة البريد بفاصلة مفردة لأنه نص

.HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'>كلمة المرور للبريد : <font style='color:red'>" & Me.txtMail & "</font><br /><br /><br />هي :<br /><font style='color:green'>" & DLookup("[Password]", "UsersT", "[Email]='" & Me.txtMail & "'") & "</font></div>"

لاحظ هذا الجزء

'" & Me.txtMail & "'"

أما بخصوص رسالة الخطأ الثانية

فهي تعني

أن البريد المكتوب لا يتوافق مع صيغة البريد وهي

username@website.com

وعلى العموم يمكن حذف كود التأكد من صحة تكوين عنوان البريد في الحدث

Private Sub txtMail_AfterUpdate()

وفقنا الله وإياكم لكل ما يحب ويرضى

[Shivan Rekany]

من جديد أستأذن من استاذنا @أ / محمد صالح

اخي ميفان السلام عليكم ورحمة الله وبركاته

هناك بعض خطوات لاز تعمله .. لا اعلم هل عملته ام لا

اولا

يجب ان تكتب جيميلك و رقم سري في الكود الارسال

شوف الصورة انا كتبت جيميلي و رقم سري تابع جيميلي ... لكن اللي في الصورة ليس رقم سري صحيح لا تفكر ان تحاول تفتح جيميلي 

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

ثانيا

هناك كان نقص في الكود
اي اننا نتعامل مع حقل نصي لذا يجب ان نكتب شرط هكذا 

"[Email]='" & me.txtMail & "'"

كما في الصورة

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

7 ساعات مضت, cudi said:

لكن أعطاني هذه الرسالة

 

و اخيرا تم ارسال بنجاح

شوف الصورة

تقبلوا تحياتي

اعتذر منك استاذ @أ / محمد صالح انا ما عملت الريفرريش لصفحة لذا ما رأيت ردك ..
تقبل تحياتي

mas_forgetpassword_email.rar

تم تعديل مايو 24, 2017 بواسطه Shivan Rekany

[cudi]

شكرا جزيلا أستاذ محمد

و شكرا جزيلا لك أخي شفان

أنا استخدمت جي ميلي مع كلمة المرور 

لكن صح المشكيلة كانت في ذلك السطر 

"[Email]='" & me.txtMail & "'"

لكن ايضا أعطاني خطأ في الارسال 

علما أنا أستخدم انترنت من موبايل ليست واي فاي ، لكن انترنت موجود و يعمل بدون مشاكل

 

 

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

أنا تعطلت انتي فايروس أيضا لكن لم ينجح

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

 

تم تعديل مايو 25, 2017 بواسطه cudi

[Shivan Rekany]

2 ساعات مضت, cudi said:

 

 

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

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

تم تعديل مايو 25, 2017 بواسطه Shivan Rekany

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

يجب تمكين التطبيقات من الدخول لجي ميل

من هنا

https://myaccount.google.com/lesssecureapps

ولا تخف فهم يعتبرون استعمال البريد بهذه الطريقة غير آمن

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

زيادة في التوضيح

هذا المثال كنت قد نفذته في 2011 ووضعت به كل امكانيات إرسال البريد من جيميل باستخدام cdo

وبعد سطر البريد والباسوورد

هذه أهم سطور

        .replyto = "mm@mm.com"  'myemail or any other
        .cc = Me.cc             'with coma (,) separated
        .bcc = Me.bcc           'with coma (,) separated
        .to = Me.tomail
        .From = """" & Me.myname & """ <" & myemail & ">"
        .Subject = Me.sub
        .BodyPart.Charset = "UTF-8"
        '.TextBody = "plain text"                       'send pain text
        '.CreateMHTMLBody "http://www.google.com"       'send web page
        '.CreateMHTMLBody "file://c|/temp/test.htm"     'send hrml file
        .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'></div>"
        .AddAttachment (Me.attach)                      'you can attach more repeat this line with full file path

شرح هذه السطور

1. للرد إلى بريدي أو أي بريد آخر
2. إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع رؤية كل واحد لجميع المرسل إيهم
3. إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع عدم رؤية كل واحد لجميع المرسل إيهم
4. المرسل إليه الأساسي
5. اسم المرسل وبريده 
6. نرميز جسم الرسالة
7. إمكانية إرسال نص فقط في جسم الرسالة
8. إمكانية إرسال ثفحة ويب فقط في جسم الرسالة
9. إمكانية إرسال ملف هتمل html فقط في جسم الرسالة
10. إمكانية إرسال كود html فقط في جسم الرسالة
11. إمكانية إضافة مرفقات للرسالة مع وضع مسار الملف كاملا واسمه وامتداده وتكرار السطر مع كل ملف مرفق

وفقنا الله وإياكم لكل ما يحب ويرضى

[ابو جودي]

6 دقائق مضت, أ / محمد صالح said:

زيادة في التوضيح

هذا المثال كنت قد نفذته في 2011 ووضعت به كل امكانيات إرسال البريد من جيميل باستخدام cdo

وبعد سطر البريد والباسوورد

هذه أهم سطور

        .replyto = "mm@mm.com"  'myemail or any other
        .cc = Me.cc             'with coma (,) separated
        .bcc = Me.bcc           'with coma (,) separated
        .to = Me.tomail
        .From = """" & Me.myname & """ <" & myemail & ">"
        .Subject = Me.sub
        .BodyPart.Charset = "UTF-8"
        '.TextBody = "plain text"                       'send pain text
        '.CreateMHTMLBody "http://www.google.com"       'send web page
        '.CreateMHTMLBody "file://c|/temp/test.htm"     'send hrml file
        .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'></div>"
        .AddAttachment (Me.attach)                      'you can attach more repeat this line with full file path

شرح هذه السطور

1. للرد إلى بريدي أو أي بريد آخر
2. إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع رؤية كل واحد لجميع المرسل إيهم
3. إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع عدم رؤية كل واحد لجميع المرسل إيهم
4. المرسل إليه الأساسي
5. اسم المرسل وبريده 
6. نرميز جسم الرسالة
7. إمكانية إرسال نص فقط في جسم الرسالة
8. إمكانية إرسال ثفحة ويب فقط في جسم الرسالة
9. إمكانية إرسال ملف هتمل html فقط في جسم الرسالة
10. إمكانية إرسال كود html فقط في جسم الرسالة
11. إمكانية إضافة مرفقات للرسالة مع وضع مسار الملف كاملا واسمه وامتداده وتكرار السطر مع كل ملف مرفق

وفقنا الله وإياكم لكل ما يحب ويرضى

استاذ @أ / محمد صالح اولا كل عام وانتم بخير وسعادة وكل عام وانتم الى الله اقرب
فضلا وكرما ممكن ارفاق المرفق الذى قمتم بعمله واشرتم الى ذلك  فى هذه الاسطر عنه 
 

اقتباس

هذا المثال كنت قد نفذته في 2011 ووضعت به كل امكانيات إرسال البريد من جيميل باستخدام cdo

 

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

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

الملف الموجود في المشاركة الثانية

مع بعض التعديل ليتوافق مع المطلوب هنا

والسطور المشروحة موجودة فعلا بالكود

[ابو جودي]

2 ساعات مضت, أ / محمد صالح said:

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

الملف الموجود في المشاركة الثانية

مع بعض التعديل ليتوافق مع المطلوب هنا

والسطور المشروحة موجودة فعلا بالكود

كل الشكر والتقدير استاذنا الجليل @أ / محمد صالح اعتذر جدا لم انتبه ان هذا المرفق هو ما تحدثتم عنه اعتذر جدا