اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم عائلة اوفيسنا الكرام

اليوم سوف نطرح موضوع غاية الأهمية موضوع ينتظره الجميع وهو إرسال رسائل وتقارير فردية وجماعية او الى مجموعة محددة من قاعدة البيانات عبر الاميل والوتساب . والبرنامج تحت التجربة

ولكن من صعوبة هذا الموضوع اختلاف نسخة الويندوز والافيس من جهاز الى جهاز مثل اللغة والأمان وبعض الادوات المختلفة الموجودة بهما

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

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

وهذا يتطلب الاتى

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

ثانيا / ارجو عند ارسال او استقبال الرسائل يتم تصويرها ووضعها فى قلب  الموضوع ويذكر نوع نسخة الويندوز ونسخة الافيس لمعالجة واكتشاف الخطأ.

كل هذه الخطوات تجعلنا نتغلب على معظم المشاكل التى توجهنا بشأن هذا الموضوع حتى نضمن وصلها الى العميل بدون مشاكل مهما كان نوع الاوفيس او والويندوز الخاص بالعميل

ثالثا / طريقة الحوار فى الموضوع كالاتى سوف يتم نشر الفيديو على اجزاء لشرح البرنامج بالتفصيل مع وضع الكود الخاص بكل جزء للمناقشة والحوار والتجربة للوصول الى افضل الحلول ؟

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

اتمنى ان الفيديو يحوذ اعجبكم

 

ملحوظة عدم المشاركة بترك بيانات يتم التجارب عليها يجعلنى التزم الصمت واكتفى بمشاركات فردية مع خبراء المنتدى لمعالجة وفلترة البرنامج

ليكون برنامج خاص

تحياتى وتقديرى للجميع

 

 

 

تم تعديل بواسطه jjafferr
تم حذف المرفق مؤقتا بطلب من الاخ حمدي
قام بنشر

السلام عليكم

احب انوه كما اشرت سابقا من قبل فى احد المواضيع السابقة ان هذا الموضوع ليس من صنعى ولكن تم اخذ فكرتها وتجميعه من عددت مواضيع بالمنتدى منها موضوع الاستاذ ابو جودى والاستاذ موسى والاستاذ محمد صالح ود. كاف يار وبعض الزملاء الافاضل بالمنتدى وغير هذا المنتدى وتم تجميع كل المواضيع واعادتها بصورة شاملة بنموذج واحد ولكنها تحتاج الى لمسات فنية وجوهرية من عبقرة المنتدى لاستكمال الموضوع واشكر كل من ساهم بهذا الموضوع شكرا جزيلا وللجميع فائق الاحترام والتقدير 

قام بنشر
في 7‏/12‏/2022 at 04:24, حمدى الظابط said:

اولا / ترك الاميلات وأرقام الهاتف الخاصة للمشاركين فى الموضوع لتجربة الإرسال

السلام عليكم اخي حمدي 🙂

لا انصح بهذا العمل ، فعند كشف الايميل ورقم الهاتف في المنتدى المفتوح ، فهذا يعرض صاحبه الى استلامه الى رسائل تخريبية واتصالات هو في غنى عنها !!

 

جعفر

  • Like 2
قام بنشر (معدل)
4 ساعات مضت, jjafferr said:

السلام عليكم اخي حمدي 🙂

لا انصح بهذا العمل ، فعند كشف الايميل ورقم الهاتف في المنتدى المفتوح ، فهذا يعرض صاحبه الى استلامه الى رسائل تخريبية واتصالات هو في غنى عنها !!

 

جعفر

السلام عليكم الفاضل والمحترم والراقى استاذ جعفر

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

معلمى الفاضل استاذ جعفر هل تسمح لى بسؤال فى لب الموضوع ؟

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

هل هذا بسبب الامان الخاص بال جى ميل ام سببه خظأ بالكود ؟

تحياتى وتقديرى

 

 

تم تعديل بواسطه حمدى الظابط
قام بنشر

وعليكم السلام اخوي حمدي 🙂

 

انزلت المرفق ، ولكنه غير كامل ولم يعمل عندي بسبب عدم وجود العديد من الكائنات !!

للاسف انا حاليا مو متخصص في الايميل (قبل حوالي 12 سنه كنت فيها بالثقيل 🙂 ) ، 

الهمة في الشباب اللي يشتغلون على الايميل 🙂

 

جعفر

  • Like 1
