Vb.Net:
Imports System.Net.Mail
Public Class Form1
Private Sub btnGonder_Click(sender As Object, e As EventArgs) Handles btnGonder.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("turkdevelopers.net@gmail.com", "nkaykut166")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress(txtGonderen.Text)
e_mail.To.Add(txtAlici.Text)
e_mail.Subject = txtKonu.Text
e_mail.IsBodyHtml = False
e_mail.Body = txtMesaj.Text
Smtp_Server.Send(e_mail)
MsgBox("E-mail başarılı bir şekilde gönderildi.")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
End Class