none
Envia E-Mail a partir de um Form RRS feed

  • Pergunta

  • Bom esse foi o comando que achei e coloquei meu email para testar..

     

    Servidor tem o CDONTS fiz um teste la e vi mas, quando vou mandar o email ele diz ter enviado mas não envia o0

     

    Alguém pode me ajudar =(

     

    <html>

    <head>

    <title>Teste do CDONTS</title>

    </head>

    <body>

    <%

    ' Envio de e-mail

    Set objmail = Server.CreateObject("CDONTS.NewMail")

    objmail.from = "flavinhosk8rap@hotmail.com"

    ' Recebe a variável do formulário anterior

    objmail.to = Request.form("email")

    objmail.subject = "Teste do CDONTS"

    objmail.body = "Caro(a) Sr(a). ," & CHR(13) & CHR(10) & CHR(13) & CHR(10) & _

    "Este é um teste do CDONTS" & CHR(13) & CHR(10) & _

    " Obrigado. " & CHR(13) & CHR(10) & CHR(13) & CHR(10) & _

    "--------------------------------------------"

    On Error Resume Next

    objmail.send

    If Err <> 0 Then

    Response.Write "Foi encontrado um erro (" & Err.Description & ")."

    Response.End

    End If

    Response.Write "E-mail enviado."

    %>

    </body>

    </html>

     

    Abraços xD
    terça-feira, 14 de outubro de 2008 14:46

Respostas

Todas as Respostas