Ir para conteúdo

POWERED BY:

Arquivado

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

guilhermezd

Envio de Newsletter

Por , em ASP Clássico

Recommended Posts

silas_i    0

silas_i
Postado

você tem que ter um sistema de envio, como se fosse um formulário de contato, você pode usar o CDONTS, ASPEMAIL, DUNDAS MAILER para isso.. de uma verificada nas documentações desses componentes.AbraçoSilas

Compartilhar este post

Link para o post
Compartilhar em outros sites

guilhermezd    0

guilhermezd
Postado

você tem que ter um sistema de envio, como se fosse um formulário de contato, você pode usar o CDONTS, ASPEMAIL, DUNDAS MAILER para isso.. de uma verificada nas documentações desses componentes.

 

Abraço

 

Silas

Primeiramente valeu por me ajudar...

 

O sistema que estou fazendo e o seguinte:

 

a pessoa ao clicar sobre o link "Envie uma newsletter" irá para um formulario:

 

Seu Nome

Seu Email

 

Nome do amigo

Email do amigo

 

Ao enviar fiz por Simplemail

 

Daí o único jeito que consegui + ou - é inserir o html linha a linha

 

exe:

<%

dim amigo,news

amigo = request.form("email1")

nome1 = request.form("nome1")

nome = request.form("nome")

 

response.buffer="true"

 

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

 

 

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

o.Sender = amigo

o.Recipient = "nome@dominio.com.br"

o.Subject = "OPT-IN"

o.messagetext = "Olá" + " " + nome1 + " "+ "Seu amigo" + " " + nome + " " + "Indicou esta newsletter pra você" + vbCrLf + "" &_

<html> + vbCrLf + "" &_

<body> + vbCrLf + "" &_

...

 

 

call o.Send

Set o = Nothing

response.redirect "obrigado.asp"

 

%>

 

Se eu for colocar linha a linha como está o demarcado em vermelho a news não será viável pois cada news que eu quizer enviar terá que escrevelá dessa forma que levará muito tempo.

 

Será que tem como atribuir a pág. da news (html) a uma variável e mandar somente a var? exe:

 

varnews = "http://www.dominio.com.br/news

....

....

varnews +vbCrLf + ""

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

Veja se isto ajuda:

 

 

ASP [/tr][tr]MyBody2 = ""

MyBody2 = MyBody2 &  "<html><body>"

MyBody2 = MyBody2 &  "<p><font color=""#000066"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"

MyBody2 = MyBody2 &  "Prezado(a) " & amigo & ",<BR>"

.......

MyBody2 = MyBody2 &  "</font></p>"

MyBody2 = MyBody2 &  "</body></html>"

 

o.Body = MyBody2 'ou o.messagetext = MyBody2

[/tr]

 

 

PS verifique se seu .BodyFormat = 0 está para texto ou html.

 

 

[]´s Raul

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