قام بنشر (معدل)
في 9‏/12‏/2022 at 12:13, jjafferr said:

وعليكم السلام اخوي حمدي 🙂

 

انزلت المرفق ، ولكنه غير كامل ولم يعمل عندي بسبب عدم وجود العديد من الكائنات !!

للاسف انا حاليا مو متخصص في الايميل (قبل حوالي 12 سنه كنت فيها بالثقيل 🙂 ) ، 

الهمة في الشباب اللي يشتغلون على الايميل 🙂

 

جعفر

السلام عليكم استاذى ومعلمى الجليل جعفر

هذا هو الملف الخاص بارسال الرسائل النصية فقط بكل ادواته وطبعا انا بنزل البرنامج على اجزاء حتى يتم حل مشاكل كل جزء لوحدة حين نتهى منه تماما ندخل على جزء الثانى وهو ارفاق التقارير عن طريق الاميل ثم الرسائل والتقارير عن طريق الوتساب

لذلك كنت اود من الاعضاء الافاضل المشاركة فى الموضوع حتى نعرف خلل الارسال من اين وهل هذا الخلل على كل الاجهزة بنسخة الافيس والويندوز ولا على بعض الاجهزة ومازلت منتظر العون من اعضاء المنتدى لان هذا الموضوع عام ويهم الجميع

وهناك بعض الاسئلة فى الجزء الاول المعروض حاليا

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

ثانيا / هناك خطأ ظهر فى الفيديو وهو بعد ارفاق ملف ورد فى المرفقات ظهرت رسالة ان تم الارسال بنجاح ثم ظهرت رسالة تقول ان لم يتم الارسال بسبب الحجم الزائد بالمرفق وطبعا المفروض تظهر هذه الرسالة قبل ظهور رسالة تم الارسال بنجاح وليس بعدها حتى يعلم المستخدم بان حجم المرفق كبير ولم يتم الارسال .

تحياتى وتقديرى لشخصكم الكريم

 

 

 

 

تم تعديل بواسطه jjafferr
تم حذف المرفق مؤقتا بطلب من الاخ حمدي
قام بنشر

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

واضافة مؤشر تحميل اثناء الارسال يعطى تم ارسال كم فى % من الارسال 

وجارى التحديث للانتهاء من النموذج على اكمل وجه ان شاء الله

قام بنشر (معدل)

السلام عليكم أخي @حمدى الظابط 🙂 

بحمد الله ضبطت لك كود إرسال البريد الإلكتروني ..

ولكن هناك نقطة مهمة ( ضرووووووووووووووووووووري جدا جدا جدا ) إتباع الخطوات المذكورة في الموضوع التالي كتضبيطات للجيميل لكي يتم الاتصال بالبريد وإرسال الرسائل :

 

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

وقمت بتعديل على مصدر بيانات النموذج الفرعي وتغيير زر ال ✔ ليكون بطريقة أسهل 🙂 

وتم الإرسال بنجاح ولله الحمد 🙂 

image.png.6fc603be92ebc8fe43664b88751c25dd.png

وفي البريد الإلكتروني :

image.png.ebd41a8c08f8ad1ab22f4abab52b3e8b.png

 

 

 

 

تم تعديل بواسطه jjafferr
تم حذف المرفق مؤقتا بطلب من الاخ حمدي
  • Like 2
قام بنشر (معدل)

السلام عليكم الراقى والمعين على الدوام استاذ موسى

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

3 ساعات مضت, Moosak said:

السلام عليكم أخي @حمدى الظابط 🙂 

بحمد الله ضبطت لك كود إرسال البريد الإلكتروني ..

ولكن هناك نقطة مهمة ( ضرووووووووووووووووووووري جدا جدا جدا ) إتباع الخطوات المذكورة في الموضوع التالي كتضبيطات للجيميل لكي يتم الاتصال بالبريد وإرسال الرسائل :

 

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

وقمت بتعديل على مصدر بيانات النموذج الفرعي وتغيير زر ال ✔ ليكون بطريقة أسهل 🙂 

وتم الإرسال بنجاح ولله الحمد 🙂 

image.png.6fc603be92ebc8fe43664b88751c25dd.png

وفي البريد الإلكتروني :

image.png.ebd41a8c08f8ad1ab22f4abab52b3e8b.png

إرسال رسائل البريد الإلكتروني.rar 52.78 kB · 0 downloads

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

تم التجربة وظهرت هذه الرسالة ان البريد غير صحيح ثم ظهر هذا النص

 "::::::::::::::::::: ( Sending Failed ) :::::::::::::::::::"

