Beberapa waktu lalu, saya mengirimkan kode email JMAIL sederhana. Hari ini saya akan memberikan komentar spesifik pada kode ini, dan menambahkan dua kode format lainnya, dan memberikan beberapa contoh sederhana:
Yang pertama adalah kode inti jmail.smtpmail:
<%
Setel jmail = Server.CreateObject("JMAIL.SMTPMail") 'Buat objek JMAIL
jmail.silent = true 'JMAIL tidak akan memunculkan kesalahan pengecualian, dan nilai yang dikembalikan adalah FALSE dan TRUE
jmail.logging = true 'Aktifkan log penggunaan
jmail.Charset = "GB2312" 'Kode teks email adalah bahasa Mandarin Sederhana
jmail.ContentType = "text/html" 'Format emailnya adalah HTML
jmail.ServerAddress = "Alamat Server" 'Server yang mengirim email
jmail.AddRecipient Email 'Penerima email
jmail.SenderName = "SenderName" 'Nama pengirim email
jmail.Sender = "Alamat Email" 'Alamat email pengirim email
jmail.Priority = 1 'Program darurat email, 1 adalah yang tercepat, 5 adalah yang paling lambat, 3 adalah nilai default
jmail.Subject = "Subjek Email" 'Judul email
jmail.Body = "Badan Surat" 'Isi email
jmail.AddRecipientBCC Email 'Alamat penerima email buta
jmail.AddRecipientCC Email 'Alamat orang yang menyalin email
jmail.Execute() 'Jalankan pengiriman email
jmail.Close 'Tutup objek email
%>
Komponen w3 Jmail4.3 telah mendesain ulang struktur internalnya - menggunakan objek Pesan alih-alih objek tunggal asli Jmail.smtpmail untuk mengirim email. Beberapa metode memerlukan otentikasi (seperti 163, yahoo, dll.), yang dapat diselesaikan dengan metode berikut:
<%
Setel jmail = Server.CreateObject("JMAIL.Message") 'Buat objek untuk mengirim email
jmail.silent = true 'Perisai kesalahan pengecualian dan kembalikan nilai FALSE dan TRUE j
mail.logging = true 'Aktifkan pencatatan email
jmail.Charset = "GB2312" 'Pengkodean teks email adalah standar nasional
jmail.ContentType = "text/html" 'Format email adalah format HTML
jmail.AddRecipient Email 'Alamat penerima email
jmail.From = "Email Dari untuk Pengirim" 'Alamat E-MAIL Pengirim
jmail.MailServerUserName = "UserName of Email" 'Nama pengguna diperlukan untuk masuk ke server email
jmail.MailServerPassword = "Kata Sandi Email" 'Kata sandi diperlukan untuk masuk ke server email
jmail.Subject = "Subjek Email" 'Judul email
jmail.Body = "Badan Surat" 'Isi email
jmail.Prority = 1 'Program darurat email, 1 adalah yang tercepat, 5 adalah yang paling lambat, 3 adalah nilai default
jmail.Send("Alamat Server") 'Lakukan pengiriman email (melalui alamat server email)
jmail.Close() 'Tutup objeknya
%>
Mari kita bahas tentang cara mengirim pesan menggunakan komponen CDONTS milik Microsoft:
<%
Setel cdomail = Server.CreateObject("CDONTS.NewMail") 'Buat objek email
cdomail.Subject = "Subjek Email" 'Judul email
cdomail.From = "Surat Pengirim" 'Alamat pengirim
cdomail.To = "Email akan dari" 'Alamat penerima
cdomail.Body = "Badan Surat" 'Isi email
cdomail.Send 'Jalankan pengiriman
%>
Metode ini adalah cara paling sederhana untuk mengirim email, tetapi juga membawa masalah tertentu, yaitu hanya sedikit server yang akan membuka layanan ini!
Saat kami menulis program, kami biasanya mengatakan bahwa kode tersebut harus dimodulasi untuk memudahkan pemeliharaan dan porting. Oleh karena itu, saya akan menulis email ini sebagai subrutin di sini, yang dapat dipanggil langsung saat menelepon (tentu saja, jika Anda senang menulisnya sebagai fungsi, bisa juga, ini terutama tergantung pada minat pribadi):
<%
'Deskripsi parameter
'Subjek: Judul email
'MailAddress: Alamat server pengirim, seperti smtp.163.com
'Email: Alamat email penerima
'Pengirim: Nama pengirim
'Isi: Konten email
'Fromer: alamat email pengirim
Sub SendAction (subjek, alamat surat, email, pengirim, konten, pengirim)
Setel jmail = Server.CreateObject("JMAIL.SMTPMail") 'Buat objek JMAIL
jmail.silent = true 'JMAIL tidak akan memunculkan kesalahan pengecualian, dan nilai yang dikembalikan adalah FALSE dan TRUE
jmail.logging = true 'Aktifkan log penggunaan
jmail.Charset = "GB2312" 'Kode teks email adalah bahasa Mandarin Sederhana
jmail.ContentType = "text/html" 'Format emailnya adalah HTML
jmail.ServerAddress = mailaddress 'Server yang mengirim email
jmail.AddRecipient Email 'Penerima email
jmail.SenderName = pengirim 'Nama pengirim email
jmail.Sender = fromer 'Alamat email pengirim email
jmail.Priority = 1 'Program darurat email, 1 adalah yang tercepat, 5 adalah yang paling lambat, 3 adalah nilai default
jmail.Subject = subject 'Judul email
jmail.Body = content 'Isi email
'Karena BCC dan CC tidak digunakan, kedua kalimat ini diblokir di sini.
'jmail.AddRecipientBCC Email 'Alamat penerima email buta
'jmail.AddRecipientCC Email 'Alamat salinan karbon email
jmail.Execute() 'Jalankan pengiriman email
jmail.Close 'Tutup objek email
Akhiri Sub
'Contoh pemanggilan Sub ini
Redupkan strSubjek,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "Ini adalah email percobaan yang dikirim menggunakan JMAIL"
strContent = "Komponen JMail berhasil mengirimkan pengujian!"
strEmail = " [email protected] "
strFromer = " [email protected] "
strMailAddress = "mail.ubbcn.com"
Panggil SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>
Di atas adalah pendapat kasar saya tentang kode pengiriman email. Saya ingin mengucapkan terima kasih atas saran Anda!