Inserindo Link Na Mensagem

ffppereira · Setembro 24, 2004

Uma ajuda:

Quero inserir um link numa msg: http://www.ajuda.com/retirar.asp?email=ema...1&confirma=true

strMensagem = Para retirar seu email da lista clique no link abaixo:COMO COLOCO O LINK AQUI??

Set Mailer = CreateObject("CDONTS.NewMail")

Mailer.From = "ajuda@ajuda.com"

Mailer.To = email

Mailer.BCC = "faleconosco@ajuda.com"

Mailer.BodyFormat = 1

Mailer.MailFormat = cdoMailFormatText

Mailer.Subject = "Cadastro Confirmado"

Mailer.Body = strMensagem

Mailer.Send

response.redirect "sucesso.htm"

Set Mailer = Nothing

obrigado

cyberalexxx · Setembro 24, 2004

Voce deve fazer as seguintes mudanças:

strMensagem = Para retirar seu email da lista clique no link abaixo:COMO COLOCO O LINK AQUI??
Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = "ajuda@ajuda.com"
Mailer.To = email
Mailer.BCC = "faleconosco@ajuda.com"
Mailer.BodyFormat = 0
Mailer.MailFormat = 0
Mailer.Body=HTML
Mailer.Subject = "Cadastro Confirmado"
Mailer.Body = strMensagem
Mailer.Send
response.redirect "sucesso.htm"
Set Mailer = Nothing

Essas mudanças colocam a mensagem no padrão html agora você pode inserir qualquer tag html dentro da mensagem tipo <a href="site.com.br">link</a>

Olha um exemplo completo tirado da documentação do CDONTS na microsoft:

 <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    <%

    Dim myMail
    Dim HTML
    Set myMail = CreateObject("CDONTS.NewMail")

    HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    HTML = HTML & "<html>"
    HTML = HTML & "<head>"
    HTML = HTML & "<meta http-equiv=""Content-Type"""
    HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
    HTML = HTML & "<meta name=""GENERATOR"""
    HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
    HTML = HTML & "<title>HTMLMail</title>"
    HTML = HTML & "</head>"
    HTML = HTML & "<body bgcolor=""FFFFFF"">"
    HTML = HTML & "<IMG SRC=""http://www.microsoft.com/library/"
    HTML = HTML & "images/gifs/homepage/microsoft.gif"" BORDER=0 "
    HTML = HTML & "WIDTH=167 HEIGHT=36 ALT=""Microsoft Corporation"">"
    HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
    HTML = HTML & "Microsoft Exchange CDONTS Example</strong></p>"
    HTML = HTML & "<p><font size =""2"" face=""Tahoma"">"
    HTML = HTML & "CDO for NTS allows an easy way to send mail.<br>"
    HTML = HTML & "This example shows how the content can be "
    HTML = HTML & "an HTML page<br>"
    HTML = HTML & "which allows you to send rich text and"
    HTML = HTML & "inline graphics.</p>"
    HTML = HTML & "</body>"
    HTML = HTML & "</html>"

    myMail.From="someone@microsoft.com"
    myMail.To="someone@microsoft.com"
    myMail.Subject="Sample CDONTS HTML Message"
    myMail.BodyFormat=0
    myMail.MailFormat=0
    myMail.Body=HTML
    myMail.Send
    set mymail=nothing
    Response.Write "Message Sent"
    %>
    </HEAD>
    <BODY>
    </BODY>
    </HTML>

Entrar

Inserindo Link Na Mensagem

Pergunta

ffppereira

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades