Cara Mengirim Email Lewat VB. Net

Visual Studio Code

Apa itu SMTP ?
SMTP (Simple Mail Transfer Protocol) adalah protokol untuk mengirim pesan email antar server. Ini adalah standar Internet untuk pengiriman surat elektronik (email). Port TCP default yang digunakan oleh SMTP adalah 25 dan koneksi SMTP diamankan oleh SSL, yang dikenal sebagai SMTPS, menggunakan default ke port 465.

Nah pada kesempatan ini kami ingin berbagi koding agar bisa mengirim email melalui aplikasi Visual Basic. Kami disini menggunakan Visual Basic 2019 dan tentunya dapat digunakan oleh Visual Basic yg lama. Jika kalian telah mengenal apa itu SMTP maka saatnya anda memulai pembuatan programnya. Pada tutorial ini kami menggunakan Port 587 yg pada umumnya digunakan.

Tahap pembuatan :
1. Masuk ke akun gmail anda lalu pilih Akun Google


2. Arahkan pilihan pada menu sebelah kiri > Keamanan


3. Scroll ke bawah dan pastikan Akses aplikasi yang kurang aman harus Aktif


4. Buka Visual Studionya lalu buat 3 Textboxt dan 1 Button
5. Berikut adalah kodingannya

Imports System.Net.Mail
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BtnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click
        If txtReceiver.Text = "" Or txtSubject.Text = "" Or txtMessage.Text = "" Then
            MsgBox("Field masih ada yg kosong !", MsgBoxStyle.Exclamation)
        Else
            Try
                Dim Smtp_Server As New SmtpClient
                Dim email As New MailMessage
                Smtp_Server.UseDefaultCredentials = True
                Smtp_Server.Credentials = New Net.NetworkCredential("youremail", "yourpassword")
                Smtp_Server.Port = 587
                Smtp_Server.EnableSsl = True
                Smtp_Server.Host = "smtp.gmail.com"
                email = New MailMessage()
                email.From = New MailAddress("youremail")
                email.To.Add(txtReceiver.Text)
                email.Subject = txtSubject.Text
                email.IsBodyHtml = False
                email.Body = txtMessage.Text
                Smtp_Server.Send(email)
                Smtp_Server.Dispose()
                MsgBox("Email berhasil dikirim !", MsgBoxStyle.Information)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

End Class

Semoga bermanfaat...

Post a Comment

0 Comments