ارسال بريد الكتروني 100 %

Imports System.Net.Mime

Module Module1

Private Sub Main()

Dim mail As New MailMessage()

Dim SmtpServer As New SmtpClient()

SmtpServer.Credentials = New Net.NetworkCredential("email", "password")

SmtpServer.Port = 587

SmtpServer.Host = "smtp.gmail.com"

SmtpServer.EnableSsl = True

Try

mail.From = New MailAddress("ur email", "your name")

mail.To.Add("email")

mail.Subject = "Test"

mail.Body = "This e-mail is a test "

mail.IsBodyHtml = True 'Change it as you need

' mail.Attachments.Add(New Attachment("C:\pic1.bmp")) 'The path of the file to be attached

mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure

SmtpServer.Send(mail)

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub