كيف ارسل رسائل الى بريد اليكترونى مباشرة

http://www.vbzoom.com/bank/

http://www.vbzoom.com/bank/show.php?ShowID...VisualBasicBank

هذه أفضل طريقة لإرسال الأيميل

ومن محاسنها أنا البرنامج لا تزيز حجمه لأنه لا يحتاج إلى أدوات أكتف أكس

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
		  objCDOMail.From = "المرسل "
		  objCDOMail.To = "المرسل إليه"
		  objCDOMail.Subject = "الموضوع"
		  objCDOMail.Body ="الرسالة"
		  objCDOMail.Send
Set objCDOMail = Nothing

ممكن التوضيح اخي محمد الفياض

عن الموضوع : هذه أفضل طريقة لإرسال الأيميل

وياليت وضع مثال داخل ملف ثم وضعه داخل هذا الموضوع

وجزاك الله خير

:(

لا أعتقد أن هناك أكثر من هذا التوضيح ولكن أكتب ما تواجه من مشاكل أثناء تنفيذ الكود

اخي لقد وضعت الكود داخل نموذج ولم يعمل

ما الادوات التي اضيف للكود

انا جديد على الفيجوال بيسك

:(

هذا الكود تضعه داخل زر كوماند (أمر )

Private Sub Command1_Click()
Dim objCDOMail As Object
Set objCDOMail = CreateObject("CDONTS.NewMail")
objCDOMail.From = strFrom
          ' المرسل
          objCDOMail.From = "؟؟؟؟؟@hotmail.com"
         'المرسل إليه
          objCDOMail.To = "؟؟؟؟؟@hotmail.com"
          'موضوع الرسالة
          objCDOMail.Subject = "موضوع الرسالة"
          'أكتب نص الرسالة
          objCDOMail.Body = "أكتب نص الرسالة"
        'أرسال البريد
          objCDOMail.Send
Set objCDOMail = Nothing
End Sub

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

ولكن أي مشكلة ضعها هنا

يا أخي الكود لا يكم

بدو اداة أكتيف

ياريت تجرب الكود

أخى العزيز / محمد

شكرا الكود يعمل بكفاءة --- هذا ما كنت ابحث عنه

الأخ العزيز

تظهر رسالة خطأ رقم 429

run time error 429

ActiveX component can't create object or return