Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa noite pessoal,
Pra começar esse tópico gostaria de alerta-los que sou novato, mas acho que serei capaz de resolver o meu problema com a ajuda de vocês. Tenho um código asp para enviar um e-mail, ele não da erro mas mesmo assim o e-mail não chega ao destino, segue abaixo a parte do código onde envia o e-mail (o "email@dominio.com.br" é meramente ilustrativo, no codigo original estão emails reais, outra informação que pode ser pertinente é que este código esta sendo utilizado pelo hosting BySite (ou ThePlanet, nos EUA)):
<%
'Requisita os dados para o e-mail
if request.querystring("acao") = "ajuda" then
strNome = request.form("nome")
strEmail = request.form("email")
strDuv = request.form("duvida")
strAssunto = request.form("assunto")
strMsg = request.form("msg")
strCCEmail = ""
If strNome = "" then
response.redirect "ajuda_email.asp?erro=- Por favor preencha o seu nome corretamente!&nome="&strNome&"&email="&strEmail&"&assunto="&strAssunto&"&msg="&strMsg
end if
'Verifica se o e-mail é exixtente
If strEmail = "" Or instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then
response.redirect "ajuda_email.asp?erro=- Por favor preencha o seu e-mail corretamente!&nome="&strNome&"&email="&strEmail&"&assunto="&strAssunto&"&msg="&strMsg
end if
'Valida a mensagem
If strMsg = "" then
response.redirect "ajuda_email.asp?erro=- Por favor escreva sua mensagem!&nome="&strNome&"&email="&strEmail&"&assunto="&strAssunto&"&msg="&strMsg
end if
If strAssunto = "" then
strAssunto = "Esclarecimento de dúvida do Cliente"
end if
'Corpo do e-mail
strMensagem = "<font face=verdana size=2><b>Nome:</b> " & strNome & vbCrLf & vbCrLf & "<BR>"
strMensagem = strMensagem & vbCrLf & "<b>Email:</b> " & strEmail & vbCrLf & vbCrLf & "<BR>"
strMensagem = strMensagem & "<b>Dúvida:</b> " & strDuv & vbCrLf & vbCrLf & "<BR>"
strMensagem = strMensagem & "<b>Mensagem:</b> " & strMsg & vbCrLf & vbCrLf
'Envia o e-mail
Set eObjMail=CreateObject("CDO.Message")
eObjMail.Subject=strAssunto
eObjMail.From="email@dominio.com.br"
eObjMail.To="email@dominio.com.br"
eObjMail.HTMLBody = strMensagem
eObjMail.Send
set eObjMail=nothing
%>
>
Estranho não dar erro, pois está faltando parte do código na configuração do componente. Talvez tenha ON ERROR NEXT RESUME em alguma parte acima do código postado.
Mas sobre a configuração, dê uma pesquisada aqui no Fórum sobre CDOSYS. Existem vários posts sobre esse componente.
Conseguindo ou não resolver, poste aqui o resultado.
Não achei a parte do ON ERROR NEXT RESUME, estranho mesmo não dar erro. Configurar que você fala é aquelas linhas com schemas.microsoft.com/cdo/configuration etc etc? Mas essa pagina não existe.. devo colocar assim mesmo?
Isso, a configuração é essa. Você não consegue acessar via http isso, talvez por isso "não exista", mas funciona. É uma configuração padrão.
Isso, a configuração é essa. Você não consegue acessar via http isso, talvez por isso "não exista", mas funciona. É uma configuração padrão.
Realmente era isso, agradeço pela ajuda, problema resolvido!
Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
Estranho não dar erro, pois está faltando parte do código na configuração do componente. Talvez tenha ON ERROR NEXT RESUME em alguma parte acima do código postado.
Mas sobre a configuração, dê uma pesquisada aqui no Fórum sobre CDOSYS. Existem vários posts sobre esse componente.
Conseguindo ou não resolver, poste aqui o resultado.