لذلك ارجو شرح الكود الموجود بالنموذج للافادة

ملحوظة انا شهدت الفيديو ولكنى غير طليع اوى فى اللغة الانجليزية  اريد توضيح اكثر للشرح لو امكن انا عارف انى هتعبك معايا شوبه كتار واتمنى يكون هذا الموضوع مرجع للجميع

تم تعديل بواسطه حمدى الظابط
قام بنشر (معدل)

اكتر حاجة محزنانى ان الاعضاء بتدخل فى صمت تحميل المرفق وتابع التحديثات وتابع التطورات ومافيش حد ساب اى تعليق بالسلب او بالايجاب لتوضيح الخلل الكل عايز ختام الموضوع دون تعب او مجهود او مشاركة

ولا يسعنى الا ان اشكر الفاضل الاستاذ جعفر والاستاذ موسى لرعايتهم يالامر واهتمامهم بالموضوع

المرفقات لتعديل

الارسال.rar

تم تعديل بواسطه حمدى الظابط
  • Like 1
قام بنشر (معدل)

أستاذ حمدي مرفق لك البرنامج بعد التعديل 🙂 ،،،

إرسال رسائل البريد الإلكتروني.rar

وبالنسبة لسؤالك :

20 ساعات مضت, حمدى الظابط said:

تم التجربة وظهرت هذه الرسالة ان البريد غير صحيح ثم ظهر هذا النص

 "::::::::::::::::::: ( Sending Failed ) :::::::::::::::::::"

فقد ذكرت لك :

21 ساعات مضت, Moosak said:

هناك نقطة مهمة ( ضرووووووووووووووووووووري جدا جدا جدا ) إتباع الخطوات المذكورة في الموضوع التالي كتضبيطات للجيميل لكي يتم الاتصال بالبريد وإرسال الرسائل

وهنا سأحاول باختصار شرح عمل تضبيطات الجيميل Gmail قبل استخدامه في الأكسس :

(1) أولا تذهب لاعدادات حسابك :

image.png.79e7b15e3539909182c1e5ac316ce5fd.png

(2) إعدادات الأمان :

image.png.62c0a41579c0b1b6f6d56736b9b73077.png

(3) تفعل التحقق بخطوتين ( اتبع الخطوات التي يعطيك إياها المتصفح ) :

image.png.c6117d546b11484bdb264e786cb6f9ba.png

(4) تعود لا عدادات الأمان وتختار ( كلمات مرور التطبيقات ) :

image.png.7db5f70e9ba35e86d800b04c41e4b776.png

(5) سيطلب منك إعادة إدخال كلمة المرور لبريدك الإلكتروني ..

(6) تضع نفس هذه الخيارات بالترتيب :

image.png.a40eb6981680f44d34aac145cc56c53d.png

(7) الخطوة الأخيرة .. ستعطيك جوجل كلمة مرور جديدة ( وهذه ستكون كلمة المرور التي ستستخدمها في برنامج الأكسس بدل كلمة المرور الحقيقية للإيميل ) :

image.png.b3fa32e1aabde020dba5466dcbecd4f3.png

 

ملاحظة أخيرة مهمة : ضروووووري جدا أن تحتفظ بالرقم الجديد عندك في أي مكان ، لأن جوجل لن تتيح لك الرجوع إليه مرة أخرة . 🙂 

 

 

تم تعديل بواسطه Moosak
  • Like 2
قام بنشر
في 11‏/12‏/2022 at 17:25, Moosak said:

أستاذ حمدي مرفق لك البرنامج بعد التعديل 🙂 ،،،

إرسال رسائل البريد الإلكتروني.rar 60.66 kB · 10 downloads

وبالنسبة لسؤالك :

فقد ذكرت لك :

وهنا سأحاول باختصار شرح عمل تضبيطات الجيميل Gmail قبل استخدامه في الأكسس :

(1) أولا تذهب لاعدادات حسابك :

image.png.79e7b15e3539909182c1e5ac316ce5fd.png

(2) إعدادات الأمان :

image.png.62c0a41579c0b1b6f6d56736b9b73077.png

(3) تفعل التحقق بخطوتين ( اتبع الخطوات التي يعطيك إياها المتصفح ) :

image.png.c6117d546b11484bdb264e786cb6f9ba.png

(4) تعود لا عدادات الأمان وتختار ( كلمات مرور التطبيقات ) :

