YusufbahaR - Freelance Software Consultant

Tips & Tricks: Mengirim Email dari Aplikasi VB

Function berikut ini dapat Anda gunakan untuk membuka default program Email (seperti Outlook Express atau Thunderbird), dan mengirimkan parameter yang berisi Alamat Email tujuan, Subjek,dan Body Text (isi email).

Contoh penggunaan:

KirimEmail "support@baharyusuf.com", "Tes Email", "Sedang tes Kirim Email dari VB"

Deklarasi variabel dan function (tempatkan di dalam Modul):

Deklarasi:

Function:

Public Function KirimEmail(ByVal AlamatEmail As String, _ Optional SubjekEmail As String, Optional IsiEmail As String) _ As Boolean Dim lWindow As Long Dim lRet As Long Dim sParams As String sParams = AlamatEmail If LCase(Left(sParams, 7)) <> "mailto:" Then _ sParams = "mailto:" & sParams If SubjekEmail <> "" Then sParams = sParams & "?SubjekEmail=" & SubjekEmail If IsiEmail <> "" Then sParams = sParams & IIf(SubjekEmail = "", "?", "&") sParams = sParams & "IsiEmail=" & IsiEmail End If lRet = ShellExecute(lWindow, "open", sParams, _ vbNullString, vbNullString, SW_SHOW) KirimEmail = lRet = 0 End Function