Thanks Om, Nati wa coba deh,....
Kemarin wa sempet coba pakai vbsendmail.ocx untuk mail server(lupa apa nama nya) SMTP nya saya isi IP mail server dan isa terkirim emailnya. tapi pas saya coba kirim dengan mail server Microsoft exchange server begitu saya masukan IP nya, si doi(email) gagal terkirim gara2 tidak isa conect dengan si mail-servernya. ada cara mungkin supaya isa terkirim dengan excahange server (yg punya pengalaman dengan exchange server mohon bantuanya) satu lagi,... Kirim email dari Vb dengan menggunakan alamat email kommersil isa nggak (mis: yahoo, gmail, dll) Regards TQ --- In [email protected], Liung Hartono <[EMAIL PROTECTED]> wrote: > > 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 > > > > >
