none
CDOSYS em modo html RRS feed

  • Pergunta

  • Ola pessoal,

    Estou tendo problemas em enviar msgs em cdsys, tendo em vista que não consigo setar em modo html, segue o meu código abaixo, peço ajuda dos srs. para a solução :


    str_usr = request("usuario")


    Dim sql
    Dim rs
    Dim Conn

    Connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Sites\content\t\h\a\thanuz\bd\depile_cadastro.mdb;"
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    Conn.open Connstring

     sql = " SELECT * FROM USUARIO"&_
           " WHERE usuario = '" & str_usr & "' "
          
    rs.open sql, Conn      

    if rs.eof then
    response.write("<script>alert('O usuário digitado, é inválido!');</script>")
    response.write("<script>location.href='remenber.asp';</script>")
    response.End()
    end if

    if not rs.bof then
    if rs("usuario") = str_usr then
    Dim objEmail
    Dim strBody

    rec_usr = rs("usuario")
    rec_pas = rs("senha")

    strBody = "<html>"&_
    "<head></head><body>Recuperação de dados de acesso :<br><br><br>"&_
    "Login = '" & rec_usr & "'" &_
    "Senha = '" & rec_pas & "'" &_
    "<br><br><br></body></html>"



    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "xxx@xxx.com"
    objEmail.To = rs("email")
    objEmail.Subject = "Lembrete de senha"
    objEmail.TextBody  = strBody
    With objEmail.Configuration.Fields
         .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
         .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.com"
         .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "thanuz@brinkster.net"
         .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"
         .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
         .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
    objEmail.Send
    Set objEmail = Nothing
    end if
    end if

    %>


    Abs,

    Rafael
    quarta-feira, 8 de novembro de 2006 12:08

Todas as Respostas

  • Rafael,

    Para vc enviar e-mail com o corpo em HTML vc deve utilizar a seguinte configuração:

    objEmail.BodyFormat = 1 (HTML) ou 0 (texto)

    quarta-feira, 8 de novembro de 2006 14:52