[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

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