[Resolvido] CDOSYS - Funciona no FF mas não no IE

[Public2004 79]

Tenho um formulário simples utilizando o CDOSYS... Tem alguma forma de verificar se houve erro ou não no processamento, tipo:

x = objCDO.Send
If x = True Then
    msg = "Ok"
Else
    msg = "No Ok"
End If
Response.Write(msg)

Testei assim e não funcionou, dá erro na linha do "Send".

 

Outro detalhe, o formulário funciona somente no Firefox, no IE não funciona, alguém já viu isso??

 

Abs.

[xanburzum 169]

verifique se o IE naun tem nenhum pulugin ou config.

[Ted k' 126]

Coloca assim

Erro = ""
Sucesso = False
On Error Resume Next
objCDO.Send

If Err <> 0 Then
  Erro = Err.Description
Else
  Sucesso = True
End If

[Public2004 79]

Tks Ted'k e Xan.

 

Outra coisa, consegui resolver o problema (ff?ie) só que no campo "objCDO.From" preciso colocar um e-mail ex:

objCDO.From = "email@email.com.br"

Se colocar a variável que vem do Form, ex:

objCDO.From = strEmail

dá erro e não envia, como resolver?

[hargon 64]

Se colocar direto não dar erro?

[Ted k' 126]

pog do k'...

 

objCDO.From = ""&strEmail&""

[Public2004 79]

eita ainda não deu certo...

[Ted k' 126]

Se o do hargon não deu certo, o meu tbm não....

 

esse email é valido??

 

posta seu codigo de COMO está fazendo!

[Public2004 79]

Sim, e-mail válido - E direto tb não rolou...

 

 

Cód.

<%
strNome = Request.Form("nome")
strMail = Request.Form("email")

Set objCDO      = Server.CreateObject("CDO.Message") 
Set objCDOConf  = Server.CreateObject("CDO.Configuration") 
	With objCDOConf.Fields 
        .Item(cdoSendUsingMethod) = 2 
        .Item(cdoSMTPServer) = "mail-fwd" 
        .Item(cdoSMTPServerPort) = 25 
        .Item(cdoSMTPconnectiontimeout) = 10 
        .Update 
    End With
Set objCDO.Configuration = objCDOConf 
objCDO.From     = "email@dominio.com.br"
objCDO.To       = "email@dominio.com.br"
objCDO.Subject  = "Assunto"
objCDO.TextBody = "Conteudo"

On Error Resume Next
objCDO.Send
   	If Err.Number <> 0 Then
		msg = "No Ok"
	Else
		msg = "Ok"
	End If
Response.Write(msg)
Set objCDO     = Nothing  
Set objCDOConf = Nothing  
%>

[Ted k' 126]

as configurações são essas mesmas?

 

.Item(cdoSMTPServer) = "mail-fwd" 
.Item(cdoSMTPServerPort) = 25

o SMTP e a porta estão corretos?

 

EDITADO:

tipo isso

http://tedk.com.br/blog/index.php/2008/03/17/cdomessage-enviado-e-mail/

[xanburzum 169]

verifique se as config. estao corretas, pois

apenas objCDO.From = strEmail, onde

strEmail=Trim(request.form("email"))

o SMTPServer esta certo !?!?!

ele vai normal...

[Public2004 79]

sim, são do Terra. Colocando o e-mail direto no "From" funciona, apenas quando coloco a var que não rola.

[xanburzum 169]

dá um response.write na variavel para ver o k esta sendo passada

reponse.write(var)
response.end

()

[Public2004 79]

Já havia feito esse teste, está passando corretamente...

[xanburzum 169]

tenta colocar o smtpauthenticate = 1

Pode ser simplesmente que o endereço de e-mail está sendo rejeitado, mas outras configurações no servidor SMTP estão impedindo a mensagem de erro verdadeiro de ser retransmitida,se você tem um proxy ou firewall, verifique se o servidor web está configurado corretamente para passar por ela, que o servidor SMTP sabe sobre ele, e que o proxy permite o acesso a porta 25

 

.Item(cdoSendUsingMethod) = 1

[Public2004 79]

Vlw pessoal, em meio a este, havia aberto um chamado no provedor explicando o problema, e agora está ok, só não me informaram a causa, mas td bem. resolvido.