طبعا الكثير يعاني من مشكلة ارسال الرسائل الى ايميل معين في الفيجوال بيسك ...
و اذا وجد حل لمشكلة تظهر مشكلة اخرى
لكن هناك طريقة سهلة و بسيطة جدااااااا و لا تحتاج لادوات و لا الوينسوك و الخ......
وهي عن طريق Outlook Express او اي برنامج ايميل افتراضي في الويندوز
يعني لم المستخدم يضغط على الزر تظهر نافذة مباشرتا فيها الايميل الذي تريده انت
و طبعا هذه النافذة هي لارسال الرسالة و هذا مثال على ذلك :
لكن اعذروني لان الويندوز الخاص بي فرنسي و طبعا كل شي وااااااضح في الصور
و الان ناتي لعمل برنامج صغير مثال على ذلك
اولا افتح مشروع جديد و فورم جديد طبعاااا واضف 2 ازرار من نوع command
مثل الصورة هذه :
و انا ضفت زر اخر وهو زيارة موقع و هذا بعد قليل ساشرحه بكود اااخر سهل
و الان نضيف الموديول مثل هذه الصورة :
بعدها ستظهر مثل هذه الصورة و انت اضغط open و انا عندي فرنسي يعني ouvrir
و ستظهر هذه النافذة :
الان اكتب هذا الكود فيها و غير الجملتين التي هي بالاحمر الى موقعك و ايميلك انت
كود:
Option Explicit
' by kaled alzeeby alnamer soft
Public Const URL = "
http://saif55.skyrock.com/profil"
Public Const email = "
saifmaki@gmail.com"
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Sub gotoweb()
Dim Success As Long
Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
Public Sub sendemail()
Dim Success As Long
Success = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
و الان اكتب في زر الارسال هذه الجملة :
sendemail
و زر زيارة الموقع هذه الجملة :
gotoweb
وهذا كل شي
اما بالنسبة لزيارة موقع انا عملتها اختصار بدل من عمل كود اااخر في الزر
لكن هناك طريقة سهلة جدااااا وهي بالدالة shell
يعني هكذا :
كود:
shell "explorer
http:saif55.skyrock.com/profil"
و استبدل الجملة الحمراء بالموقع
او يمكتك فتح الموقع باي متصفح اخر لكن غير كلمة explorer بمكان
المتصفح في الجهاز
الجمعة يوليو 25, 2008 8:40 am
