Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Veronica Gravino

FALSE CDOSYS message

Por , em ASP Clássico

Recommended Posts

Veronica Gravino    0

Veronica Gravino
Postado

Ola gente gostaria de saber se alguem ja usou o CDOSYS para enviar email e se teve problemas na hora de receber o email.

Acontece que meu codigo esta imprimindo o texto "FALSE" no topo do corpo de todos emails que eu envio ... alguem sabe porque acontece isso??? como resolver???Gracias!

 

 

Aqui esta o codigo que eu estou utilizando

<% 

email = trim(request.form("email"))
nome = trim(request.form("nome"))
mensagem = trim(request.form("mensagem"))
envia_email = "contato@empresax.com.br"

			
sDestinatario = envia_email
sRemetente =  email  'o endereço de e-mail deve ser uma conta do próprio domínio e válida.
sResponder = "veronica.gravino@gmail.com"
sAssunto = "Fale Conosco - EmpresaX"
'sMensagem = "<html><strong>Você solicitou a recuperação de sua senha para acessar o sistema administrativo, sua senha é : "&senha&"</html>"

'conteúdo da mensagem 

'para envio da mensagem no formato html altere o TextBody para HtmlBody 
'objCDOSYSMail.HtmlBody = strBody


'## configurações do componente CDOSYS
on error resume next
Set objCDOSYSMail = 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") = "localhost" 

'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") = 30 
objCDOSYSCon.Fields.update 

strBody = "<html><head><title>Contato do site</title></head>"& vbCrLf & _
strBody = strBody & "<body bgcolor=""#1b3148""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">"
strBody = strBody & "<table width=""618"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr>"
strBody = strBody & "<td height=""70"" background=""http://www.santanaativa.com.br/administrativo/img/email/topo.jpg"" ><br /></td> </tr> </table>"
strBody = strBody & "<table width=""618"" border=""0"" cellpadding=""40"" cellspacing=""0""><tr>"
strBody = strBody & "<td valign=""top"" align=""center"" background=""administrativo/img/email/meio.jpg"">"
strBody = strBody & "<img src=""administrativo/img/logo.jpg"" width=""94"" height=""80"" align=""right"" /><strong><font size=""3"">Santana Ativa</font>"
srtBody = strBody & "</strong><br /> <br />"
srtBody = strBody & " Você recebeu uma mensagem enviada atravez do seu site.<br /><br /><br /><br /><br />"
strBody = strBody & " <table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""0"">"
strBody = strBody & " <tr><td width=""20%"" align=""right""><strong>Nome:</strong></td>"
strBody = strBody & " <td width=""80%"">"&nome&"</td> </tr>"
strBody = strBody & " <tr><td align=""right""><strong>E-mail:</strong></td>"
strBody = strBody & " <td>"&email&"</td> </tr>"
strBody = strBody & " <tr><td align=""right""><strong>Mensagem:</strong></td>"
strBody = strBody & " <td>"&mensagem&"</td> </tr></table><br><br></td></tr></table>"
strBody = strBody & "<table width=""618"" border=""0"" cellspacing=""0""><tr>"
strBody = strBody & "<td height=""21"" background=""administrativo/img/email/baixo.jpg""> </td></tr></table>"
strBody = strBody & "</font></body></html>"

objCDOSYSMail.HtmlBody = strBody

'Atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'configura o remetente 
objCDOSYSMail.From = sRemetente 

'configura o destinatário 
objCDOSYSMail.To = sDestinatario

'configura o reply-to 
objCDOSYSMail.ReplyTo = sResponder 

'configura o assunto 
objCDOSYSMail.Subject = sAssunto 

''configura o conteúdo da mensagem 
objCDOSYSMail.HtmlBody = strBody 
'### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###


'para envio da mensagem no formato html altere o TextBody para HtmlBody 
objCDOSYSMail.HtmlBody = strBody 
objCDOSYSMail.fields.update 

' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send 

' ### DESTRÓI OS OBJETOS ### 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
'response.write "Mensagem acentuada enviada para:  "&sDestinatario&"..." 
msg = "Obrigado por nos contactar "&nome&"."
response.redirect "faleconosco.asp?msg="&msg&""

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

No seu localhost o server SMTP está instalado e configurado corretamente ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Bom.. só pela sua resposta eu já posso deduzir que não está.

 

Vamos a algumas perguntas para começar:

 

1) - Você está fazendo isso em sua casa, ou no seu trampo?

2) - Se for no seu trampo, você tem acesso ao servidor web?

 

Me responda isso que fica mais fácil te ajudar....

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Veronica Gravino    0

Veronica Gravino
Postado

Bom.. só pela sua resposta eu já posso deduzir que não está.

 

Vamos a algumas perguntas para começar:

 

1) - Você está fazendo isso em sua casa, ou no seu trampo?

2) - Se for no seu trampo, você tem acesso ao servidor web?

 

Me responda isso que fica mais fácil te ajudar....

 

Abraços...

estou no trampo, o servidor é locaweb plano Revenda, eu queria fazer com CDONTS o envio do email, mas ele so disponibilizam CDOSYS :(

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito