السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل انا اريد ارسال بريد الكتروني ( ياهو ) مع نص رساله بسيط + مرفقات
ياريت لو تدلوني على الطريقه و جزاكم الله خيرا
تبي اكتب لك السورس او ارفق لك المثال
الي اعرفه انا هو smtp
والياهو المجاني ما يدعم البريد الي يدعم هو الجيميل
SaLoOoMX كتب :تبي اكتب لك السورس او ارفق لك المثال
تسلم عزيزي على ردك علي ,, جزاك الله خيرا
و الله الاسهل ليك إعمله انا مش عايز اتعبك
انا بستخدم الـ 2005 لو كان الافضل لك ان تكتب السورس اكتبه ,, ولو كان الافضل لك ارفاق مثال ارفقه
الى تحبه
و بجد متشكر جدااا و الله
oneyemenweb2 كتب :الي اعرفه انا هو smtp
والياهو المجاني ما يدعم البريد الي يدعم هو الجيميل
يعني مش هاقدر ابعت من الياهو ؟
فقط جيميل ؟
السلام عليكم
اخي الكريم تستطيع ان ترسل من الاثنين
sajad كتب :السلام عليكم
اخي الكريم تستطيع ان ترسل من الاثنين
وعليكم السلام ورحمة الله وبركاتة
جزاك الله خيراً اخي على المعلومه القيمه
و لكن هلا تفضلت بعد ازنك و اخبرتني بالطريقة ؟
انا وجدت هذا الشرح ولكن للجيميل
http://vb.net-informations.com/communica...p_mail.htm
لم اجربه بعد
ولكن هل يوجد مماثل للياهو مثلا ؟
تفضل اخي هذا المثال اسف لا اعلم smtp الياهو تستطيع التعديل عليه لاحقا
السلام عليكم و رحمة الله و بركاته
اخي الكريم اول شي قم بكتابة في اعلي صفحة الكود و قبل كل شي
كود :
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
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته