Esse Script Está Rodando Perfeitamente!

Brunao · Setembro 10, 2004

Esse é um script de envio de Cartão postal.

Está funcionando corretamente, porém a parte destacada em vermelho tá escrito numa linha só, quando tento coloca-las ordenadamente pulando linha dá erro.

O que quero fazer é tipo assim descrito abaixo em azul:

Lembrando que estou usando o componente Aspmail

aguardo a colaboração!!!

sMensagem = "<html>
<body>
<table>
<tr>
<td> <imgsrc="&"http://www.thssistemas.com.br/imagens/pedrinho1.jpg"&">
 </td>
 <td>
Nome: Bruno 
Endereco: R. web 
Telefone: 3424 
Mensagem: oiiii
</td>
</tr>
</table>
 </body>
 </html>"
Mailer.BodyText = sMensagem%>
SCRIPT USADO
----------------------------------------------------------------------------------------------
Dim nome, empresa, email, cidade, Assunto, Mensagem, Ip
'Pegando os dados digitados nos campos e colocando em variaveis
nome = Request.Form("nome")
email = Request.Form("email")
empresa = Request.Form("empresa")
cidade = Request.Form("cidade")
Assunto = Request.Form("assunto")
Mensagem = replace(request.form("mensagem"),chr(13)," ")
ip = Request.ServerVariables("REMOTE_ADDR")
'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = "THS-SISTEMAS"
Mailer.FromAddress = email
Mailer.Encoding = 2
Mailer.CharSet = 2
Mailer.ContentType = "text/html"
Mailer.Priority = 1
Mailer.Urgent = true
'Host para envio de emails
Mailer.RemoteHost = "smtp.plugin.com.br"
Mailer.AddRecipient "S.A.C.", "bruno.bdp@bol.com.br"
Mailer.Subject = "S.A.C. - Serviço de Atendimento ao Cliente"
'Monta a texto para o envio
sNome = " Nome: " & nome & " "
sEmpresa = " Empresa: " & empresa & " "
sEmail = " Email: " & email & " "
sCidade = "Cidade: " & cidade & " "
sIp = "Ip: " & ip & " "
sAssunto = "Assunto: " & assunto & " "
sMensagem = "<html><body> <table><tr><td><imgsrc="&"http://www.thssistemas.com.br/imagens/pedrinho1.jpg"&"></td><td>Nome: Bruno Endereco: R. web Telefone: 3424 Mensagem: oiiii</td></tr></table></body></html> "Mailer.BodyText = sMensagem%>
<%
if Mailer.SendMail then
 Response.Redirect "fale_conosco_3.asp"
else
 Response.Redirect "fale_conosco_4.asp"
end if
%>

ursolouco · Setembro 10, 2004

<%

sMensagem = "<HTML><HEAD><TITLE></TITLE></HEAD>"
sMensagem = sMensagem & "<BODY>"
sMensagem = sMensagem & "<TABLE>"
sMensagem = sMensagem & "<TR>"
sMensagem = sMensagem & "<TD>"
sMensagem = sMensagem & "<IMG SRC="
sMensagem = sMensagem & "http://www.site.com.br/news/01/imagens/sammi_gatinha.jpg"
sMensagem = sMensagem & "WIDTH=350 HEIGHT 250"
sMensagem = sMensagem & ">
sMensagem = sMensagem & "</TD>"
sMensagem = sMensagem & "</TR>"
sMensagem = sMensagem & "</TABLE>"
sMensagem = sMensagem & "<BR>"
sMensagem = sMensagem & "<P>"
sMensagem = sMensagem & "AMO O URSOLOUCO"
sMensagem = sMensagem & "</P>"
sMensagem = sMensagem & "</BODY>"
sMensagem = sMensagem & "</HTML>"

Mailer.BodyText = sMensagem

%>

Organize melhor sua estrutura da mensagem que seu e-mail, vai funcionar..

Abraços!!

Setembro 10, 2004

valeu UrsoLouco !!!

Entrar

Esse Script Está Rodando Perfeitamente!

Pergunta

Brunao

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

ursolouco

Link para o comentário

Compartilhar em outros sites

Guest - Brunão -

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades