Para enviar e-mails usando asp clássico, use o componente CDOSYS
‘CRIA A INSTANCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject(“CDO.Message”)
Set objCDOSYSCon = Server.CreateObject(“CDO.Configuration”)
‘SERVIDOR DE SMTP
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = “smtp.dominio.com”
‘PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 587
‘Utilização de SSl
objCDOSYSCon.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl“) = False
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
‘ATIVAR RECURSO DE SMTP AUTENTICADO
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“) = 1
‘USUARIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusername“) = “email@dominio.com“
‘SENHA DO USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendpassword“) = “sua_senha”
‘TEMPO DE TIMEOUT (EM SEGUNDOS)
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout“) = 60
‘ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
‘NOME DO REMETENTE, E-MAIL DO REMETENTE
objCDOSYSMail.From = “remetente@dominio.com“
‘NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = “destinatario@email.com“
‘objCDOSYSMail.cc = “Copia copia@dominio.com“
‘objCDOSYSMail.bcc = “Copia Oculta copiaoculta@dominio.com“
‘ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = “Assunto da Mensagem”
‘CONTEÚDO DA MENSAGEM
‘objCDOSYSMail.TextBody = “Teste do componente CDOSYS – Texto sem HTML”
‘PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
objCDOSYSMail.HtmlBody = “Teste do componente CDOSYS – Texto em HTML”
‘ENVIA A MENSAGEM
objCDOSYSMail.Send
‘DESTRÓI OS OBJETOS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing