<%
sub Jmail(email)
Redupkan JMail,SendMail
Setel JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=Benar
JMail.Charset="gb2312"
JMail.ContentType = "teks/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SistemEmail
JMail.Subjek=topik
JMail.Body=badan surat
Email JMail.AddRecipient
JMail.Prioritas=3
JMail.Jalankan
Setel JMail=tidak ada
jika salah maka
SendMail=err.deskripsi
err.jelas
kalau tidak
KirimMail="OK"
berakhir jika
akhir sub
sub Cdonts (email)
redupkan objekCDOMail
Setel objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.Dari =SystemEmail
objCDOMail.Ke =email
objCDOMail.Subjek = topik
objCDOMail.Body = badan surat
objCDOMail.Kirim
Setel objCDOMail = Tidak Ada
jika salah maka
SendMail=err.deskripsi
err.jelas
kalau tidak
KirimMail="OK"
berakhir jika
akhir sub
sub aspemail (email)
Setel mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
penerima=email
pengirim=Email Sistem
subjek=topik
pesan=badan surat
server surat=SMTPServer
hasil=mailer.SendMail(server email, penerima, pengirim, subjek, pesan)
jika salah maka
SendMail=err.deskripsi
err.jelas
kalau tidak
KirimMail="OK"
berakhir jika
sub akhir
%>