FALSE CDOSYS message
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""](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&""
%>
Discussão (12)
Carregando comentários...