Formatar envio de email com CDo usando HtmlBody...
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">](http://www.w3.org/1999/xhtml%22)
<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](http://www.igorfranco.com/confirma_cad_user.asp?cod_user=%22&cod_user&%22%27) 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..
Discussão (2)
Carregando comentários...