ตัวอย่างฟังก์ชันส่งอีเมลด้วย CDO ใน ASP

งูเห่า / by admin / July 04, 2021

protection click fraud

ฉันสร้างฟังก์ชันนี้เพื่อส่งอีเมลจากแบบฟอร์มหน้าเว็บของฉันใน ASP อย่างต่อเนื่อง ดังนั้นฉันจึงต้องสร้างไฟล์และรวมไว้เพื่อส่งอีเมลใน ASP เท่านั้น

ฟังก์ชัน Send Mail (ผู้ส่ง fname, ผู้ส่ง femail, fmessage, femailpara, fasunto, fadjoint)
ข้อผิดพลาด RESUME NEXT

'ส่งข้อความโดยใช้การตรวจสอบสิทธิ์บนเซิร์ฟเวอร์ SMTP

Const cdoSendUsingPickup = 1 'ส่งข้อความโดยใช้บริการรับไดเรกทอรีท้องถิ่นของ SMTPP
Const cdoSendUsingPort = 2 'ส่งโดยใช้เครือข่าย, SMTP ผ่านเครือข่าย

Const cdoAnonymous = 0 'ห้ามตรวจสอบสิทธิ์
Const cdoBasic = 1 'รับรองความถูกต้องพื้นฐาน (ข้อความธรรมดา)
Const cdoNTLM = 2 'NTLM

ตั้งค่า objMessage = CreateObject ("CDO.Message")
objข้อความ เรื่อง = ปัญหา
objข้อความ จาก = f ชื่อผู้ส่ง & ""
objข้อความ ถึง = femailpara
objข้อความ Bcc = fbcc
objข้อความ TextBody = fmessage
ถ้า fadjoint <> "" แล้ว THE
objข้อความ AddAttachment fadjoint
สิ้นสุดถ้า

'== เซิร์ฟเวอร์ SMTP ได้รับการกำหนดค่าที่นี่

objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'ชื่อหรือ IP ของเซิร์ฟเวอร์ SMTP ระยะไกล
objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("

instagram story viewer

https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

'ประเภทการตรวจสอบ, ไม่มี, พื้นฐาน (เข้ารหัส Base64), NTLM
objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'UserID ของคุณบนเซิร์ฟเวอร์ SMTP
objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" ผู้ใช้ "

'รหัสผ่านของคุณบนเซิร์ฟเวอร์ SMTP
objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" รหัสผ่าน "

'พอร์ตเซิร์ฟเวอร์ (โดยทั่วไปคือ 25)
objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'ใช้ SSL สำหรับการเชื่อมต่อ (เท็จหรือจริง)
objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = เท็จ

'TIMEOUT เป็นวินาที เวลาสูงสุดที่ CDO จะพยายามสร้างการเชื่อมต่อกับ SMTP
objข้อความ การกำหนดค่า ฟิลด์ สิ่งของ _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objข้อความ การกำหนดค่า ฟิลด์ อัพเดท

'== เสร็จสิ้นการกำหนดค่า SMTP ==

objข้อความ ส่ง

SendEmail = femailpara & ","

ฟังก์ชั่นสิ้นสุด
%>

Teachs.ru

แท็ก cloud

งูเห่า

เรตติ้ง

มุมมอง

ความคิดเห็น