SuperFAQ IPHOTEL | Como enviar e-mail atraves de .NET usando o compon

No exemplo abaixo o servidor deve ser configurado sempre como LOCALHOST e não é necessário informar o nome de usuário e senha do e-mail, pois o envio local não é autenticado.

O remetente preenchido no formulário deve sempre ser um e-mail válido, caso contrário não chegará à caixa de destino.

<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "LOCALHOST"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente
objCDOSYSMail.From = "remetente@dominio.com.br"

'e-mail do destinatário
objCDOSYSMail.To = "destinatario@dominio.com.br"

'assunto da mensagem
objCDOSYSMail.Subject = "Assunto da Mensagem"

'conteúdo da mensagem
objCDOSYSMail.TextBody = "Conteúdo da Mensagem"

'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = "<b>Teste do componente CDOSYS</b>"

'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 destinatario@dominio.com.br ..."
%>