Contato em asp..

[xanburzum 169]

verifique se esta configurado corretamente o SMTP e não esteja ocorrendo nenhuma instabilidade no serviço de SMTP do seu host

[- KbeçãO - 0]

erro na linha 24

<%
if request("botao") = "enviar" then
'Cria o objeto para o envio de e-mail
Set objMail = Server.CreateObject("CDO.Message")
'Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seudominio.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")= 60
objCDOSYSCon.Fields.update
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set objMail.Configuration = objCDOSYSCon
'Set key properties
objMail.From = "seuemail@seudominio.com.br"
objMail.To = request.form("to")
objMail.Subject= request.form("subject")
objMail.TextBody = request.form("body")
'Send the email
return = objMail.Send //linha 24
'Notify user
if return <> 0 then
response.write "Erro: " & return
else
response.write "Mensagem enviada com sucesso."
end if
'Clean-up mail object
Set objMail = Nothing
end if
%>

'Send the email
return = objMail.Send //linha 24

x/

[xanburzum 169]

ele dá algum numero de erro ????

[- KbeçãO - 0]

error '8004020f'

 

/cdosys.asp, line 24

 

[xanburzum 169]

isso pode ser que o e-mail foi rejeitado pelo servidor por algum motivo. Aqui estão algumas coisas que você pode tentar:

 

Verifique se o servidor SMTP permite anônimo (não autenticada). verifique se a sua saída SMTP requer autenticação

 

Verifique se o problema é específico para o nome de domínio utilizado nos endereços de e-mail dos destinatários. Por exemplo, alguns usuários se queixaram de que eles podem enviar para os usuários em seus próprios domínios apenas, outros disseram que pode enviar para qualquer domínio, exceto os seus próprios.

 

Pode ser simplesmente que o endereço de e-mail está sendo rejeitado, mas outras configurações do servidor SMTP estão impedindo a verdadeira mensagem de erro seja retransmitida ... assim verificar que o endereço é válido.

 

Se você tiver um firewall ou proxy, certifique-se o servidor web está configurado corretamente para passar por ele, que o servidor SMTP e que o proxy permite o acesso a porta 25.

 

Tente usar um valor SendUsing de 1 (pickup) em vez de 2 (port). Por exemplo a seguinte linha:

 

.Item(cdoSendUsingMethod) = cdoSendUsingPort

 

mude para

 

.Item(cdoSendUsingMethod) = cdoSendUsingPickup

[SemPapasNaLingua 0]

QUando você colocou o host como "smtp.seudominio.com.br", você colocou ele somente como exemplo, ou está realmente assim no seu codigo ??? o.O ??

[xanburzum 169]

Se você tiver um firewall ou proxy, certifique-se o servidor web está configurado corretamente

[- KbeçãO - 0]

coloquei smtp.seudominio.com.br como exemplo neh?

meu servidor smtp ñ precisa de autenticação...

servidor de entrada 'PoP3' porta '110'...

e bla bla bla, bla bla bla, bla bla bla...

na minha linha

.Item(cdoSendUsingMethod) =

esta com valor 2

 

.Item(cdoSendUsingMethod) = 2

é assim msmo?

ou eu mudo para..

.Item(cdoSendUsingMethod) = cdoSendUsingPort

[xanburzum 169]

se as configurações estiverem corretas, verifique junto ao host se esta tendo alguma instabilidade no server

[- KbeçãO - 0]

=/

afs...

deve ser msmo a hospedagem do meu cliente...

ja tive problemas com ela antes, devo estar tendo denovo...

x/

q pena..

bom..

de qualquer forma valeu ai pela ajuda...

=]

[xanburzum 169]

ok amigo...

 

qualquer coisa posta ae...

[- KbeçãO - 0]

ò...

to chegando lá....

em uma de meus teste me foi retornado o seguinte email...

This is an automatically generated Delivery Status Notification.

 

THIS IS A WARNING MESSAGE ONLY.

 

YOU DO NOT NEED TO RESEND YOUR MESSAGE.

 

Delivery to the following recipients has been delayed.

 

gabriel.livre@terra.com.br

 

tradução...

 

Esta é gerada automaticamente Delivery Status Notification.

 

Esta é uma mensagem de aviso.

 

VOCÊ NÃO PRECISA Para reenviar a mensagem.

 

Entrega aos seguintes destinatários foi adiado.

 

gabriel.livre@terra.com.br

 

oq isso quer dizer??

gabriel.livre@terra.com.br foi o email de recebimento q eu usei pra testar...

o codigo q usei foi esse...

<%
Dim ObjSendMail
Dim iConf
Dim Flds

strBody = "Dados <br> <br>" & _
"Nome:"& Request("nome")& "<br>" & _
"E-Mail:"& Request("email")& "<br>" & _
"Assunto:"& Request("assunto")& "<br>" & _
"Mensagem:"& Request("msgm")
strBody = strBody & "."
  
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
        
Set Flds = iConf.Fields
With Flds
.Item("cdoSendUsingMethod") = 1
.Item("cdoSMTPServer") = "smtp.simengenharia.eng.br"
.Item("cdoSMTPServerPort") = 25
.Item("cdoSMTPconnectiontimeout") = 10
.Update
End With
        
Set ObjSendMail.Configuration = iConf
        
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = "gabriel.livre@terra.com.br"
ObjSendMail.Subject = "Contato Site"
ObjSendMail.From = Request("email")
        

ObjSendMail.HTMLBody = strBody
'ObjSendMail.TextBody = Request.Form("msgm")
        
ObjSendMail.Send
        
Set ObjSendMail = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>

[xanburzum 169]

o seu email do terra, esta configurado para enviar uma mensagem de recebimento ???

[- KbeçãO - 0]

ñ...

 

!!!!!!

nesse email que me foi retornado tinha um arquivo '.eml' anexado..

com o nome que eu defini no codigo asp 'Contato Site'

baixei o arquivo...

ele n abre no OutLook apena o Windows Live Mail...

abri o arquivo la, e nele continham os dados que foram digitados no form...

Mais esse email chegou para o remetente, e não para o destinatario q seria o 'gabriel.livre@terra.com.br'

Oo

 

o seu email do terra, esta configurado para enviar uma mensagem de recebimento ???

 

mudei o codigo para q meu email do hotmail fosse o destinatario...

o email só é aceito no hotmail..

la chega beleza..

mais no outlook ñ...

Pq isso acontece??

 

x/

 

?

[xanburzum 169]

isso é config. do seu outlook

 

no meu outlook 2007 e 2010 abre normal a extensao eml

[- KbeçãO - 0]

o pior é q eu procurei na net e achei uma forma de re-configurar o outlook para aceitar extensões .eml, fiz os procedimentos mas ainda sim ñ consigo abrir..

x/

e uso o Office 2003