Esempio di una funzione per inviare email con CDO in ASP

Ho creato questa funzione per inviare costantemente email dai form delle mie pagine in ASP, quindi devo solo creare un file e includerlo per inviare email in ASP.

Funzione Send Mail (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
IN CASO DI ERRORE RIPRENDI AVANTI

 'Invia un SMS utilizzando l'autenticazione su un server SMTP

 Const cdoSendUsingPickup = 1 'Invia messaggio utilizzando il servizio di prelievo della directory locale SMTP
Const cdoSendUsingPort = 2 'Invia tramite rete, SMTP su rete

 Const cdoAnonymous = 0 'Non autenticare
 Const cdoBasic = 1 'Autentica base (testo normale)
 Cost cdoNTLM = 2 'NTLM

 Imposta objMessage = CreateObject ("CDO.Message")
 objMessage. Oggetto = problema
 objMessage. From = f nome mittente & ""
 objMessage. To = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = fmessage
 SE fadjoint <> "" THEN
 objMessage. AddAttachment fadjoint
 FINISCI SE

 '== Il server SMTP è configurato qui.

 objMessage. Configurazione. Campi. Articolo _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Fine funzione
%>