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]
m.almeida's Content
There have been 1 items by m.almeida (Search limited from 20/05/2023)