ASP'de CDO ile E-posta Gönderme İşlevi Örneği

Asp / by admin / July 04, 2021

Bu işlevi ASP'deki sayfalarımdaki formlardan sürekli e-posta göndermek için yaptım, bu yüzden yalnızca bir dosya oluşturup ASP'ye e-posta göndermek için dahil etmem gerekiyor.

SendMail işlevi (fname gönderen, femail gönderen, fmessage, femailpara, fasunto, fadjoint)
SONRAKİ HATA DEVAM ETMEKTE

'SMTP sunucusunda kimlik doğrulama kullanarak bir metin postası gönderin

Const cdoSendUsingPickup = 1 'SMTP yerel dizin alma hizmetini kullanarak ileti gönder
Const cdoSendUsingPort = 2 'Ağ kullanarak gönder, ağ üzerinden SMTP

Const cdoAnonymous = 0 'Kimlik doğrulaması yapma
Const cdoBasic = 1 'Temel doğrulama (düz metin)
Sabit cdoNTLM = 2 'NTLM

set objMessage = CreateObject ("CDO.Message")
nesneMesaj. konu = sorun
nesneMesaj. Gönderen = f gönderen adı & ""
nesneMesaj. Kime = femailpara
nesneMesaj. Gizli = fbcc
nesneMesaj. TextBody = mesaj
EĞER fadjoint <> "" SONRA
nesneMesaj. EkleAttachment fadjoint
EĞER SON

'== Burada SMTP sunucusunu yapılandırırsınız.

nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/sendusing

instagram story viewer

") = 2

'Uzak SMTP Sunucusunun Adı veya IP'si
nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" yerel ana bilgisayar "

'Kimlik doğrulama türü, HİÇBİRİ, Temel (Base64 kodlu), NTLM
nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'SMTP sunucusundaki Kullanıcı Kimliğiniz
nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" KULLANICI "

'SMTP sunucusundaki şifreniz
nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" ŞİFRE "

'Sunucu bağlantı noktası (genellikle 25)
nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Bağlantı için SSL kullan (Yanlış veya Doğru)
nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Yanlış

Saniye cinsinden ZAMAN AŞIMI, CDO'nun SMTP ile bağlantı kurmaya çalışacağı maksimum süre
nesneMesaj. Yapılandırma. Alanlar. Öğe _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

nesneMesaj. Yapılandırma. Alanlar. Güncelleme

'== SMTP yapılandırmasını bitir ==

nesneMesaj. gönder

SendEmail = femailpara & ","

Bitiş İşlevi
%>

Etiketler bulut

Değerlendirme

Görüntüleme

Yorumlar