Näide funktsioonist CDO-ga meilide saatmiseks ASP-s

Selle funktsiooni tegin meilisõnumite saatmiseks pidevalt oma lehtede vormidest ASP-s, nii et ma pean ASP-s olevate meilide saatmiseks looma ainult faili ja selle kaasama.

Saada e-posti funktsioon (fname saatja, femail saatja, fmessage, femailpara, fasunto, fadjoint)
JÄRGMISE VIGA JATKA

 'Saatke SMTP-serveris autentimist kasutades tekstsõnum

 Const cdoSendUsingPickup = 1 'Saada sõnum SMTP kohaliku kataloogi vastuvõtuteenuse abil
Const cdoSendUsingPort = 2 'Saada võrgu kaudu, SMTP võrgu kaudu

 Const cdoAnonymous = 0 'Ärge autentige
 Const cdoBasic = 1 'Põhiteabe autentimine (lihttekst)
 Const cdoNTLM = 2 'NTLM

 Määra objMessage = CreateObject ("CDO.Message")
 objMessage. Teema = küsimus
 objMessage. From = f saatjanimi & ""
 objMessage. To = femailpara
 objMessage. Pimekoopia = fbcc
 objMessage. TextBody = fmessage
 KUI fadjoint <> "" SIIS
 objMessage. AddAttachment fadjoint
 LÕPP KUI

 '== Siin on konfigureeritud SMTP-server.

 objMessage. Konfiguratsioon. Väljad. Üksus _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Funktsioon Lõpeta
%>