Faktanya, ASP dapat melakukan banyak hal, tetapi orang tidak tahu cara menggunakannya. Microsoft menyediakan banyak komponen siap pakai dan berguna untuk ASP, namun tidak ada yang mengetahui tentang komponen tersebut, seperti menggunakan CDO.Message untuk mengirim email.
Apa itu CDO.Pesan? Untuk mengirim email di bawah winnt dan win2k, Anda perlu menggunakan CDONTS.NewMail. Komponen CDONTS.NewMail harus didaftarkan. Ini sangat sederhana. Jalankan saja baris perintah regsvr32 Cdonts.dll di server dan konfirmasi di pop-up kotak dialog Gunakan CDONTS. Layanan NewMail juga perlu menginstal smtp yang disertakan dengan iis. Dengan Windows 2003, sistem tidak lagi dilengkapi dengan file Cdonts.dll, hanya menyisakan file serupa cdosys.dll. Tentu saja, file ini juga tersedia di win2k (memerlukan registrasi komponen), tetapi apa bagusnya di tahun 2003? Komponen ini tidak perlu didaftarkan secara manual, sistem sudah otomatis mendaftarkannya. Sekarang mari kita lihat cara menggunakan komponen ini.
<%
Redupkan cm
Setel cm=Server.CreateObject("CDO.Pesan")
'Buat objek
cm.Dari=" [email protected] "
'Tetapkan alamat email pengirim
cm.Kepada=" [email protected] "
'Tetapkan alamat email penerima
cm.Subject="Saya menemukan situs web yang memungkinkan Anda berlangganan RSS online. Tidak perlu menginstal perangkat lunak apa pun di masa mendatang."
'Tetapkan subjek email
'cm.TextBody=" http://www.downcodes.com/rss/ "
'Di atas menggunakan format teks biasa untuk mengirim email. Hanya dapat berupa teks dan tidak dapat mendukung html, jadi tidak digunakan di sini.
cm.HtmlBody="Pembaca Umpan RSS Online adalah sistem membaca berita RSS online."&_
"Tidak perlu mengunduh dan menginstal. Selama Anda mendaftar, Anda dapat memiliki langganan online RSS dan sistem agregasi berita yang sekuat perangkat lunaknya."&_
"Di mana pun Anda berada, selama Anda memiliki akses Internet, Anda dapat membaca langganan favorit Anda."&_
"Buruan daftar: <a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>"
'Di atas adalah teks HTML yang Anda buat, seperti ini Email yang Anda kirim terlihat jauh lebih baik dibandingkan email yang hanya berupa teks. Jangan bilang Anda tidak tahu html'cm.AddAttachment
Server.MapPath("test.zip")
'Jika Anda perlu mengirim lampiran, gunakan metode di atas untuk melampirkan file.
cm.Kirim
'Akhirnya, tentu saja, jalankan pengirimannya
Tetapkan cm=Tidak Ada
'Lepaskan objek segera setelah pengiriman berhasil
Response.Write("Kirim email berhasil.")
%>