Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

bimpercursso

[Resolvido] cdosys com tags html

Por , em ASP Clássico

Recommended Posts

bimpercursso    0

bimpercursso
Postado

Boa tarde pessoal, estou com uma duvida aqui que preciso resolver meio que urgente, é o seguinte:

 

tenho um envio de email ultilizando o componente cdosys, ja esta funcionando normal, eu apenas queria colocar no corpo do email algumas tags html,

por exemplo "<img src=''>", mas ele interpreta isso como texto e me mando no corpo do email, queria que implementasse uma imagem ao colocar o codigo anterior

 

alguem sabe o qeu pode ser?

 

			 '## Configuração do cabeçalho da mensagem
			 sDestinatario = request("email")
			 sRemetente = "ebims@ebims.com.br" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio.
			 sResponder = "ebims@ebims.com.br"
			 sAssunto = "E-Bims - Reenvio de Senha do Sistema"
	
			 sMensagem = "Segue abaixo os dados de acesso ao sistema<br><br>"
			 sMensagem = replace(sMensagem,"<br>",vbcrlf) & "Login: "& busca_dados("login") &"<br>Senha: "& busca_dados("senha")
			 sMensagem = replace(sMensagem,"<br>",vbcrlf)
			 
			 ' Cria o objeto CDOSYS
			 Set objCDOSYSMail = Server.CreateObject("CDO.Message")
			 
			 'Cria o objeto para configuração do SMTP
			 Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
			 
			 'SMTP 
			 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
			 
			 'Porta do SMTP
			 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
			 
			 'Porta do CDO
			 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
			 
			 'Timeout
			 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
			 objCDOSYSCon.Fields.update
			 
			 'Atualiza a configuração do CDOSYS para envio do e-mail
			 Set objCDOSYSMail.Configuration = objCDOSYSCon
			 
			 ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
			 'Configura o remetente(FROM)
			 objCDOSYSMail.From = sRemetente
			 
			 'Configura o destinatário(TO)
			 objCDOSYSMail.To = sDestinatario
			 
			 'Configura o Reply-To(Responder Para) 
			 objCDOSYSMail.ReplyTo = sResponder
			 
			 'Configura o assunto(SUBJECT)
			 objCDOSYSMail.Subject = sAssunto
			 
			 'Configura o conteúdo da mensagem 
			 'Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody
			 objCDOSYSMail.TextBody = sMensagem 
			 
			 ' ### ENVIA O E-MAIL ###
			 objCDOSYSMail.Send
			 
			 ' ### DESTRÓI OS OBJETOS ###
			 Set objCDOSYSMail = Nothing
			 Set objCDOSYSCon = Nothing
			 
			 enviado = 1
			 
			 response.write "<center class='font_texto'><br><br><br>Os dados de acesso ao sistema foram enviados para o seguinte e-mail: <b>"&sDestinatario &"</b></center>"

no corpo gostaria de colocar a tag <img src="">, mas nao funfa, ele manda como escrito de texto mesmo

 

alguem tem alguma ideia?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

sete o BodyFormat e MailFormat para html

 

você tem que adicionar aspas extra dentro do HTML. Você pode usar qualquer código HTML válido.

olha este exemplo de body

 

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 & "CDOSYS</strong></p>"
    HTML = HTML & "<p><font size =""2"" face=""Tahoma"">"
    HTML = HTML & "CDOSYS 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>"

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito