Ir para conteúdo

POWERED BY:

Arquivado

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

Igor FV

Formatar envio de email com CDo usando HtmlBody...

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

Amigos, estou tentando formatar um envio de e-mail usando CDO com HtmlBody, mas não estou conseguindo formatar o corpo do e-mail.

 

Meu codigo é esse:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/conn.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title></title>

</head>

<body>

<%

cod_user = (Session("cod_user"))

Set RS=conn.Execute("SELECT * FROM bd_yd.tbl_user WHERE id_user = '"&cod_user&"' ")

 

Dim cdoMessage, cdoConfig

 

Set cdoMessage = Server.CreateObject("CDO.Message")

Set cdoConfig = Server.CreateObject("CDO.Configuration")

 

'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "rodrigoe@rodrigoerenata.com"

'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ffi47o20"

cdoConfig.Fields.Update

 

 

Set cdoMessage.Configuration = cdoConfig

'e-mail do remetente

cdoMessage.From = "igor_fv@hotmail.com"

'e-mail do destinatário

cdoMessage.To = RS("email_user")

'cdoMessage.CC = "igor.fv@gmail.com"

'assunto da mensagem

cdoMessage.Subject = "Yakissobas Dinner - Confirmação de cadastro!"

'conteúdo da mensagem

 

strBody = "Seja Bem Vindo ao Restaurante Yakissobas Dinner o sabor oriental no Brasil." & vbCrLf & vbCrLf & vbCrLf & _

"Dados Cadastrais:" </br>

"Nome: "& RS("nome_user") </br>

"Senha: "& RS("senha_user") </br>

"Para confirmação do cadastro clique no link abaixo." </br>

"<a href = 'http://www.igorfranco.com/confirma_cad_user.asp?cod_user="&cod_user&"'>CONFIRMAR CADASTRO</a>"

strBody = strBody & "."

 

cdoMessage.HtmlBody = strBody

'Para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.HtmlBody = strBody

 

'Envia o e-mail

cdoMessage.Send

 

'Destrói os objetos

Set cdoMessage = Nothing

Set cdoConfig = Nothing

 

Response.Redirect ("home.asp")

%>

</body>

</html>

Como poderia formatar o corpo do e-mail usando tabela?

 

Vlw..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

eu quando coloco tabelas no corpo de email e substituo todas as aspas duplas (") que contém no meu codigo da tabela por aspas simples ('), e sempre funcionou, tente esse feito tbm!

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