دخول

**Mido9** · 13-11-12, 08:24 PM

SaLoOoMX كتب :تفضل اخي هذا المثال اسف لا اعلم smtp الياهو تستطيع التعديل عليه لاحقا

للاسف المثال لا يعمل معي Sad

قد يكون بسبب اختلاف الاصدار Sad

**Mido9** · 13-11-12, 08:25 PM

sajad كتب :بسم الله الرحمن الرحيم

انظر هذا الموقع

http://stackoverflow.com/questions/68445...c-net-code

انا جربت هذا الكود

كود :

Dim m As MailMessage = New MailMessage

    m.From = New MailAddress("you@yahoo.com", "Your Name")

    m.To.Add(New MailAddress("Recipient@somedomain.com", "Recipient Name"))

    m.Subject = "Hello"

    ' Specify an HTML message body

    m.Body = "<html><body><h1>My Message</h1><br>Put the body here.</body></html>"

    m.IsBodyHtml = True

    ' Send the message

    Dim client As SmtpClient = New SmtpClient("smtp.mail.yahoo.com")

    client.Send(m)

و لكن للاسف يوجد خطأ فى هذا السطر

client.Send(m)

حيث ان البرنامج يتوقف و يجلب لي هذا السطر Sad

**Mido9** · 13-11-12, 08:28 PM

ahmed salam كتب :السلام عليكم و رحمة الله و بركاته
اخي الكريم اول شي قم بكتابة في اعلي صفحة الكود و قبل كل شي

كود :

Imports System.Web Imports System.IO Imports System.Net.Mail

ثم في زر الارسال

كود :

Try Dim mail As New MailMessage Dim SmtpServer As New SmtpClient SmtpServer.Credentials = New Net.NetworkCredential("اسم ايميلك", "كلمة المرور") SmtpServer.Port = 995 SmtpServer.Host = smtp.mail.yahoo.com SmtpServer.EnableSsl = True SmtpServer.EnableSsl = True mail.To.Add("الميل المراد الارسال اليه") mail.From = New MailAddress("اسم ايميلك") mail.Subject = "عنوان الرسالة" mail.Body = "نص الرسالة" mail.Attachments.Add(New Attachment("مكان المرفق المراد ارسالة")) SmtpServer.Send(mail) MsgBox("تم الارسال") Catch ex As Exception MsgBox("حدث خطأ ائناء الارسال") End Try

لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته

جزاك الله خيرا اخي على المساعده شكرا لك

و لكن للاسف عند التطبيق ظهر لي هذا الخطأ

name 'smtp' is not declared

ياريت لو لديك اي حل و جزاك الله خيرا Smile

**SaLoOoMX** · 13-11-12, 08:53 PM

ارفقت لك المثال جاهز بكوده بدون اخطاء في نفس الموضوع

**Mido9** · 13-11-12, 09:46 PM

SaLoOoMX كتب :ارفقت لك المثال جاهز بكوده بدون اخطاء في نفس الموضوع

جزاك الله خيراً على تعبك ,, بارك الله فيك ,, ولكن بعد تجربة الكود وجدته للجيميل فقط Sad

**ahmed salam** · 14-11-12, 05:50 AM

Mido9 كتب :جزاك الله خيرا اخي على المساعده شكرا لك

و لكن للاسف عند التطبيق ظهر لي هذا الخطأ

name 'smtp' is not declared

ياريت لو لديك اي حل و جزاك الله خيرا

اخي الكريم المثال يعمل فقط نسيت علامات التنصيص الرجاء تعديل السطر الي الاتي

كود :

SmtpServer.Host = "smtp.mail.yahoo.com"

اسف جدا علي التأخير

**Sajad** · 14-11-12, 12:25 PM

السلام عليكم

اخي الكريم أي نسخة تستخدم من الvs؟

**ahmed salam** · 14-11-12, 05:22 PM

Visual Studio 2012

**Sajad** · 14-11-12, 05:29 PM

ahmed salam كتب :Visual Studio 2012

بارك الله فيك اخي العزيز لكن انا اسأل صاحب الموضوع Smile

لان الدوال تختلف من .NETFramework الى آخر

**ahmed salam** · 14-11-12, 05:33 PM

اسف اخي الكريم للتدخل

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	مرفق سورس كود ارسال ملفات الى الواتس بدون API	new_programer	2	90	17-04-24, 03:07 PM آخر رد: Taha Okla
	استخدام فونت جديد في البرنامج	Emam emam	5	96	14-04-24, 01:29 PM آخر رد: عبد العزيز البسكري
	عدم القدرة على إغلاق البرنامج وظهور رسالة the operation could not be completed	صالح عبدالله	2	63	12-04-24, 06:03 AM آخر رد: صالح عبدالله
	[VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير	visualist2015	8	6,463	12-04-24, 04:07 AM آخر رد: أبو جودة
	تغيير المسار الي مسار البرنامج في تقرير ميكروسوفت	atefkhalf2004	2	107	02-04-24, 05:05 PM آخر رد: atefkhalf2004
	تعديل كود ارسال صورة الى الواتس	new_programer	2	170	21-03-24, 10:07 PM آخر رد: new_programer
	مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017	strongriseman	5	156	12-03-24, 10:37 AM آخر رد: strongriseman
	محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط	new_programer	1	118	22-02-24, 12:09 PM آخر رد: AHMED213
	مطلوب كود الطباعة لهذا البرنامج	melad2002	2	248	13-01-24, 06:42 PM آخر رد: melad2002
	مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر	صالح عبدالله	1	212	09-01-24, 10:51 PM آخر رد: صالح عبدالله