[Resolvido] Problemas CDOSYS

[Flavio Silveira 0]

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

[hargon 64]

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.

[Flavio Silveira 0]

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?

[hargon 64]

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.

[Flavio Silveira 0]

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!

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif