Cara Mengirim Email Lewat Aplikasi Android di Basic4Android

Chairruddin Arrasid | 13/05/2015 | Basic4Android | 20 Comments

Salah satu hal penting dalam suatu transaksi adalah bukti transaksi. Bukti transaksi ini biasanya berupa email jika transaksi tersebut dilakukan secara online. Basic4Android (B4A) sudah menyediakan library khusus untuk keperluan mengirim email ini. Jadi, Anda yang sedang membuat atau mengembangkan aplikasi android menggunakan B4A, tidak perlu khawatir jika aplikasi Anda mengharuskan untuk melakukan proses pengiriman email.

Library yang digunakan dalam project ini yaitu Net library.

Lalu bagaimana cara membuatnya? Oke, berikut ini adalah langkah-langkahnya…

Buat project baru, lalu save dengan nama: MyEmailApp.
Buat layout baru dengan nama: main. Lalu tambahkan object-object dan setting properties-nya seperti gambar berikut:

Kemudian deklarasikan object-object tersebut. Untuk BtnSend tambahkan event Click.

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim EdtTo As EditText
	Dim EdtSubject As EditText
	Dim EdtBody As EditText
	Dim BtnSend As Button
End Sub

Sub Globals

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

Dim EdtTo As EditText

Dim EdtSubject As EditText

Dim EdtBody As EditText

Dim BtnSend As Button

End Sub

Membuat Aplikasi Android Pertama dengan Basic4Android

Pada Process_Globals deklarasikan SMTP sebagai object SMTP.

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim SMTP As SMTP
End Sub

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

Dim SMTP As SMTP

End Sub

Pada event Activity_Create masukkan code seperti di bawah ini:

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	Activity.Title = "Email App"
End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("main")

Activity.Title = "Email App"

End Sub

Lalu pada Sub BtnSend_Click tambahkan code berikut:

Sub BtnSend_Click
	'Ganti "your_email" dengan email pengirim dan "password_email" dengan password email pengirim.
	SMTP.Initialize("smtp.gmail.com", 465, "your_email", "password_email", "SMTP")
	'Untuk Port 465 harus menggunakan SSL.
	SMTP.UseSSL = True
	'Set email tujuan.
	SMTP.To.Add(EdtTo.Text)
	'Set subject email.
	SMTP.Subject = EdtSubject.Text
	'Set body email
	SMTP.Body = EdtBody.Text
	'Lalu... Kirim emailnya.
	SMTP.Send
End Sub

Sub BtnSend_Click

'Ganti "your_email" dengan email pengirim dan "password_email" dengan password email pengirim.

SMTP.Initialize("smtp.gmail.com", 465, "your_email", "password_email", "SMTP")

'Untuk Port 465 harus menggunakan SSL.

SMTP.UseSSL = True

'Set email tujuan.

SMTP.To.Add(EdtTo.Text)

'Set subject email.

SMTP.Subject = EdtSubject.Text

'Set body email

SMTP.Body = EdtBody.Text

'Lalu... Kirim emailnya.

SMTP.Send

End Sub

Kemudian buat event MessageSent untuk object SMTP seperti code di bawah ini:

Sub SMTP_MessageSent(Success As Boolean)
	'Action jika email terkirim.
	If Success=True Then
		ToastMessageShow("Email has been sent",False)
	'Action jika email tidak terkirim
	Else If Success=False Then 
	  	ToastMessageShow("Email has not been sent",False)
	End If
End Sub

Sub SMTP_MessageSent(Success As Boolean)

'Action jika email terkirim.

If Success=True Then

ToastMessageShow("Email has been sent",False)

'Action jika email tidak terkirim

Else If Success=False Then

ToastMessageShow("Email has not been sent",False)

End If

End Sub

Save, kemudian Run/Compile project ini dalam versi Release.
Lalu lihat, apa yang terjadi…

Hasil layout email yang dibuat di atas.

Dan… Email-nya terkirim!

Namun, jika misalkan aplikasi yang Anda buat mengharuskan untuk mengirim email secara langsung atau otomatis, maka set value dari email tersebut (seperti To, Subject, Body) langsung via code editor-nya. Contohnya seperti code di bawah ini:

Sub BtnSend_Click
	'Ganti "your_email" dengan email pengirim dan "password_email" dengan password email pengirim.
	SMTP.Initialize("smtp.gmail.com", 465, "your_email", "password_email", "SMTP")
	'Untuk Port 465 harus menggunakan SSL.
	SMTP.UseSSL = True
	'Set email tujuan.
	SMTP.To.Add("receiver_email@gmail.com")
	'Set subject email.
	SMTP.Subject = "MyEmailApp"
	'Set body email
	SMTP.Body = "This is body of email."
	'Lalu... Kirim emailnya.
	SMTP.Send
End Sub

Sub BtnSend_Click

'Ganti "your_email" dengan email pengirim dan "password_email" dengan password email pengirim.

SMTP.Initialize("smtp.gmail.com", 465, "your_email", "password_email", "SMTP")

'Untuk Port 465 harus menggunakan SSL.

SMTP.UseSSL = True

'Set email tujuan.

