منتدى برامج نت | برامج نت | دليل المواقع | العاب فلاش | برامج | عيادة الطب | Free software
العاب افلام موقع منتديات

المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : طــريقــة أرسال رساله الى إيميل في الفيجوال بيسك 6 بدون استخدام أدوات اضافية .


يوفي VIP
02-22-2007, 07:52 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ..
لاحظت أكثر من مرة في ساحة طلبات الأعضاء على موضوع يُطلب فيه ارسال بيانات للبريد ..
في هذا الموضوع الصغير سأشرح موضوع بسيط وهو طريقة تصميم نموذج للمراسلة بشكل جميل وبسيط .
لا أطيل عليكم أخواني الكرام في المقدمة وسنبدأ في العملي مباشرة ..
في البداية فكرة بسيطة عن المشروع ..
يتم في البداية الاتصال بصفحة php وظيفتها ( كأنك عندما تقوم بفتح صندوق البريد وتريد ارسال رسالة فانه يطلب منك عنوان للرسالة مثل هذه الصورة )

http://www.man-u.net/vb/pic/1.gif

و حسب فهمي البسيط لها فان الصفحة التي سنصممها تحتوي على ثلاثة اشياء ::
1- عنوان الرسالة .
2- محتوى الرسالة .
3- البريد الخاص بك ( الذي تصلك عليه الرسالة )
----------------------------------
في البداية أفتح المفكرة وأضف فيها هذا الكود البسيط ..::

<?php
$mail=$_GET[mail];
$subject=$_GET[subject];
$body=$_GET;
mail($mail,$subject,$body);
?>

واحفظ الملف بصيغة php

http://www.man-u.net/vb/pic/2.gif

شاهد أيقونة الملف بعد الحفظ ( يجب أن تتأكد من أن الحفظ تم بصيغة php وليس TXT )

http://www.man-u.net/vb/pic/3.gif

بعد ذلك أرفع الملف على أي سيرفر ( يجب أن يكون السيرفر يدعم ملفات php )
** وفي الشرح رابط للصفحة رفعته على سيرفر أحد الزملاء ( وهو غير دائم ) ولكن للتجربة لمن أراد ذلك .
بعد ذلك نذهب لبرنامج Microsoft Visual Basic 6.0 وندرج به الأدوات التالية ..::
في البداية ندرج أداة Microsoft Internet Controls بالشكل التالي ..::
من قائمة Project نختار Components يخرج لك بعدها مربع الحوار التالي نختار منه ..::

http://www.man-u.net/vb/pic/4.gif

الأن ندرج في النموذج الأدوات التالية ..::

http://www.man-u.net/vb/pic/5.gif

