Proyek ini sekarang membutuhkan pengiriman email yang tepat waktu menggunakan ASP, dan banyak orang mengatakan bahwa ASP tidak memiliki fungsi seperti itu.
Sebenarnya, saya telah menjelaskannya secara rinci dalam artikel sebelumnya, tetapi itu adalah tugas yang tepat waktu, dan ide dasarnya sama.
Referensi: Metode untuk mengimplementasikan tugas waktu di ASP
Di sini kami menggunakan komponen JMail untuk melakukannya. Konten email adalah satu halaman web dan dapat disesuaikan secara bebas.
Mari kita lihat kode untuk mengirim surat waktunya:
Salinan kode adalah sebagai berikut:
Function getHttppage (URL)
redup objxml
Setel objxml = createObject ("msxml2.serverxmlhttp.3.0") 'hubungi komponen xmlhttp untuk menguji apakah ruang mendukung xmlhttp
objxml.open "get", url, false 'false sarana untuk mendapatkan kode web dengan cara yang sinkron, pahami sinkronisasi apa itu? Apa itu Asynchronous?
objxml.send () 'Kirim
getHttppage = bbytestoBstr (objxml.responseBody) 'Mengembalikan informasi, dan menggunakan fungsi untuk mendefinisikan pengkodean.
atur objxml = nothing'close
Fungsi akhir
Fungsi bbytestoBstr (tubuh)
redup objstream
Set ObjStream = createObject ("adodb.stream") '// memanggil komponen adodb.stream
objstream.type = 1
objstream.mode = 3
objstream.open
Objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = "GB2312"
'Konversi encoding UTF-8 default asli ke encoding GB2312, jika tidak Anda akan mendapatkan kode yang kacau dengan secara langsung memanggil halaman web dengan karakter Cina dengan XMLHTTP.
bbytestoBstr = objstream.readtext
objstream.close
atur objstream = tidak ada
fungsi akhir
Sub Sendaction (Subjek, MailAddress, Tomail, Pengirim, Konten, Fromemail, Fromer, Username, Kata Sandi)
Set ojmail = createObject ("jmail.message")
ojmail.logging = false
ojmail.silent = true
ojmail.priority = 3
ojmail.fromName = fromer
ojmail.from = fromemail
ojmail.charset = "GB2312"
ojmail.mailserverusername = nama pengguna
ojmail.mailserverpassword = kata sandi
ojmail.contentTransferencoding = "base64"
ojmail.htmlbody = konten konten 'surat
ojmail.body = konten '"Email kami berada dalam format HTML, tetapi perangkat lunak menonton email Anda mungkin tidak mendukungnya"
Ojmail.addrecipient Tomail 'alamat penerima
ojmail.subject = judul subjek '
ojmail.send (mailaddress)
Akhir sub
Subjek redup, mailaddress, toemail, pengirim, fromemail, fromer, kata sandi, ojmail, nama pengguna, tomail