image.png.7db5f70e9ba35e86d800b04c41e4b776.png

(5) سيطلب منك إعادة إدخال كلمة المرور لبريدك الإلكتروني ..

(6) تضع نفس هذه الخيارات بالترتيب :

image.png.a40eb6981680f44d34aac145cc56c53d.png

(7) الخطوة الأخيرة .. ستعطيك جوجل كلمة مرور جديدة ( وهذه ستكون كلمة المرور التي ستستخدمها في برنامج الأكسس بدل كلمة المرور الحقيقية للإيميل ) :

image.png.b3fa32e1aabde020dba5466dcbecd4f3.png

 

ملاحظة أخيرة مهمة : ضروووووري جدا أن تحتفظ بالرقم الجديد عندك في أي مكان ، لأن جوجل لن تتيح لك الرجوع إليه مرة أخرة . 🙂 

 

 

السلام عليكم

بعتذر عن التاخير فى الرد والمتابعة وذلك بسبب تسطيب نسخة ويندوز جديدة 10 برو  وقد وجهة بعض المشاكل وتعارض ماكرو الاكسيس افيس7 وبين ويندوز 10  وجارى حالها ان شاء الله لان مش عارف افتح اى ملف اكسيس بعد تسطيب النسخة الجديدة 

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

هاعالج المشكلة اللى عندى على الجهاز وارجع لحضرتك بعد التجربة كل الود والاحترام 

قام بنشر (معدل)

السلام عليكم

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

اولا اتبعت الخطوات التى ذكرتها حرفيا وتم التجربة وتم الارسال بنجاح فائق الجودة ( استعمل افيس 7 وويندوز 10 )  ولكن هناك مشكلة وهى عدم ظهور المرفق فى الرسالة ارجو النظر فى الامر لاستكمال والانتهاء من اول خطوة فى البرنامج حنى ندخل على ثانى خطوة وهى ارفاق تقارير واختيارة من عددت تقارير من قاعدة البيانات وهذا فى النموذج والموضوع التالى

وهناك ايضا بعض الثغرات يجيب تفاديها لاستكمال العمل

اولا / عند الضغط على زر  اختيار مجموعة يجب التظليل عليها بلون كم فى زر اختيار سجل

ثانيا / عند اختيار مرفق زائد الحجم المطلوب عن الارسال تظهر رسالة تحذير ( لم يتم الارسال حجم المرفق كبير برجاء ضغط المرفق)

ثالثا/ فى خالة عدم وجود انترنت تظهر رسالة تحذير ( اتأكد من الاتصال بالانترنت )

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

ات.pdf

تم تعديل بواسطه حمدى الظابط
قام بنشر

شكرا لك أخي حمدي 🙂

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

 

وبالنسبة للطلبات الجديدة .. سيكون باب الاجتهاد والمشاركة متاح للجميع .. لتتنوع الأفكار والإبداعات 🙂🌹

قام بنشر (معدل)
4 ساعات مضت, Moosak said:

شكرا لك أخي حمدي 🙂

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

 

وبالنسبة للطلبات الجديدة .. سيكون باب الاجتهاد والمشاركة متاح للجميع .. لتتنوع الأفكار والإبداعات 🙂🌹

السلام عليكم

اولا / لو حد كان عايز يشارك فى الموضوع كان شارك لكن الجميع بيدخل فى صمت يرى اخر ما تم الوصول اليه من نتائج ينسخها ويجربها فى صمت دون ترك اى تعليق او اثر شوف حضرتك كام عضو قراء الموضوع وكام عضو حمل الملفات .

ثانيا / ارجو ان تتبنى الموضوع حتى النهاية حتى اذا دخل احد يشارك واعلم ان الموضوع صعب وليس سهل ولكنى اعلم ايضا ان الامر بالنسبه لك سهل وليس صعب

ثالثا / تم ادراج الصورة فى المرفق وتم تشغيل السطر والحمد لله الرسالة واضحة ومنسقة فى جى ميل وغير مظبوطة فى الياهو تم ارفاق شكل الرسالة فى الياهو

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

خامسا / والاهم شكرا شكرا شكرا كل الاحترام والتقدير لشخصكم الراقى الكريم

g.pdf

تم تعديل بواسطه حمدى الظابط
قام بنشر

هممم

معلش اخوي حمدي ، يجب الالتزام بقوانين المنتدى ، موضوع مستقل لكل سؤال 🙂

