Funkcijas piemērs, lai nosūtītu e-pastus ar CDO ASP

Es izveidoju šo funkciju, lai pastāvīgi sūtītu e-pastus no lapu formām ASP, tāpēc man ir jāizveido tikai fails un jāiekļauj tas, lai nosūtītu e-pastus ASP.

Sūtīt pasta funkciju (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
PAR KĻŪDU ATTURĒT NĀKAMO

 'Nosūtiet īsziņu, izmantojot autentifikāciju SMTP serverī

 Const cdoSendUsingPickup = 1 'Nosūtīt ziņojumu, izmantojot SMTP vietējā direktorija saņemšanas pakalpojumu
Const cdoSendUsingPort = 2 'Sūtīt, izmantojot tīklu, SMTP tīklā

 Const cdoAnonymous = 0 'Netiek autentificēts
 Const cdoBasic = 1 'Autentificēt pamata (vienkāršs teksts)
 Const cdoNTLM = 2 'NTLM

 Iestatiet objMessage = CreateObject ("CDO.Message")
 objMessage. Temats = jautājums
 objMessage. From = f sūtīšanas vārds & ""
 objMessage. Uz = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = fmessage
 JA fadjoint <> "" TAD
 objMessage. AddAttachment fadjoint
 BEIGT, JA

 '== Šeit ir konfigurēts SMTP serveris.

 objMessage. Konfigurācija. Lauki. Lieta _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Beigu funkcija
%>