محتاجكم بكم شغلة شباب

[VB Omega]

السلام عليكم ...
انا احد الاعضاء السابقيين بالمنتدى وكان اسمي The General

في البداية من الرائع عودة المنتدى من جديد الى الحياة ومع اسف كل تعبنا بالمنتدى السابق
راح :( بس ياريت لو كانو عاملين ارشيف او BackUp حتى يرجع مثل ماكان..

على العموم ان شاء الله انشارك اكثر واكثر وياريت لو نبقى على المضمون :D

حاليا عندي سوألين بلا زحمة على الشباب :

السوال الاول : محتاج لكود او ادات تعرض الخطوط المحملة في الجهاز مع عرض نوعية الخط
كما في الصـــــــــــــــورة :

http://www2.0zz0.com/2007/06/03/21/15748723.gif

ان شاء الله القي الجواب عدكم ...

السوال الثاني : اريد كود لارسال ايميل من خلال البرنامج اذا ماكو زحمة وجزاكم الله الف خير..

تحيـــــــاتي

[المزمجر]

السوال الاول : محتاج لكود او ادات تعرض الخطوط المحملة في الجهاز مع عرض نوعية الخط
كما في الصـــــــــــــــورة :

هذا كود عرض الخطوط في ليست


Private Sub Form_Load()
Dim intCount
For intCount = 1 To Screen.FontCount
List1.AddItem Screen.Fonts(intCount)
Next intCount
End Sub


راجع المرفقات أيضا

[المبرمج]

يجب قبل البدء معرفة سيرفر stmp للإيميل المرسل


Private Sub SendMail_Click()

' تعريف مدير إتصالات الإيميل
Dim mailman As New ChilkatMailMan2
' إخفاء مكونات الإيميل
mailman.UnlockComponent "UnlockCode"

' سيرفر الSMTP الخاص بك
mailman.SmtpHost = "smtp.earthlink.net"
' أسم المستخدم
mailman.SmtpUsername = "MYUSERNAME"
' كلمة المرور
mailman.SmtpPassword = "MYPASSWORD"

' تعريف الإيميل الذي تريد إرساله
Dim email As New ChilkatEmail2
' كتابه الإيميل
email.Subject = "test"
email.Body = "this is a test" & vbCrLf & "line 2" & vbCrLf & "-AL-Mubarmeg"
email.AddTo "toName", "to@email"
email.FromAddress = "from@email"
email.FromName = "formName"

' إضافة مرفقات ملف واحد فقط
email.AddFileAttachment "dude.gif"

' إرسال الإيميل
' يعيد 1 تم الإرسال و0 لم يتم الإرسال
success = mailman.SendEmail(email)
If (success = 0) Then
MsgBox mailman.LastErrorText
End If


End Sub

[VB Omega]

مشكورين اخواني الاعزاء على الرد وتعبتكم معاي ..

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

الكود الاول يظهر لنا الخطوط .. هذا صحيح ولكن لايظهر لنا ايقونة الخط .. فكما تعرف لكل خط
نوعية كـ True-Type وغيرها ..

على العموم شكرا جزيلا وتعبتك معاي ;)

اخي المبرمج .. شكرا الكود والحمد الله شغال 100 %

[العولقي11]

مشكورررررررررررررررررررر

[t_elsaghir]

شكراً يا اخوان

[mohd_sader]

اخي العزيز العتقد ان ان نوع ال list خو الذي يعتمد عليه في اظهار الرمز
تستطيع البحث عن الادوات الملحقة في الفيجوال

[مختار السيد صالح]

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

أرى أنه قد تمت الإجابة على السؤال الأول لذا سأجيب بدوري على الثاني من بعد إذن الإخوة

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

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

ستسألون كيف ؟


الجواب ببساطة أنشئ ملف PHP و اكتب فيه ما يلي


<?PHP
mail($to,$title,$content);
?>


الآن احفظ هذا الملف على اي سيرفر يدعم php بإسم Mok.php مثلاً

إلى هنا ننتهي من PHP و يأتي دور الفيجوال بيسك الآن ببساطة أضف أداة Web Browser لمشروعك و قم بتمرير الرابط إليها مع البارامترات المناسبة مثلاً

webbrowser1.navigate("http://www.you.com/mok.php?to=mok@you.com&title=my_message&content=my_contents")

و يمكنك تطوير العملية كما تشاء بحيث تصبح البارمترات تمرر من Text أو أي شيء آخر ...


و تقبلوا فائق الحب و التقدير من أخوكم مختار

ملاحظة : عضو سابق أيام المنتدى المرحوم بإسم
Mokking

[sniperser]

مشكور شكرا