السلام عليكم ورحمة الله وبركاته

أقدم لكم اليوم موضوع مهم لمطوري مواقع الإنتر نت وبالتحديد عملاء مايكروسوفت (Net.) 

هو إرسال البريد الإلكتروني من خلال بروتوكول نقل البريد البسيط SMTP

سأقوم بالتعليق خلال الشرح 

Imports System.Net.Mail.SmtpClient
Imports System.Net.Mail

Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub btnSendmail_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSendmail.Click
'smtpClient :هذا هو الكائن المسؤول عن عملية الإتصال بخادم البريد والإرسال
Dim smtpClient As New SmtpClient()
'MailMessage: هو الكائن المسؤول عن اسم المرسل والمستقبل والرسالة
Dim message As New MailMessage()
Try
Dim fromAddress As New MailAddress(txtEmail.Text, txtName.Text)
'يجب عليك أن تعرف الهوست الخاص بالشركة التي تتعامل معها
' "smtp.live.com" على سبيل المثال الهوست للهوتميل هو
' "smtp.mail.yahoo.com" الياهو
' "smtp.gmail.com" جي ميل
'"localhost" الهوست الأساسي هو
smtpClient.Host = "smtp.live.com"
' والمنفذ للهوتميل و الياهو هو 25
' المنفذ للجي ميل هو 465
'المنفذ الأساسي هو 25
smtpClient.Port = 25
'ايميل المرسل
message.From = fromAddress
' بريدك الإليكتروني
' يتم كتابة البريد المستلم هنا بين القوسين "admin@domain.com"
message.To.Add()
' الموضوع
message.Subject = "Feedback"
' HTML هل البريد يحتوي على رمز الـ
'ليتم عرضها بكامل الخصائص
'IsBodyHtml = False نحن سنرسل نص فقط لذلك جعلنا الـ
message.IsBodyHtml = False
' نص الرسالة
message.Body = txtMessage.Text
' الإرسال
smtpClient.Send(message)
lblStatus.Text = "Email successfully sent."
Catch ex As Exception
lblStatus.Text = "Send Email Failed: " &  ex.Message
End Try
End Sub
End Class

يمكنكم تحميل المثال من هـنـا