SMTP.To.Add("receiver_email@gmail.com")

'Set subject email.

SMTP.Subject = "MyEmailApp"

'Set body email

SMTP.Body = "This is body of email."

'Lalu... Kirim emailnya.

SMTP.Send

End Sub

Oke, demikian cara mengirim email di B4A. Semoga bermanfaat. Dan jika masih ada kesulitan silakan tanyakan saja di form komentar 🙂

About The Author

Chairruddin Arrasid

Orang yang suka belajar, juga suka membaca, juga suka menulis, dan juga suka makan kalau lapar. Dulu waktu kecil tidak punya cita-cita jadi programmer, tapi sekarang jadi programmer. Lah? Mungkin dulu masih belum tahu bahwa programming itu menyenangkan.

0 0 votes

Article Rating

This site uses Akismet to reduce spam. Learn how your comment data is processed.

20 Comments

Oldest

Newest Most Voted

Inline Feedbacks

View all comments

epenta

9 years ago

gan..
deklarasi smtp itu maksudnya apa..
saya cobak tapi erronya disitu
nggak ngerti saya
mohon pencerahanya mas..

Chairruddin Arrasid

Author

Reply to epenta

9 years ago

SMTP itu bawaan dari library Net. Fungsinya untuk menghubungkan ke SMTP mail server dan mengirim email.

Btw, library Net-nya sudah diaktifkan?

imam fauzi

Reply to Chairruddin Arrasid

7 years ago

cara ngaktipin smtp gmana bro

Ecky

Reply to Chairruddin Arrasid

4 years ago

Gan, kalau membuat aplikasi berita mengunakan B4A gimana cara-nya nih?

epenta

9 years ago

gan satu lagi gan..
ada nggak toturial yang lainya gan
yang mulai dari dasar hingga mahirnya
kalau ada bukunya juga boleh.
mohon pencerahanya gan

Chairruddin Arrasid

Author

Reply to epenta

9 years ago

Saya sudah bikin tutorial dari yang mudah sampai yang sulit gan. Coba dicek postingan saya yang sebelum-sebelumnya. Kalau masih kurang, bisa ke forum B4A langsung, di sana ada manual dasarnya tapi berbahasa inggris.

Kalau buku B4A gak ada gan.

ianhade

9 years ago

Gan mau tanya, saya udah coba cara di atas. Emailnya berhasil terkirim, tp kok knp gk ada isi emailny ya, subjek, dan pesannya jg kosong. Salah dimananya ya?

Chairruddin Arrasid

Author

Reply to ianhade

9 years ago

Subjek sama body email-nya udah diisi kah? 😀

Boleh lihat source code-nya gan?

ianhade

Reply to Chairruddin Arrasid

9 years ago

Udah ketemu gan penyebabnya, saya pakai komponen tabhost buat nampilih form email, ternyata di menu tabhost lain saya panggil form yang sama. Sehingga yg di kirim ternyata subjek & body yg di tabhost satunya lagi….xixixi….sory gan, maklum msh belajar….tp udah bisa kok

Thx gan, ilmunya bermanfaat bgt

Chairruddin Arrasid

Author

Reply to ianhade

9 years ago

Oke sip gan.

wks

9 years ago

saya gak bisa ngirim email nya.. udah ada net library dll. tp pas run di android nya “email tidak terkirim” alias success = false.
kenapa ya?

Muhammad Syahrir

8 years ago

email saya gagal terkirim gan

Chairruddin Arrasid

Author

Reply to Muhammad Syahrir

8 years ago

Pakai gmail? Kadang memang ada yang gak bisa buat send email dengan cara ini pakai smpt gmail. Mungkin kena blok sama gmail-nya. Kadang ada juga yang bisa. Udah pernah coba pakai email lain, misal yahoo?

Hamid

8 years ago

hello

Hamid

8 years ago

i love your weblog , can you add me to your weblog ?

ibnugazali

8 years ago

mas kok saya ga bisa ngirim emailnya ya,.,saya udah pake libararynya, trus saya udah pake gmail atau yahoo buat ngirim email nya malah ga bisa. kenapa ya

ibnugazali

8 years ago

mas, saya udah pake libarary ama , trus emailnya yahoo atau gmail,.kok masih ga terkirim ya…

Floren

7 years ago

Gan, ada tutorial notifikasi gk????

Chairruddin Arrasid

Author

Reply to Floren

7 years ago

Belum ada 🙂

Floren

Reply to Chairruddin Arrasid

7 years ago

gan saya udh coba buat db online di http://www.db4free.net
udh berhasil.
sekarang yg saya mau tanya gmn cara db itu konek k RDC???
Kaya gini:
DriverClass=com.mysql.jdbc.Driver
JdbUrl=jdbc:mysql://www.db4free.net/base_futsal?characterEncoding=utf8
User=futsal
Password=21102012
ServerPort=17178

di Android sperti ini:
Sub Process_Globals
Public reqManager As DBRequestManager
‘Alamat IP Server RDC-nya
Public RDCServer As String =http://www.db4free.net:17178″
End Sub

tapi ttp saja gk ada respon!!!

Related Posts

About The Author

Chairruddin Arrasid