Gunakan VB6 untuk menulis program pengiriman email. Ada berbagai komponen email yang dapat dipilih, seperti MAPIMessages, CDONTS (NTSCollaborationDataObjects) yang disertakan dengan IIS4.0, dan perangkat lunak email yang dikembangkan oleh banyak produsen pihak ketiga. Artikel ini memperkenalkan cara menggunakan CDONTS untuk mengembangkan program email di bawah VB.
1. Konfirmasikan bahwa server SMTP telah diinstal
Pertama, Anda harus mengonfirmasi bahwa server SMTP diinstal pada server IIS. Ini adalah opsi yang diinstal secara default saat menginstal OptionPack. Jika server SMTP sudah terinstall, akan ada file bernama cdonts.dll di direktori System32.
2. Program pengiriman email paling sederhana
Berikut ini adalah program pengiriman email yang paling sederhana, yaitu mengirimkan E-mail dengan judul "Judul" dan isi "Halo" dari [email protected] ke [email protected]:
PRIvateSubcmdSendMail_Click()
DimobjmailasObject
SetobjMail=BuatObjek("CDFONTS.DLL")
ObjMail.Kirim"[email protected]","[email protected]","Judul","Halo"
SetobjMail=tidak ada
Sub Akhir
3. Kirim lampiran email
Jika ada file lampiran yang perlu dikirimkan bersama dengan email, Anda dapat menggunakan metode AttachFile dari CDONTS:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=BuatObjek("CDFONTS.DLL")
DenganObjMail
.Dari="[email protected]"
.To="[email protected]"
.Subjek="Judul"
.Body="Halo"
.AttachFile"c:/document/sample.doc","sample.doc"
.Mengirim
BerakhirDengan
SetobjMail=tidak ada
Sub Akhir
4. Properti dan metode komponen CDONTS yang umum digunakan
Properti dan metode komponen CDONTS yang umum digunakan tercantum di bawah ini:
milik:
Versi: Mengembalikan nomor versi komponen CDONTS
MailFormat: Format email, tipe teks 1-normal; tipe 0-MIME
Cc: Tetapkan satu atau lebih alamat email untuk referensi
Dari: Alamat pengirim email
Kepada: Alamat penerima email
Subyek: judul
Isi: isi
BodyFormat: format konten, 1-teks normal; 0-hiperteks
metode:
AttachFile: Melampirkan file
AttachURL: lampirkan alamat
Kirim: kirim email
5.Kirim E-mail dalam format hypertext
Anda pasti pernah melihat banyak email yang menggunakan format hypertext, yang tidak hanya berisi gambar, suara, tetapi juga menyematkan animasi. Jika Anda mengirim email seperti itu ke teman Anda, pasti akan memberinya kejutan yang tidak terduga, karena ini adalah sesuatu yang tidak dapat dilakukan oleh program pengiriman email biasa. Berikut ini penggunaan komponen CDONTS untuk mengirim email dalam format HTML yang berisi gambar bernama sample.gif Programnya adalah sebagai berikut:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=BuatObjek("CDFONTS.DLL")
DimstrHTMLasString
StrHTML="〈html〉〈kepala〉"
StrHTML=StrHTML "〈judul〉Email〈/judul〉〈/head〉 menggunakan format hypertext
StrHTML=StrHTML "〈body〉〈p〉〈strong〉Contoh pengiriman email menggunakan CDONTS"
StrHTML=StrHTML "〈imgsrc=sample.gif〉〈/strong〉〈/p〉"
StrHTML=StrHTML "〈p〉Contoh di atas telah menyematkan gambar sample.gif〈/p〉"
StrHTML=StrHTML "〈/tubuh〉〈/html〉"
DenganObjMail
.Dari="[email protected]"
.To="[email protected]"
.Subjek="Judul"
.Body=strHTML
.AttachURL"c:/mydata/sample.gif","sample.gif"
.Format Tubuh=0
.Format Email=0
.Mengirim
BerakhirDengan
SetobjMail=tidak ada
Sub Akhir
Pada titik ini, saya yakin Anda pasti menemukan kelemahan dalam pemrosesan email SMTP. Server SMTP menerima pesan keluaran Anda, tetapi tidak memverifikasi nama dan alamat pengirim. Hal ini ditentukan oleh mekanisme pengiriman SMTP yang tidak sinkron, tetapi seseorang mungkin menggunakannya dengan motif tersembunyi untuk berpura-pura menjadi orang lain dan mengirim email! Artikel ini sangat menyarankan agar Anda tidak mencobanya dengan mudah. Setelah ISP Anda mengetahui perilaku Anda, kemungkinan besar akun Anda akan segera dihapus. ->