Jump to content


Photo

Duvida Para Envio De E-mail Pelo Formulario


  • Faça o login para participar
1 reply to this topic

#1 m.almeida

m.almeida

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Não informado

Posted 21/05/2009, 16:11

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]

#2 http://www.kcedd.com

http://www.kcedd.com

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

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.

<% 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]





2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq