Olá a todos,
Tenho um server 2000 com IIS, até aí sem probelmas, nele tenho 2 sites os quais também funcionam perfeitamente.
Bom, coloquei em um dos site um formulário(Cdont, e registrei a dll) pra envio de contato, o mesmo aparentemente está rodando sem problemas, mas o e-mail simplesmente ñ chega no destinatário. Nenhum erro é apresentado. O SMTP do IIS também roda sem problemas.
Segue o código do formulário:
<%
Option Explicit
' Declarando variáveis do Formulário
Dim var_nome
Dim var_empresa
Dim var_email
Dim var_telefone
Dim var_comentarios
' Declarando variáveis Globais
Dim var_to
Dim var_email1
Dim EnviarMail
Dim MsgBody
'Recebendo os valores dos campos IDENTIFICAÇÃO
var_nome = Request.Form("nome")
var_empresa = Request.Form("empresa")
var_email = Request.Form("email")
var_telefone = Request.Form("telefone")
var_comentarios = Request.Form("comentarios")
'Incrementando valores Globais
var_to = "destino@email.com"
var_email1 = "origem@email.com"
'Instanciando o serviço de SendMail
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_email1
EnviarMail.Subject = " - Fale Conosco - site - "
'Construindo o email em formato HTML
MsgBody = "<html>"_
& "<head>"_
& "</head>"_
& "<body bgcolor=""#FFFFFF"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"_
& "<table width=""100%"" height=""100%"" bgcolor=""#FFFFFF"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#003333""><tr>"_
& "<td height=""82"" bgcolor=""#003333"" align=left valign=top><img src=""http://www.meusite.com.br/logo.jpg"" width=""68"" height=""82""></td></tr><tr><td valign=""top"">"_
& "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""3"">"_
& "<tr>"_
& " <td align=right valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b>Nome</b></font></td>"_
& "<td align=left valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"& var_nome & "</font></td>"_
& "</tr>"_
& "<tr>"_
& "<td align=right valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b>Empresa</b></font></td>"_
& "<td align=left valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"& var_empresa &"</font></td>"_
& "</tr>"_
& "<tr>"_
& "<td align=right valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b>Email</b></font></td>"_
& "<td align=left valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"& var_email &"</font></td>"_
& "</tr>"_
& "<tr>"_
& "<td align=right valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b>Telefone</b></font></td>"_
& "<td align=left valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"& var_telefone &"</font></td>"_
& "</tr>"_
& "<tr>"_
& "<td align=right valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b>Comentários</b></font> </td>"_
& "<td align=left valign=top><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"& var_comentarios &"</font></td>"_
& "</tr>"_
& "</table>"_
& "</td></tr></table>"_
& "</body>"_
& "</html>"
'Declarando as configurações do envio
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send
'Fechando a instancia do serviço de SendMail
Set EnviarMail = Nothing
'Redireciona para a página de agrecimento
'Response.redirect "obrigado.asp"
%>
Se alguém tiver alguma dica, agradeço
Um abraço a todos e uma ótima páscoa.
Wagner
