Код за пращане на Email - Visual Basic

[marto2013]

Може ли да ми дадете кода с който от програмата да се пращат Email до Gmail ? Пробвах с един код но нищо не стана.

[Tumbac]

Code: Select all

Imports System.Net.Mail
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load   
      Me.Text = "Izprati email"
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Try
          Dim Smtp_Server As New SmtpClient
          Dim e_mail As New MailMessage()
          Smtp_Server.UseDefaultCredentials = False
          Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
          Smtp_Server.Port = 587
          Smtp_Server.EnableSsl = True
          Smtp_Server.Host = "smtp.gmail.com"

          e_mail = New MailMessage()
          e_mail.From = New MailAddress(txtFrom.Text)
          e_mail.To.Add(txtTo.Text)
          e_mail.Subject = "Izprashtane na email"
          e_mail.IsBodyHtml = False
          e_mail.Body = txtMessage.Text
          Smtp_Server.Send(e_mail)
          MsgBox("Emaila e izpraten")

      Catch error_t As Exception
          MsgBox(error_t.ToString)
      End Try

   End Sub

Това е кода
Трябва да имаш полета:

-От кого се изпраща - txtFrom
-До кого се изпраща - txtTo
-Текстът на е-мейла - txtMessage

Трябва да имаш и 1 бутон - Button1