Ir para conteúdo

POWERED BY:

Arquivado

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

Eduardo VR

personalizar email

Por , em ASP Clássico

Recommended Posts

Eduardo VR    0

Eduardo VR
Postado

Como faço a formatação para que o usuário receba o email assim:Nome: ----------------------------------------------------------------------------------------------------Email:----------------------------------------------------------------------------------------------------Telefone:----------------------------------------------------------------------------------------------------Empresa:----------------------------------------------------------------------------------------------------Profissão:----------------------------------------------------------------------------------------------------Endereço: ---------------------------------------------------------------------------------------------------- Nº:----------------------------------------------------------------------------------------------------Complemento:----------------------------------------------------------------------------------------------------CEP:----------------------------------------------------------------------------------------------------Bairro:----------------------------------------------------------------------------------------------------Cidade:----------------------------------------------------------------------------------------------------Estado:----------------------------------------------------------------------------------------------------Mensagem:Se alguem puder me ajudar.Falew.<%'Vamos recuperar os valores do formulárionome = Request.Form("txt_nome")email = Request.Form("txt_email")telefone = Request.Form("txt_telefone")empresa = Request.Form("txt_empresa")profissao = Request.Form("txt_profissao")endereco = Request.Form("txt_endereco")numero = Request.Form("txt_numero")complemento = Request.Form("txt_compl")cep = Request.Form("txt_cep")bairro = Request.Form("txt_bairro")cidade = Request.Form("txt_cidade")estado = Request.Form("txt_estado")mensagem = Request.Form("txt_mensagem")'Agora vamos criar o objeto Cdonts e enviar a mensagemSet msg = Server.CreateObject("CDONTS.NewMail") msg.From = "eduardoveloso@bol.com.br" msg.To = "eduardoveloso@bol.com.br"msg.Subject = nometexto = "O usuário "&nome&" lhe envio a mensagem abaixo:"texto = texto & mensagem & email & telefone & empresa & profissao & endereco & numero & complemento & cep & bairro & cidade & estadomsg.Body = textomsg.SendSet msg = Nothing'Avisamos ao usuário que sua mensagem foi enviada corretamente.Response.redirect "http://www.sitedaempresa.com.br/obrigado.htm"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

sheridan    0

sheridan
Postado

oi cara,tem um post de alguns dias atrás sobre uma pg na web com dicas sobre como montar e-mails com CDONTS. dê uma procurada pois eu tmb não manjo muito.para fazer o que você precisa, por exemplo, eu monto da seguinte maneira'você coloca a formatação do seu email dentro destas linhas HTML = HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL HTML = HTML & "<html><body><font face=verdana size=2 color=""#333366"">"HTML = HTML & "<div align=""center""><img src=barra_mail.gif></div>"HTML = HTML & "<hr>"HTML = HTML & "<br><br><b>Caro Sr(a) :</b> "&nome&" "HTML = HTML & "<br><b>Empresa :</b> "&empresa&" "HTML = HTML & "<br><b>Cargo / Setor :</b> "&cargosetor&" "HTML = HTML & "<br>"HTML = HTML & "<br>"HTML = HTML & "<br><b>"&mensagem&"</b>"HTML = HTML & "<br>"HTML = HTML & "<br>"HTML = HTML & "<img src="&imagem_1&"><br><b>"&RS("imagem_1")&"</b><br></div>"HTML = HTML & "<img src="&imagem_2&"><br><b>"&RS("imagem_2")&"<br></b></div>"HTML = HTML & "<img src="&imagem_3&"><br><b>"&RS("imagem_3")&"<br></b></div>"HTML = HTML & "<br><b>Seu Contato Climafrio :</b> "&vendedor&""HTML = HTML & "<br><b>Telefone :</b> "&telefone&" "HTML = HTML & "<br><b>E-Mail :</b> "&email_vend&""HTML = HTML & "<br>"HTML = HTML & "</font><br>"HTML = HTML & "<br><font face=verdana size=1 color=""#333366"">Esta mensagem é enviada com a complacência da nova legislação sobre correio eletrônico, Seção 301, Parágrafo (a) (2) © Decreto S. 1618, Título Terceiro aprovado pelo ' 105º Congresso Base das Normativas Internacionais sobre o SPAM.'<br>" & _"Caso não deseje receber mais e-mail deste genero, responda este e-mail com o assunto <b>REMOVER</b> "HTML = HTML & "<hr>"HTML = HTML & "</font></body></html>"Dim myMail Set myMail = CreateObject("CDONTS.NewMail") 'para anexar figuras (você pode usar mappath)myMail.AttachURL "e:\techdesigners\webpages\climafrio\imgprogram\barra_mail.gif", "barra_mail.gif" myMail.AttachURL "e:\techdesigners\webpages\climafrio\sac\img\produtos\"&imagem_1&"", ""&imagem_1&""myMail.AttachURL "e:\techdesigners\webpages\climafrio\sac\img\produtos\"&imagem_2&"", ""&imagem_2&""myMail.AttachURL "e:\techdesigners\webpages\climafrio\sac\img\produtos\"&imagem_3&"", ""&imagem_3&""'envio do e-mailmyMail.From = email_remmyMail.To = emailmyMail.Subject = assuntomyMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML ' Corpo da mensagem definido na variável HTML myMail.Send Set myMail = Nothingespero que este exemplo te ajude!!!!valeu

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