locked
SMTP em IIS RRS feed

  • Pergunta

  • 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

    quinta-feira, 20 de março de 2008 16:34