Contoh Fungsi Mengirim Email Dengan CDO Di ASP

Saya membuat fungsi ini untuk mengirim email terus-menerus dari bentuk halaman saya di ASP, jadi saya hanya perlu membuat file dan memasukkannya untuk mengirim email di ASP.

Fungsi Send Mail (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ON ERROR RESUME BERIKUTNYA

 'Kirim email teks menggunakan otentikasi pada server SMTP

 Const cdoSendUsingPickup = 1 'Kirim pesan menggunakan layanan pengambilan direktori lokal SMTP
Const cdoSendUsingPort = 2 'Kirim menggunakan jaringan, SMTP melalui jaringan

 Const cdoAnonymous = 0 'Jangan autentikasi
 Const cdoBasic = 1 'Otentikasi dasar (teks biasa)
 Konst cdoNTLM = 2 'NTLM

 Setel objMessage = CreateObject ("CDO.Message")
 objPesan. Subyek = masalah
 objPesan. Dari = f nama pengirim & ""
 objPesan. Untuk = femailpara
 objPesan. Bcc = fbcc
 objPesan. TextBody = fmessage
 JIKA fadjoint <> "" MAKA
 objPesan. Tambahkan Fadjoint Lampiran
 BERAKHIR JIKA

 '== Server SMTP dikonfigurasi di sini.

 objPesan. Konfigurasi. Bidang. Barang _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Fungsi Akhir
%>