في المربع الأول ( TEXT1 ) تضع به ايميلك الذي تريد أن تصل عليه الرسائل ، ( ولا تنسى أخفاءه من خلال الخاصية
Visible بجعلها تساوي القيمة ( False ) وكذلك الأداة WebBrowser نمنعها من الظهور بنفس الطريقة السابقة .
وفي المربع الثاني (TEXT2) يتم ادخال عنوان الرسالة .
وفي المربع الثالث ( Text3 ) يتم فيه ادخال محتوى للرسالة .. ولا تنسى تغيير الخصائص التالية في مربع محتوى الرسالة :
MultiLine = True
لكي نسمح بتعدد الأسطر
ScrollBars = 2
وذلك لإظهار أشرطه التمرير العمودية ..

http://www.man-u.net/vb/pic/6.gif

الآن أهم شيء في العملية وهو كود الإرسال وهو بسيط جداً بسطر واحد فقط !!
قم بادراج الكود التالي في زر الإرسال ..::

WebBrowser1.Navigate "ضع هنا رابط صفحة البي اتش بي التي رفعتها على سيرفرك" + "?mail=" + Text1 + "&subject=" + Text2 + "&body=" + Text3

أرى ان الكود واضح ولا يحتاج الى شرح حيث ربطنا من خلاله صفحة PHP التي رفعناها بمربعات النص التي أنشأناها في المشروع ..
وللتسهيل عليكم لمن أراد ان يجرب الدرس رفعت الصفحة على سيرفر زميلي ورابطها ..::
http://man-u.net/vb/send.php (http://man-u.net/vb/sendmaill.php)
ولا أضمن لكم أن الصفحة قد تدوم طويلاً لذلك حاول ان ترفعها على سيرفرك الخاص ..
المهم يصبح الكود بالشكل التالي ..::

[B]WebBrowser1.Navigate "http://man-u.net/vb/send.php (http://man-u.net/vb/send.php)" + "?mail=" + Text1 + "&subject=" + Text2 + "&body=" + Text3

ننفذ البرنامج الان لتجربته ونكتب من خلاله أي رسالة ..::


http://www.man-u.net/vb/pic/7.gif

بعد ارسال الرسالة مباشرة يتم ارسال الرسالة على إيميلك ( في Junk E-Mail + لا يوجد ايميل للمرسل )

http://www.man-u.net/vb/pic/8.gif


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

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



أي سؤال أو استفسار أخوكم يوفي VIP في الخدمة دائماً. .،،
دمتم في رعاية الله ..

يوفي VIP
02-22-2007, 08:25 PM
أسف المرفقات هنا ..::

qmoor
02-22-2007, 08:50 PM
أستاذي الكريم : يوفي Vip

جزاك الله خيرا ، وبارك فيك...

الله يعطيك الصحة والعافية وراحة البال ، ويبارك لك في مالك وأهلك..


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

الله لا يحرمك الأجر..

والله يرعاك...

@...Khalefa
02-22-2007, 11:34 PM
احييك على الموضوع الممتاز خاصة استخدام PHP طريقة جميلة جدا
واكمال بسيط للدرس لمسئلة التحقق من الاتصال بالشبكة في اكتر من طريقة
لكنى افضل الكود دا

Option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _
(ByVal IpxzUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Const sURL As String = "http://www.google.com/"

Private Function CheckInternet() As Boolean
If InternetCheckConnection(sURL, FLAG_ICC_FORCE_CONNECTION, 0&) Then
CheckInternet = True
End If
End Function


Private Sub Command1_Click()
If InternetCheckConnection(sURL, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connection failed!", vbInformation, "Error"
Else
MsgBox "Connection succeded!", vbInformation, "Success"
End If
End Subواخيرا الف شكر

يوفي VIP
02-23-2007, 09:05 AM
أستاذي الكريم : يوفي Vip

جزاك الله خيرا ، وبارك فيك...

الله يعطيك الصحة والعافية وراحة البال ، ويبارك لك في مالك وأهلك..


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

الله لا يحرمك الأجر..

والله يرعاك...

الله يجزاك خير أخي الكريم على مروركـ وعلى دعوتكـ الطيبه ..
بارك الله فيك أخي الكريم ..

يوفي VIP
02-23-2007, 09:09 AM
احييك على الموضوع الممتاز خاصة استخدام PHP طريقة جميلة جدا

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


Option Explicit

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _
(ByVal IpxzUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Const sURL As String = "http://www.google.com/"

Private Function CheckInternet() As Boolean
If InternetCheckConnection(sURL, FLAG_ICC_FORCE_CONNECTION, 0&) Then
CheckInternet = True
End If
End Function


Private Sub Command1_Click()
If InternetCheckConnection(sURL, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connection failed!", vbInformation, "Error"
Else
MsgBox "Connection succeded!", vbInformation, "Success"
End If

End Subواخيرا الف شكر




الله يجزاكـ خير أخوي خليفه على مروركـ الطيب ..
وعلى الاضافات المتميزة داائماً ..

ابو بدران
02-23-2007, 10:29 AM
السلام عليكم
شكراااااا اخي Vip على الموضوع الجميل
ارجو منك مساعدتي كيف اضيف تكست 4 لاضهار اسم المرسل لاني مبتدء
ارجو المساعدة ولك
جزيل الشكر

يوفي VIP
02-23-2007, 01:08 PM
السلام عليكم
شكراااااا اخي Vip على الموضوع الجميل
ارجو منك مساعدتي كيف اضيف تكست 4 لاضهار اسم المرسل لاني مبتدء
ارجو المساعدة ولك
جزيل الشكر
تفضل يالغالي ..
حمل المرفق

يوفي VIP
02-23-2007, 01:10 PM
هناك شيء بسيط أود التنويه له وهو أن الرسائل تأتي بسطر واحد ..
بمعنى انه لو كتبت كلمتين في سطرين ( كل سطر فيه كلمة ) فانه يضعها لك في سطر واحد ..
اما لو السطر ممتلئ فبالطبع ستأتي الرساله بأكثر من سطر ..


وهي مشكلة بسيطة ان شاء الله جاري العمل عليها ..

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

IBRAHIM_A
02-23-2007, 04:48 PM
بارك الله فيك اخي يوفي VIP على الموضوع الممتـــاز شـــــكرا لك
جــــــــزاك الله خيــــــرا

ابو بدران
02-23-2007, 05:57 PM
شكرا اخي Vip على الرد
جزاك الله خيرا والله يشفيك ان شاء الله وتكون بخير وعافية
لدي استفسار
هل يمكن ارسال الايميل على INBOX ليس GUNK E-MAIL
اذا امكن يرجى الشرح او مثال
وشكرا جزيلا

Ahmed_ghanam
02-23-2007, 08:32 PM
مششششششششششششششششششششششششششششكور اخى يوفى الله درس اكثر من رائع بل اكثر من مميز جزاك الله عنا خيرا ولا يحرمنا من مواضيعك الجميله المتميزة

يوفي VIP
02-24-2007, 06:41 AM
بارك الله فيك اخي يوفي VIP على الموضوع الممتـــاز شـــــكرا لك
جــــــــزاك الله خيــــــرا

الله يعافيك يالغالي ..
شرفتنا بمرورك الطيب ..

يوفي VIP
02-24-2007, 06:45 AM
شكرا اخي Vip على الرد
جزاك الله خيرا والله يشفيك ان شاء الله وتكون بخير وعافية
لدي استفسار
هل يمكن ارسال الايميل على INBOX ليس GUNK E-MAIL
اذا امكن يرجى الشرح او مثال
وشكرا جزيلا

الله يعافيك يالغالي ..
بالنسبة للرسالة فأرى والله العالم هذه حماية من نفس البريد ..
بمعنى أنك بامكانك أن تحول جميع الرسائل الى الـ INBOX ..
ولا تنسى أن الرسائل لا يدخل فيها المستخدم بريدهـ بحيث تصلك الرسائل بدون عنوان المرسل ..
وهذه بالطبع غير موثوقه ..
هذه وجهة نظري في هذا الموضوع وان شاء الله ان حصل معي
أي جديد لن أتأخر في طرحه باذن الله
..
موفق يالغالي ..،

يوفي VIP
02-24-2007, 06:47 AM
مششششششششششششششششششششششششششششكور اخى يوفى الله درس اكثر من رائع بل اكثر من مميز جزاك الله عنا خيرا ولا يحرمنا من مواضيعك الجميله المتميزة

الله يسلمك يالغالي ..
نورت يالغالي بمرورك وكلامك الطيب ..

ابو بدران
02-25-2007, 02:38 AM
شكرا اخي Vip على الرد
وبنتظار الجديد

يوفي VIP
02-26-2007, 11:48 AM
شكرا اخي Vip على الرد
وبنتظار الجديد

العفوو يالغالي .

قطعياً
02-27-2007, 05:44 AM
مشكور اخى يوفى الله درس اكثر من رائع بل اكثر من مميز جزاك الله عنا خيرا ولا يحرمنا من مواضيعك الجميله المتميزة