فإذا تمت الاجابة على سؤال الموضوع ، فرجاء تفتح موضوع آخر للسؤال التالي 🙂

 

جعفر

  • Like 1
قام بنشر
1 ساعه مضت, jjafferr said:

هممم

معلش اخوي حمدي ، يجب الالتزام بقوانين المنتدى ، موضوع مستقل لكل سؤال 🙂

فإذا تمت الاجابة على سؤال الموضوع ، فرجاء تفتح موضوع آخر للسؤال التالي 🙂

 

جعفر

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

قام بنشر (معدل)

استاذ موسى 

ليس امر ولكنه تمنى سوف انتظر تعديل الكود لأنه عند ارسال رسالة للياهو بيتم التشفير ولكن بالنسبة للجميل الكود ممتاز

ملحوظة /

انا استأذنت من إدارة المنتدى لاستكمال الموضوع فيما يخص ارسال الرسائل فقط 

 

g.pdf

تم تعديل بواسطه حمدى الظابط
قام بنشر
2 ساعات مضت, حمدى الظابط said:

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

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

******************************************************************************************

15 ساعات مضت, Moosak said:

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

هذا السطر الذي ذكرته لك ( أزل الرمز ( ' ) من أمامه)  :

image.png.170396c87e6ab743bd6d98cc23c1c58e.png

وبعد التفعيل تم ارسال المرفق بنجاح :

image.png.31269ec14ed17c4542299a65b19c7031.png

******************************************************************************************

وبالنسبة لفحص الاتصال بالانترنت استخدم هذا الكود (يوضع في موديول عام) :

#If VBA7 Then
Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" _
                                (ByRef dwFlags As Long, _
                                ByVal dwReserved As Long) As Boolean
#Else
Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
                                (ByRef dwFlags As Long, _
                                ByVal dwReserved As Long) As Boolean
#End If

Function Is_Connected() As Boolean
Dim IEStat As Long

Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0)
End Function

Public Sub TestInternetConnection()
If Is_Connected() = True Then
         MsgBox "Connected"
       Else
            MsgBox "Not Connected"
       End If
End Sub

ثم يتم استدعاء أحد الدالتين التاليتين :

Connected()
هذه تعطيك نتيجة نعم/ لا على الإتصال
TestInternetConnection()
وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا

******************************************************************************************

وأنا أريدك أن تتعلم كيفية التعامل مع الأكواد أخي @حمدى الظابط 🙂 

 

 

  • Like 2
قام بنشر
3 ساعات مضت, Moosak said:

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

******************************************************************************************

هذا السطر الذي ذكرته لك ( أزل الرمز ( ' ) من أمامه)  :

image.png.170396c87e6ab743bd6d98cc23c1c58e.png

وبعد التفعيل تم ارسال المرفق بنجاح :

image.png.31269ec14ed17c4542299a65b19c7031.png

******************************************************************************************

وبالنسبة لفحص الاتصال بالانترنت استخدم هذا الكود (يوضع في موديول عام) :

#If VBA7 Then
Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" _
                                (ByRef dwFlags As Long, _
                                ByVal dwReserved As Long) As Boolean
#Else
Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
                                (ByRef dwFlags As Long, _
                                ByVal dwReserved As Long) As Boolean
#End If

Function Is_Connected() As Boolean
Dim IEStat As Long

Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0)
End Function

Public Sub TestInternetConnection()
If Is_Connected() = True Then
         MsgBox "Connected"
       Else
            MsgBox "Not Connected"
       End If
End Sub

ثم يتم استدعاء أحد الدالتين التاليتين :

Connected()
هذه تعطيك نتيجة نعم/ لا على الإتصال
TestInternetConnection()
وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا

******************************************************************************************

وأنا أريدك أن تتعلم كيفية التعامل مع الأكواد أخي @حمدى الظابط 🙂 

 

 

استاذى العزيز 

والله بحاول اتعلم لغة الاكواد ومع الممارسة بستطيع تركيب الاكواد على متطلبات البرامج الخاصة بى وبخصوص المرفق تم الحل الحمد لله 

وبخصوص الموديول لم افلح فى عمله 

لك احترامى وتقديرى

قام بنشر (معدل)

السلم عليكم 

عند الارسال يوجد خطاء فى هذا السطر 

 If Nz(DCount("SelectRow", "email", "selcted= -1"), 0) = 0 Then

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

 

1.rar

تم تعديل بواسطه حمدى الظابط

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information