[VB.NET] كود برنامج ارسال رسايل الى البريد gmail

كود :

Imports System.Net.Mail

Public Class mailform

    Dim mail As New MailMessage()

    Private Sub mailform_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed

        End

    End Sub

    Private Sub mailform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox2.Text = "ادخل هنا الايميل هو هو"

    End Sub

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

        Dim SmtpServer As New SmtpClient()

        SmtpServer.Credentials = New Net.NetworkCredential("ادخل الايميل الى هيجى عليه الرسائل", "باسورد الايميل")

        SmtpServer.Port = 587

        SmtpServer.Host = "smtp.gmail.com"

        SmtpServer.EnableSsl = True

        mail = New MailMessage()

        Dim addr() As String = TextBox1.Text.Split(",")

        Try

            mail.From = New MailAddress("ادخل هنا الايميل هو هو", "هنا اسم الدعم ", System.Text.Encoding.UTF8)

            Dim i As Byte

            For i = 0 To addr.Length - 1

                mail.To.Add(addr(i))

            Next

            mail.Subject = TextBox3.Text

            mail.Body = TextBox4.Text

            mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure

            mail.ReplyTo = New MailAddress(TextBox1.Text)

            SmtpServer.Send(mail)

            MsgBox("تم الارسال ")

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

End Class