Esimerkki toiminnosta lähettää sähköpostia CDO: lla ASP: ssä

Tein tämän toiminnon lähettämään jatkuvasti sähköposteja sivujeni lomakkeista ASP: ssä, joten minun tarvitsee vain luoda tiedosto ja sisällyttää se lähettääksesi sähköpostia ASP: hen.

SendMail-toiminto (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ON VIRHEEN JATKAMINEN SEURAAVA

 Lähetä tekstiviesti todennuksen avulla SMTP-palvelimelle

 Const cdoSendUsingPickup = 1 'Lähetä viesti SMTP-paikallishakemiston noutopalvelun avulla
Const cdoSendUsingPort = 2 'Lähetä verkon kautta, SMTP verkon kautta

 Const cdoAnonymous = 0 'Älä todenna
 Const cdoBasic = 1 'Todenna perus (pelkkä teksti)
 Const cdoNTLM = 2 'NTLM

 Aseta objMessage = CreateObject ("CDO.Message")
 objMessage. Aihe = ongelma
 objMessage. Lähettäjä = f lähettäjänimi & ""
 objMessage. Vastaanottaja = femailpara
 objMessage. Piilokopio = fbcc
 objMessage. TextBody = fmessage
 JOS fadjoint <> "" Sitten
 objMessage. AddAttachment-fadjoint
 LOPPU JOS

 '== Tässä määritetään SMTP-palvelin.

 objMessage. Kokoonpano. Kentät. Tuote _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Lopeta toiminto
%>