13-11-12, 08:24 PM
SaLoOoMX كتب :تفضل اخي هذا المثال اسف لا اعلم smtp الياهو تستطيع التعديل عليه لاحقا
للاسف المثال لا يعمل معي
قد يكون بسبب اختلاف الاصدار للاسف المثال لا يعمل معي
قد يكون بسبب اختلاف الاصدار 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)
حيث ان البرنامج يتوقف و يجلب لي هذا السطر
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
ياريت لو لديك اي حل و جزاك الله خيرا
13-11-12, 08:53 PM
13-11-12, 09:46 PM
SaLoOoMX كتب :ارفقت لك المثال جاهز بكوده بدون اخطاء في نفس الموضوع
جزاك الله خيراً على تعبك ,, بارك الله فيك ,, ولكن بعد تجربة الكود وجدته للجيميل فقط
14-11-12, 05:50 AM
Mido9 كتب :جزاك الله خيرا اخي على المساعده شكرا لك
و لكن للاسف عند التطبيق ظهر لي هذا الخطأ
name 'smtp' is not declared
ياريت لو لديك اي حل و جزاك الله خيرا
اخي الكريم المثال يعمل فقط نسيت علامات التنصيص الرجاء تعديل السطر الي الاتي
كود :
SmtpServer.Host = "smtp.mail.yahoo.com"اسف جدا علي التأخير
14-11-12, 12:25 PM
14-11-12, 05:22 PM
14-11-12, 05:29 PM
ahmed salam كتب :Visual Studio 2012
بارك الله فيك اخي العزيز لكن انا اسأل صاحب الموضوع
لان الدوال تختلف من .NETFramework الى آخر
14-11-12, 05:33 PM