Eksempel på en funksjon for å sende e-post med CDO i ASP

Jeg gjorde denne funksjonen for å stadig sende e-post fra skjemaene til sidene mine i ASP, så jeg trenger bare å opprette en fil og inkludere den for å sende e-post i ASP.

SendMail-funksjon (fname avsender, femail avsender, fmessage, femailpara, fasunto, fadjoint)
PÅ FEILRESUME NESTE

 'Send en tekstmelding ved hjelp av godkjenning på en SMTP-server

 Const cdoSendUsingPickup = 1 'Send melding ved hjelp av SMTP lokal hentingstjeneste
Const cdoSendUsingPort = 2 'Send ved hjelp av nettverk, SMTP over nettverk

 Const cdoAnonymous = 0 'Ikke autentiser
 Const cdoBasic = 1 'Autentiser grunnleggende (ren tekst)
 Const cdoNTLM = 2 'NTLM

 Sett objMessage = CreateObject ("CDO.Message")
 objMessage. Emne = problem
 objMessage. From = f sendername & ""
 objMessage. Til = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = melding
 HVIS fadjoint <> "" SÅ
 objMessage. AddAttachment fadjoint
 SLUTT OM

 '== Her konfigurerer du SMTP-serveren.

 objMessage. Konfigurasjon. Enger. Vare _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Sluttfunksjon
%>