Suporte
 
Painel de Controle Insite
ASP

Envio de e-mail utilizando o componente CDOSYS

<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'porta do SMTP
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente
objCDOSYSMail.From = "seuemail@seudominio"

'e-mail do destinatário
objCDOSYSMail.To = "emaildodestinatario@xxx.yy"

'assunto da mensagem
objCDOSYSMail.Subject = "Teste do CDOSYS"

'conteúdo da mensagem
objCDOSYSMail.TextBody = "Teste do componente CDOSYS"
'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'objCDOSYSMail.fields.update
'envia o e-mail
objCDOSYSMail.Send

'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail enviado para seuemail@seudominio ..."
%>