Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

emails em formato html

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ai galera, alguem poderia me ajudar com este script, fazer ele enviar formato html

 

Codigo:--- enviar.asp

 

<%
'Abre a conexao com o banco de dados
Set Conex = Server.CreateObject ("ADODB.Connection") 
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("dados/cadastro.mdb")

'Pega os dados digitados no form
assunto = request("assunto")
mensagem = request("mensagem")

'Faz a listagem dos usuarios para pegar o nome
Set listar = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
listar.open sql, conex, 1,1

'Faz um while
while not listar.eof

'Pega o nome e o email do usuario
Set nome = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios where cod="&listar("cod")
nome.open sql, conex, 1,1

while not nome.eof
'envia o e-mail
	Set objmail = Server.CreateObject("CDONTS.NewMail") 
		objmail.from = nome_admin & "<"&email_admin&">"
		objmail.to = nome("email")
		objmail.subject = assunto
		objmail.body = "Olá <b>"& nome("nome") & "</b><br><br>    " & mensagem
		objMail.Bodyformat = 0
		objMail.MailFormat = 0
	objmail.send
		
'Move para o próximo registro
nome.movenext
wend

listar.movenext
wend

'Exibe a mensagem de que os emails foram enviados com sucesso
response.Write("<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#FF0000>Os E-mails foram enviados com sucesso!!!</B></font></small></CENTER>")
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O e-mail não está chegando formatado? O código de envio está ok...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Public2004    79

Public2004
Postado

Tenta assim:

'ex. do corpo da página:
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Titulo da página</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "<font size='2' face='Arial'>Assunto: "& request("assunto") &" </font><br>"
HTML = HTML & "<font size='2' face='Arial'>Mensagem: "& request("mensagem") &" </font>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

'e dentro do ojeto criado "CDONTS" coloque dessa forma:
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.Body = HTML

Vlw

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