Hari ini saya sedang mengembangkan pesan pengguna. Satu salinan disimpan dalam database, dan salinan lainnya perlu dikirim ke kotak surat tertentu. Saya tidak tahu apakah server mendukungnya ke email. Pertama, harus ada keterangan On Error Resume Next
Kemudian coba lanjutkan contoh jmail:
Redupkan JMail
Setel JMail=Server.CreateObject(JMail.Message)
Buat penilaian pada instance tersebut. Jika komponen tidak berhasil diinstal, tidak ada instance yang dibuat:
Jika JMail Bukan Apa-apa, Maka
Respon.Write tidak didukung
Kalau tidak
Respon. Tulis dukungan
Akhiri Jika
Komponen lainnya diproses dengan cara yang sama, yaitu sangat sederhana.
Yang terbaik adalah menanganinya dalam file global, jadi Anda tidak perlu khawatir saat menggunakannya.
Cara terbaik adalah dengan meletakkan pembuatan email dalam sebuah tabel dan kemudian membicarakan tentang pengirimannya.
Copy kode kodenya sebagai berikut:
Fungsi IsObjInstalled(strClassString)
Pada Kesalahan Lanjutkan Berikutnya
IsObjInstalled = Salah
Salah = 0
DimxTestObj
Setel xTestObj = Server.CreateObject(strClassString)
Jika 0 = Err Maka IsObjInstalled = Benar
Setel xTestObj = Tidak Ada
Salah = 0
Fungsi Akhir
Kode penilaian:
jika IsObjInstalled(JMail.Message)=Benar maka{
jika IsObjInstalled(JMail.Message) = Benar maka
SendStat = Jmail(***@vevb.com, pesan pelanggan dari Internet, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Pesan pengguna situs web</title></head><body>Pesan orang: &txtname&<br>Jenis kelamin: &xingbie&<br>Situs web konsultasi: &txtweb&<br>Informasi kontak: &txttel&<br>Isi pesan :&lanjutan ent&<br>Alamat IP:&ipaddress&<br>Waktu pesan:&sekarang()&<br><br>Email ini dikirim secara otomatis oleh sistem, tidak perlu balasan<!--Beranda Skrip www.vevb.com-- ><br ><br></body></html>,GB2312,teks/html)
berakhir jika
}
fungsi pengiriman jmail
Copy kode kodenya sebagai berikut:
' ===============
' jmail mengirim email
' ===============
Fungsi Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'Parameter masuk:
' alamat email penerima mailTo
'mailTopic topik email
' badan email mailBody (konten)
' kumpulan karakter email mailCharset, seperti GB2312 atau US-ASCII
' format isi email mailContentType, seperti teks/polos atau teks/html
'Nilai pengembalian:
' String, OK akan dikembalikan setelah transmisi berhasil, pesan kesalahan akan dikembalikan jika gagal.
'Penggunaan:
' 1) Tetapkan konstanta, yaitu variabel yang dimulai dengan Konst
'2) Gunakan kode yang mirip dengan berikut ini untuk mengirim pesan
'Redupkan SendStat
'SendStat = Jmail([email protected], uji Jmail, ini surat ujian!, GB2312, teks/html)
'Respon.Tulis SendStat
'******************Tetapkan konstanta sesuai kebutuhan untuk memulai******************
Redupkan ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword
ConstFromNameCn = Nama pengirim berbahasa Mandarin Jaringan Lotere (digunakan saat mengirim email berbahasa Mandarin), seperti 'Zhang San'
ConstFromNameEn = bc5'Nama pengirim dalam bahasa Inggris (digunakan saat mengirim email berbahasa Inggris), seperti 'zhangsan'
ConstFrom = [email protected]' alamat email pengirim, seperti '[email protected]'
ConstMailDomain = alamat server smtp.163.com, seperti smtp.163.com
ConstMailServerUserName = nama login kotak surat server [email protected]'smtp, seperti 'zhangsan'. Pastikan untuk mencocokkan alamat email pengirim!
ConstMailServerPassword = kata sandi masuk kotak surat server www.vevb.com'smtp
'******************Tetapkan konstanta sesuai kebutuhan untuk mengakhiri****************
'--------------------------------Konten berikut tidak perlu diubah-------- -------- ---------------
Pada Kesalahan Lanjutkan Berikutnya
Redupkan Jmail saya
Setel myJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = False'Logging
myJmail.ISOEncodeHeaders = Header False'Mail tidak menggunakan pengkodean ISO-8859-1
myJmail.ContentTransferEncoding = base64'Pengkodean email disetel ke base64
Prioritas myJmail.AddHeader,3'Tambahkan header email, jangan diubah!
myJmail.AddHeader MSMail-Priority,Normal'Tambahkan header email, jangan diubah!
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'Tambahkan header email, jangan ubah!
myJmail.AddHeader MimeOLE, Diproduksi Oleh Microsoft MimeOLE V6.00.2800.1441'Tambahkan header email, jangan ubah!
myJmail.Charset = mailCharset
myJmail.ContentType = mailContentType
Jika UCase(mailCharset) = GB2312 Lalu
myJmail.FromName = ConstFromNameCn
Kalau tidak
myJmail.FromName = ConstFromNameEn
Akhiri Jika
myJmail.Dari = ConstFrom
myJmail.Subjek = mailTopic
myJmail.Body = mailBody
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Kirim ConstMailDomain
myJmail.Tutup
Setel myJmail=tidak ada
Jika Salah Lalu
Jmail=Err.Deskripsi
Err. Jelas
Kalau tidak
Jmail=OK
Akhiri Jika
Pada Kesalahan Goto 0
Fungsi Akhir