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]
Duvida Para Envio De E-mail Pelo Formulario
Started By
m.almeida
, 21/05/2009, 16:11
1 reply to this topic
#1
Posted 21/05/2009, 16:11
#2
Posted 10/06/2009, 08:45
Olá,
No cóidigo que vc postou está faltando na configuração do SMTP informar e-mail e senha para o envio do e-mail. Segue código que utiliso caso haja outros problemas que não consegui identificar em seu código.
No cóidigo que vc postou está faltando na configuração do SMTP informar e-mail e senha para o envio do e-mail. Segue código que utiliso caso haja outros problemas que não consegui identificar em seu código.
<% Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") ' Servidor SMTP de Saída objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.meudominio.com.br" 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/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = eu@meudominio.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhsenha" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update ' Altere a configuração do CDOSYS Set objCDO.Configuration = objCDOSYSCon objCDO.To = voce@seudominio.com.br objCDO.From = eu@meudominio.com.br objCDO.Subject = "Teste CDOSYS" bodyHTML = "O CDOSYS Funcionou!" objCDO.HTMLBody = bodyHTML objCDO.Send Set objCDO = Nothing Set objCDOSYSCon = Nothing %>
Oi pessoal , gostaria que alguem me ajudasse, para ver se falta alguma coisa neste código abaixo:
Obrigado!<% '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.microsoft.com/cdo/configuration/smtpserver") = "smtp.abc.terra.com.br"'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 = "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"%>
Edição feita por: DarkSign, 15/06/2009, 16:08.
add tag [code]
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)