Hoş Geldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Vb.Net Gmail Üzerinden Mail Gönderme

Admin

{TurkDevelopers}
Yönetici
TDN Admin
Katılım
30 Nis 2020
Mesajlar
114
Konum
Ankara
Web sitesi
turkdevelopers.net
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
vbnet_mail_gonderme.PNG