m.almeida

Oi pessoal , gostaria que alguem me ajudasse, para ver se falta alguma coisa neste código abaixo:




Obrigado!




[codebox]<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
' o CDOSYS precisa ser configurado em Rum-Time antes de ser enviado
'Aconcelhamos mudar somente o servidor SMTP da configuração
'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
Response.End()
'SMTP
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "smtp.abc.terra.com.br"

'porta do SMTP
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25

'porta do CDO
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2

'timeout
objCDOSYSCon.Fields("http://schemas.micro...nectiontimeout") = 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 = "madson@essencialenergia.com"

'e-mail do destinatário
objCDOSYSMail.To = "madson@essencialenergia.com"

'assunto da mensagem
objCDOSYSMail.Subject = "SOLICITAÇÃO DE LOCAÇÃO (SITE)"

'texto da mensagem
objCDOSYSMail.TextBody = "teste"



objCDOSYSMail.Send

'Tirando os Objetos da memoria
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Redirect "locacao.asp"
%>[/codebox]