Voorbeeld van een functie om e-mails te verzenden met CDO in ASP

Ik heb deze functie gemaakt om constant e-mails te verzenden vanuit de formulieren van mijn pagina's in ASP, dus ik hoef alleen een bestand te maken en op te nemen om e-mails in ASP te verzenden.

Send Mail-functie (fname afzender, femail afzender, fmessage, femailpara, fasunto, fadjoint)
OP FOUT HERVATTEN VOLGENDE

 'Stuur een sms met authenticatie op een SMTP-server

 Const cdoSendUsingPickup = 1 'Bericht verzenden met lokale SMTP-ophaalservice voor directory's'
Const cdoSendUsingPort = 2 'Verzenden via netwerk, SMTP via netwerk

 Const cdoAnonymous = 0 'Niet authenticeren'
 Const cdoBasic = 1 'Authenticeer basis (platte tekst)
 Const cdoNTLM = 2 'NTLM

 Stel objMessage = CreateObject ("CDO.Message") in
 objBericht. Onderwerp = probleem
 objBericht. Van = f afzendernaam & ""
 objBericht. Aan = vrouwelijk
 objBericht. Bcc = fbcc
 objBericht. TextBody = fbericht
 IF fadjoint <> "" DAN
 objBericht. AddAttachment fadjoint
 STOP ALS

 '== De SMTP-server wordt hier geconfigureerd.

 objBericht. Configuratie. velden. Artikel _
 ("

 SendEmail = femailpara & ","

Functie beëindigen
%>