Exemplo de uma função para enviar e-mails com CDO em ASP

Fiz esta função para enviar emails constantemente a partir dos formulários das minhas páginas em ASP, então só tenho que criar um arquivo e incluí-lo para enviar emails em ASP.

Função Send Mail (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ON ERROR RESUME NEXT

 'Enviar um e-mail de texto usando autenticação em um servidor SMTP

 Const cdoSendUsingPickup = 1 'Enviar mensagem usando o serviço de coleta de diretório local SMTP
Const cdoSendUsingPort = 2 'Enviar pela rede, SMTP pela rede

 Const cdoAnonymous = 0 'Não autenticar
 Const cdoBasic = 1 'Autenticar básico (texto simples)
 Const cdoNTLM = 2 'NTLM

 Defina objMessage = CreateObject ("CDO.Message")
 objMessage. Assunto = problema
 objMessage. De = f sendername & ""
 objMessage. To = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = fmessage
 SE fadjoint <> "" ENTÃO
 objMessage. AddAttachment fadjoint
 FIM SE

 '== O servidor SMTP é configurado aqui.

 objMessage. Configuração. Campos. Item _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Função Final
%>