تفسير وتجزئ هذا الكود

[محمد مصطفى الجن]

بسم الله الرحمن الرحيم

بعد الستعانة ب تعليمات البرنامج

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

File.OpenEmail(" ( تم حذف البريد لأن عرضه مخالف لشروط المنتدى ) ?CC= ( تم حذف البريد لأن عرضه مخالف لشروط المنتدى ) &BCC= ( تم حذف البريد لأن عرضه مخالف لشروط المنتدى ) &Subject=Your subject here&Body=Whatever you want as your email body here", SW_SHOWNORMAL);

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

ارجو من حضرتكم شرح أين يوضع هذا الكود

وعاوز اجزئه
بحيث يكون بشكل منسق

بمعنى الزر الاول البريد الكترونى الراسل

زر التانى الباسورد

زر تالت اسم الراسل

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

زر خامس عنوان الرسالة

زر سادس نص الرسالة

زر اخر ارفاق ملف

وزر ارسال

مع جعله يرسل من خلال اميل الياهو والجميل والاستقبال ايضا يكون من الاثنين معا

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

[Haitham.2012]

أخي الكريم لا داعي لتكرار المواضيع لنفس الطلب ...

بالنسبه لعملية الارسال للبريد الإلكتروني فأفضل وسيله هي استخدام الاضافه : stmpT

الملف المفتوح في المشاركه الثانيه في هذا الموضوع ..

http://www.abc4web.net/vb/showthread.php?t=26486

[القنـاص المصرى]

اخى الكود غير واضح لذلك اتبع الاتى
1. قم باستبدال الميل الخاص بك فى الكود بكلمة E-mail
2.ضع الكود فى شكل اقتباس او كود وذلك بعد ادراجه وتحديده فى نافذة وتحديد المنتدى ستجد هذه العلامة http://img196.imageshack.us/img196/5557/i6dh.png
بعد ذلك سيتيسر للقارئ مشاهدة الكود وبالتالى فهمه ثم اعادة شرحه لك

[محمد مصطفى الجن]

هذا مايحدث اخى بعد الضغط على زر ارسال ارجو الحل

[محمد مصطفى الجن]

شاهد الصورة المرفقة

[رعد الحواسيب]

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

وتقريبا الانتي فيرس يوقف الاتصال لذلك قم بإيقافه مؤقتا وأضمن لك أنه لا يوجد أي فيروسات في الملف أو إختراق أو شيء من ذلك ..

وفقك الله

- راجع الخاص

[محمد مصطفى الجن]

هل شاهدت الصورة عند الضغط على زر ارسال يفتح برنامج الافاست

[محمد مصطفى الجن]

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

[Haitham.2012]

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

كما قال لك الأخ رعد أن الرساله ما هي إلا تحذير أنه لن يتمكن من فحص الفيروسات في هذا النوع من الاتصال ... ثانيا اما عن ظهور الرساله عند المستخدمين أو عدمه فهذا يتوقف على استخدامهم لبرنامج الافاست ... اما عن استقبال رسائل البريد فلا أعرف إن كان ممكن أم لا بإستخدام الاضافه ... اما عن الارسال من الياهو او ال gmail او الهوتميل فتابع معي ...

الأكواد الموجوده في زر الارسال تتكون من ثلاث جداول أساسيه وهي :

tblMailProperties = {};

tblServerProperties = {};

tblAttachments = {};

إلى الآن تمام ؟؟ .. طيب !!

التغيير سيكون في الجزء أو الجدول الثاني وهو

tblServerProperties = {};


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


tblServerProperties.Server = "smtp.gmail.com"
tblServerProperties.ServerPort = 465


فإذا أردت استخدام الياهو فإستبدل السطرين بـ


tblServerProperties.Server = "smtp.mail.yahoo.com"
tblServerProperties.ServerPort = 465


وإذا أردت استخدام الهوتميل فإستبدل السطرين بـ


tblServerProperties.Server = "smtp.live.com"
tblServerProperties.ServerPort = 25


بالتوفيق

[محمد مصطفى الجن]

مشكوررين جدا اخى رعد واخى حاتم الجميل

تم والحمد لله تعديل كل الامور باتباع شرحكم الجميل