برنامج لأرسال ايميل (فيجول بيسك دو نت ) كود + شرح

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

اخوانى الكرام

كثير منا يريد ان يرسل ايميل للمستخدم برنامجه للاخطاره بشىء اى كان وكثير من يفكر فى برنامج بسيط يرسل ايميل بدون ان يذهب الى المتصفح لى ارساله

اى كان طلبك فى ارسال الايميل وغرضك من هذا سوف اقدم لكن كود لى ارسال الايميل وسوف اشرح هذا الموضوع على مثال الـ(Gmail)
ضع Button فى الفورمه وضع هذا الكود فى الـButton
قبل كود الارسال يجب اولا ان تكتب هذه السطور الاولى قبل كلمه Public Class

كود:

Imports System.Net.Mail
Imports System.Net.Mail.MailMessage
Imports System.Net.NetworkCredential

كود:

Dim smtp As New SmtpClient
        Dim MyMSG As New MailMessage
        MyMSG.From = New MailAddress("الايميل المراد الاراسل منه")
        MyMSG.To.Add("الايميل المراد الارسال له")
        MyMSG.Subject = "السلام عليكم"
        MyMSG.Body = "بسم الله الرحمن الرحيم"
        MyMSG.IsBodyHtml = True ' This is to enable HTML in your email body
        smtp.Host = "smtp.gmail.com"
        smtp.Port = 25
        smtp.EnableSsl = True
        smtp.Credentials = New System.Net.NetworkCredential("اسم حسابك على GMAIL", "الرقم السرى الخاص بالحساب")
        smtp.Send(MyMSG)

        MsgBox("Your Message has beent sent.")

يمكنك تعويض الرساله او بريد المرسل اليه او حسابك بـ التعوض بـ Text box ot Richtextbox
عند الانتهاء من الاعدادات يمكنك تشغيل البرنامج والضغط على الـButton بعد الضغط وارسال الرساله بنجاح سوف يظهر الاتى :



وتوضح الصوره ان الاميل ارسل من قبل البرنامج
ويوضح المسنجير فى الصوره بوصول ايميل من قبل البرنامج

اتمنى ان تكون الافاده للجميع
واى سؤال او استفسار فقط (اسأل) وانا موجود ان شاء الله
لا تنسونى بالدعاء