Ir para conteúdo

POWERED BY:

Arquivado

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

guilhermezd

Envio de formulário

Por , em ASP Clássico

Recommended Posts

guilhermezd    0

guilhermezd
Postado

Por Favor,

 

Alguem sabem me dizer usando o simple mail como faz para ao invés de ser enviada uma URL com o link, Abrir direto no corpo do email a pagina da newsleter.

 

exe:

 

<%@ LANGUAGE="VBSCRIPT" %>

 

 

<%

dim amigo

amigo = request.form("email1")

news = "http://www.dominio.com.br/newsletter/newsletter070704.htm"'--essa página deve ser aberta no corpo do email, não somente ser enviado o link...

 

response.buffer="true"

 

set o = Server.CreateObject("ADISCON.SimpleMail.1")

 

 

o.MailServer = "smtp.xxxx.com.br"

o.Sender = amigo

o.Recipient = "gxxuaik@cxxxxia.com.br"

'o.Recipient = "xxxx@xxxxia.com.br" amigo

o.Subject = "OPT-IN"

o.messagetext = "" + news + vbCrLf + "" &_

"--------------------------------------------------------------------------------------" + vbCrLf + ""&_

"www.xxxxx.com.br - Você está recebendo uma mensagem de indicação de uma newsletter " + vbCrLf + ""&_

"-------------------------------------------------------------------------------------- " + vbCrLf + ""&_

"Nome da pessoa que indicou = " + Request.Form("nome") + vbCrLf + ""&_

"Email da pessoa indicada = " + Request.Form("email1")

 

 

 

call o.Send

Set o = Nothing

response.redirect "obrigado.asp"

 

%>

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Você tem que montar o corpo com HTML +/- assim...o.messagetext = "<HTML>"&VBCRLFo.messagetext =o.messagetext & "<BODY>"&VBCRLFo.messagetext =o.messagetext & "CONTEUDO DO CORPO DO EMAIL"&VBCRLFo.messagetext =o.messagetext & "</BODY>"&VBCRLFo.messagetext =o.messagetext & "</HTML>"&VBCRLFTambém deve indicar através de um parâmetro do componente de envio de email(ver guia de referências do componente) que é um conteudo HTML.Espero ter ajudado ^_^

Compartilhar este post

Link para o post
Compartilhar em outros sites

guilhermezd    0

guilhermezd
Postado

Você tem que montar o corpo com HTML +/- assim...o.messagetext = "<HTML>"&VBCRLFo.messagetext =o.messagetext & "<BODY>"&VBCRLFo.messagetext =o.messagetext & "CONTEUDO DO CORPO DO EMAIL"&VBCRLFo.messagetext =o.messagetext & "</BODY>"&VBCRLFo.messagetext =o.messagetext & "</HTML>"&VBCRLFTambém deve indicar através de um parâmetro do componente de envio de email(ver guia de referências do componente) que é um conteudo HTML.Espero ter ajudado ^_^

Não entendi certamente, poderia ser mais preciso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Neste código que você postou "o" é a instância do on=bjeto de envio de email certo?!"messagetext" é uma string que você indica para ser o corpo do email certo?!Logo... na variavel "messagetext" você deve colocar o código(HTML) que seria a página que estaria "dentro" do email.

Compartilhar este post

Link para o post
Compartilhar em outros sites

guilhermezd    0

guilhermezd
Postado

Entendi mais ou menos...Como Faço para declarar o parâmetro do componente de envio de email que é um conteudo HTML.Eu devo passar a página a ser exibida linha por linha? abrindo e fechando <>exemplo:o.messagetext =o.messagetext & "<BODY>"&VBCRLFo.messagetext =o.messagetext & "<table>" &VBCRLFo.messagetext= o.messagetext & "<font size = "2">o.messagetext =o.messagetext & "<img src = "...">"&VBCRLFo.messagetext =o.messagetext & "</BODY>"&VBCRLFo.messagetext =o.messagetext & "</HTML>"&VBCRLFo.messagetext =o.messagetext & "</BODY>"&VBCRLFo.messagetext =o.messagetext & "</HTML>"&VBCRLFse você poder escreva um exemplo mais completo por favorMuito obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Entendi mais ou menos...Como Faço para declarar o parâmetro do componente de envio de email que é um conteudo HTML.Eu devo passar a página a ser exibida linha por linha? abrindo e fechando <>exemplo:o.messagetext =o.messagetext & "<BODY>"&VBCRLFo.messagetext =o.messagetext & "<table>" &VBCRLFo.messagetext= o.messagetext & "<font size = "2">o.messagetext =o.messagetext & "<img src = "...">"&VBCRLFo.messagetext =o.messagetext & "</BODY>"&VBCRLFo.messagetext =o.messagetext & "</HTML>"&VBCRLFo.messagetext =o.messagetext & "</BODY>"&VBCRLFo.messagetext =o.messagetext & "</HTML>"&VBCRLFse você poder escreva um exemplo mais completo por favorMuito obrigado.

É isso mesmo, linha por linha. (Pelo menos é o único jeito que eu conheço).Depois que você definiu todo a corpo do email nesta variável, você deve indicar (através de um parâmetro do componente) que esta variável é o corpo, além de indicar através de outro parâmetro que o conteudo e HTML.O exemplo a seguir utiliza o componente ASPMail da Persits:
 'Criando objeto de envio de email  Set mail_admin = Server.CreateObject("Persits.MailSender")    'servidor de envio  mail_cliente.Host = "smtp.xxx.com.br"    'quem esta enviando  mail_cliente.From = "contato@xxx.com.br"    'nome de quem esta enviando o email  mail_cliente.FromName = "XXX"    'email e nome para que vai o email  mail_cliente.AddAddress email_cliente, nome_cliente    'assunto do email  mail_cliente.Subject = "Agradecemos o contato"    'variável que será o corpo do email  body_cliente= "<html>" & VbCrLf  body_cliente=body_cliente& "<head>" & VbCrLf  body_cliente=body_cliente& "<title>XXX</title>" & VbCrLf  body_cliente=body_cliente& "</head>" & VbCrLf & VbCrLf  body_cliente=body_cliente& "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & VbCrLf  body_cliente=body_cliente& "<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & VbCrLf  body_cliente=body_cliente& "<tr>" & VbCrLf  body_cliente=body_cliente& "<td valign=""top"" bgcolor=""#FFFFFF""><p><font color=""#333333"" size=""3"" face=""Arial, Helvetica, sans-serif""><strong>"&nome_cliente&", <br><br>XXX agradece seu interesse em nossos serviços.</strong></font></p>" & VbCrLf  body_cliente=body_cliente& "<p><strong><font color=""#333333"" size=""3"" face=""Arial, Helvetica, sans-serif"">Em breve entraremos em contato.</font></strong></p>" & VbCrLf  body_cliente=body_cliente& "</tr>" & VbCrLf  body_cliente=body_cliente& "</table>" & VbCrLf  body_cliente=body_cliente& "</body>" & VbCrLf  body_cliente=body_cliente& "</html>" & VbCrLf    'definindo a variavel como sendo o corpo do email  mail_cliente.Body= body_cliente    'conteudo será HTML  mail_cliente.IsHTML = True    'enviar o email  mail_cliente.Send
Boa sorte! ;)

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