كود إرسال بريد إلكتروني من داخل برنامجك
Mail Message.vb يرسل رسالة بريد إلكتروني إلى عنوان البريد الذي تسجله مثل krma20002000@yahoo.com في الكود حدد عنوان ملقمك عليSMTP إلي المتغير
:Smtp.SmtpServer
Imports System.web.Mail
Private sub Button_click
Dim Smpt As SmtpMail
"SmtpServer = " put your STMP Server Address Here
Dim Msg As MailMessage = New Mail Message
Msg . Body = "Demo Message From Program
Msg . Form = "khairongi somesite.com"
Msg .To = "Admin20002000somesite.com"
Msg .Subject = "Demo Message"
Smtp .Send(Msg)
End sub

