XXXLQD

Chương trình tôi đã viết như sau:

Imports System

Imports System.IO

Imports System.Text

Imports System.Net

Imports System.Net.Mail

Function SendNewMail(ByVal From_email As String, ByVal Email_password As String, ByVal TO_email As String, ByVal CC_email As String, ByVal M_SUBJECT As String, ByVal M_BODY As String) As Integer

        Try

            Dim mailMessage As New System.Net.Mail.MailMessage

            mailMessage.To.Add(New System.Net.Mail.MailAddress(TO_email))

            Dim SmtpServer As New System.Net.Mail.SmtpClient

            SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network

            SmtpServer.EnableSsl = True

            SmtpServer.Host = "smtp.gmail.com"

            SmtpServer.Port = 587

            SmtpServer.Timeout = 60

            ' SmtpServer.Credentials = Mới Net.NetworkCredential("tên người dùng", "mật khẩu")

            SmtpServer.Credentials = New System.Net.NetworkCredential(From_email, Email_password)

            SmtpServer.UseDefaultCredentials = False

            mailMessage.Priority = Mail.MailPriority.High

            mailMessage.From = New MailAddress("hxuyenlqd@gmail.com", "")

            mailMessage.CC.Add(CC_email)

            mailMessage.IsBodyHtml = False

            mailMessage.Subject = M_SUBJECT

            mailMessage.Body = M_BODY

            SmtpServer.Send(mailMessage)

            Return 1

            Exit Function

        Catch ex As Exception

            Return 0

        End Try

    End Function