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
89
Konum
Ankara
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