ارسال الايميل من الاستضافة - نسخة قابلة للطباعة

كود :
Imports System.Net.Mail

Public Class Form1

    Dim mail As New MailMessage()

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



    End Sub



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

        Dim SmtpServer As New SmtpClient

        SmtpServer.Credentials = New Net.NetworkCredential("info@eshre.ly", "pass")

        SmtpServer.Port = 465

        SmtpServer.Host = "ls04.server.ly"

        SmtpServer.EnableSsl = False





        Try



            mail.Priority = Net.Mail.MailPriority.High

            mail.From = New MailAddress("no_reply@eshre.ly", "اشتري لي ", System.Text.Encoding.UTF8)

            mail.To.Add("sabrizinoubi@hotmail.fr")

            mail.Subject = "تأكيد الايميل"

            mail.Body = "السلام عليكم"

            SmtpServer.Send(mail)

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

        Catch ex As Exception

            MsgBox("فشل الارسال")

        End Try

    End Sub

End Class