ارسال رسالة بريد الكتروني من خلال صفحة aspx نفس درس الاخ تمام بس VB.Net

Imports System.Net.Mail

Imports System.Net

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'قم الآن بتعريف متغير الرسالة وحدد فيه

'عنوان المرسل والمرسل إليه

'ونص الرسالة وعنوان الرسالة

'ولو احتاج الأمر قم بعمل مرفق

Dim msg As MailMessage = New MailMessage("FromEmail@gmail.com", "ToEmail@gmail.com", "Subject", "Message Body")

'هل تريد تفعيل كتابة نص منسق بتنسيق

'HTML

'وارسال الرسالة فيه

msg.IsBodyHtml = False

'قم بوضع معرف الارسال

' احجز بداية مساحة بالذاكرة من خلال التعريف عن متغير كما يلي

'وقم بتحديد البريد الإلكتروني المستخدم لتسجيل الدخول لبريد الجي ميل

'وقم بوضع كلمة المرور الخاصة ببريدك الإلكتروني

Dim mailAuth As NetworkCredential = New NetworkCredential("MyEmail@gmail.com", "MyPassword")

'قم بتعريف متغير من نوع

'SmtpClient

' وقم بتزويده بالإعدادات التالية الخاصة بالمضيف والمنفذ المستخدم له

Dim mailClieant As SmtpClient = New SmtpClient("smtp.gmail.com", 587)

'تفعيل ssl للارسال الآمن للبيانات

mailClieant.EnableSsl = True

'عدم استخدام البيانات الافتراضية لجملة الإعتماد

mailClieant.UseDefaultCredentials = False

'قم باستخدام بيانات الإعتماد الخاصة بي والتي قمت بتزويدها

' من خلال متغير

'MailAuth

mailClieant.Credentials = mailAuth

'أخيرا قم بارسال الرسالة

mailClieant.Send(msg)

End Sub

End Class