Algo Errado Com Cdonts

Ulissesx · Maio 3, 2005

Galera tenho esse codigo simples aki usando Cdonts, funciona sem problemas hoje fui verificar se estava tudo ok. E começou a vir um erro 500 no envio do e-mail, sem nenhuma outra informação, pensei que o problema era meu server, ai coloquei o mesmo codigo em outro server na Locaweb e o erro continua. alguém já passou por isso! Segue o codigo!

<%
Option Explicit

Dim nome, email, contato, mensagem, destinatario, enviarmail, msgbody

nome = Request.Form("nome")
email = Request.Form("email")
contato = Request.Form("contato")
mensagem = Request.Form("mensagem")
destinatario = "ulisses@madel.com.br"

Set enviarmail = Server.CreateObject("CDONTS.NewMail")
Enviarmail.to = destinatario
Enviarmail.From = email
Enviarmail.Subject = "Contato - Union"
msgbody ="<html>"_
& "<head>"_
& "</head>"_
& "<body bgcolor=""#FFFFFF"">"_
& "<p align=""center""><font face=""Verdana"" size=""2"">Voce recebeu uma mensagem de <b>" & nome & "</b>, email <b>" & email & "</b> sobre <b>" & contato & "></b> e fez o seguinte comentário:<b>" & mensagem & "</b></font></p>"_
& "</body>"_
& "</html>"
Enviarmail.Body = msgbody
Enviarmail.Importance = 1
Enviarmail.BodyFormat = 0
Enviarmail.MailFormat = 0
Enviarmail.Send

Set Enviarmail = Nothing

Response.Redirect("thanks.asp")

%>

Aproveitando gostaria de mandar uma BCC nesse codigo é só adicionar o codigo:

enviarmail.BCC = destinatario_oculto

Agradeço a ajuda

filipeflc00 · Maio 3, 2005

tenta esse


<%
strNome = Trim(Request.Form("nome"))
strIdade = Trim(Request.Form("idade"))
strCidade = Trim(Request.Form("cidade"))
strEstado = Trim(Request.Form("estado"))
strCamera = Trim(Request.Form("camera"))
strMsn = Trim(Request.Form("MSN"))
strEmail = Trim(Request.Form("email"))
strDdd = Trim(Request.Form("DDDTelefone"))
strTelefone = Trim(Request.Form("Telefone"))
strmensagem = Trim(Request.Form("mensagem"))


strMsgObrigado = strMsgObrigado & "---------------"& vbcrlf
strMsgObrigado = strMsgObrigado & "Contato : " & strNome & vbcrlf 
strMsgObrigado = strMsgObrigado & "Idade : " & strIdade & vbcrlf 
strMsgObrigado = strMsgObrigado & "Cidade : " & strCidade & vbcrlf
strMsgObrigado = strMsgObrigado & "Estado : " & strEstado & vbcrlf 
strMsgObrigado = strMsgObrigado & "Possui Camera? : " & strCamera & vbcrlf
strMsgObrigado = strMsgObrigado & "MSN : " & strMsn & vbcrlf
strMsgObrigado = strMsgObrigado & "E-mail : " & strEmail & vbcrlf 
strMsgObrigado = strMsgObrigado & "DDD : " & strDdd & vbcrlf 
strMsgObrigado = strMsgObrigado & "Telefone : " & strTelefone & vbcrlf 
strMsgObrigado = strMsgObrigado & "Mensagem: " & strmensagem & vbcrlf


Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = strEmail
objMail.to = "equipe@festanovale.com.br"
objMail.Subject = "Quero Fazer Parte Da Equipe Festa No Vale"
objMail.Body = strMsgObrigado

objMail.Send
Set objMail = nothing

if err <>0 Then
response.write "erro -> "&err.description
else
%>
<body <%= color%>>
<script language="javascript">
alert("Muito Obrigado Seu E-Mail Foi Enviado Com Sucesso !");
window.location = "\\pagina.asp";
</script>
<%

end if
%>

falw

bareta · Maio 4, 2005

va´em ferramentas / opções da internet/ avançado / desmarque a opção mostrar erros de http amigaveis....

ai rode o cod d novo... poste o erro aqui...

se for server.createobject error... seu server ta sem o cdonts....

Entrar

Algo Errado Com Cdonts

Pergunta

Ulissesx

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

filipeflc00

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades