13-11-12, 06:05 AM
السلام عليكم و رحمة الله و بركاته
اخي الكريم اول شي قم بكتابة في اعلي صفحة الكود و قبل كل شي
ثم في زر الارسال
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
اخي الكريم اول شي قم بكتابة في اعلي صفحة الكود و قبل كل شي
كود :
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لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته

