Re: [Programmer-VB] Kirim email menggunakan VB-6

[Liung Hartono]

Pakai Microsoft Winsock Control. Fungsi kirim emailnya seperti di bawah (fungsi 
fctPause untuk 
menunggu respon mail server, bisa diset lebih cepat/lambat tergantung server 
anda) :

Private Sub KirimEmail()
     'Open winsock connection
     Winsock1.RemoteHost = "1.2.3.4"  -> IP mail server anda
     Winsock1.RemotePort = 25 -> port smtp server anda
     Winsock1.Connect

     Call fctPause 5 -> untuk menunggu respon server. kalau diset cepat padahal 
server anda lambat, 
akan error.

     'Set Header
     Winsock1.SendData "ehlo mail" & vbCrLf  -> ehlo mail atau helo mail 
tergantung mail server anda
     fctPause 0.1
     Winsock1.SendData "mail from: <[EMAIL PROTECTED]>" & vbCrLf
     Winsock1.SendData "rcpt to: <"[EMAIL PROTECTED]>" & vbCrLf
     fctPause 0.1

     'Set Body
     Winsock1.SendData "DATA" & vbCrLf
     fctPause 0.1
     Winsock1.SendData "to: "[EMAIL PROTECTED]" & vbCrLf
     Winsock1.SendData "from: [EMAIL PROTECTED]" & vbCrLf
     Winsock1.SendData "Subject: Subject anda" & vbCrLf & vbCrLf
     fctPause 0.1
     Winsock1.SendData "Isi email anda " & vbCrLf
     Winsock1.SendData vbCrLf & "." & vbCrLf
     fctPause 1

     'Close connection to the server
     Winsock1.Close
End Sub

Private Function fctPause(intDur As Integer)
     'Untuk pause selama intDur detik
     Dim Current As Long
     Current = Timer
     Do Until Timer - Current >= intDur
         DoEvents
     Loop
End Function

Semoga membantu
Liung's
www.apktntajd.com (Ape Kate Ente Aje Deh!)

sobri_marjuki wrote:
> 
> 
> mas, Om tante, Bu dhe dan Pa Dhe, Moutanya nih
> 
> untuk bisa mengirim email dari visual basic caranya gmana yah?
> apa menggunakan ocx atau lib tertentu,
> atau menngunakan si email outlook,
> 
> mohon pertolongan nya
> 
> -Regards-
> Baru belajar nih
> 
>