Envio de newsletter

DackAle · Agosto 30, 2006

To aqui só para dar os parabéns para o Ratu, muito bom o sistema, testei aqui e funcionou beleza e estou mandando 44000 emails Imagem Postada

Vamos ver Imagem Postada

Só uma dúvida que lembrei agora, se eu quiser parar e continuar no outro dia, posso setar no contador (formulario) o número que parei e dar continuidade aos envios ?

Por exemplo, estou enviando mas vou tr que reiniciar o PC, estou no 4000, reinicio, quando for mandar, seto como 4000 o contador do Hidden e vai beleza ?

Abraços e valeu Imagem Postada

OBS: Quando estiver com tempo vou ver se melhoro esse script mais ainda e posto aqui com outras funções Imagem Postada

Ratu · Agosto 30, 2006

que bom que você gostou cara ! vlw ! e qt a sua duvida, dah sim cara... normal ! você seta a pagina que você quiser e jah era !

kaplan · Agosto 30, 2006

PAGINAMAE.asp

--------------------------------------

____________

IFRAME codigo

codigo.asp

______________

_______________

IFRAME formulario

formulario.asp

_______________

entao este codigo que você passou tera que estar na pagina de formulario e tb na pagina de codigo???

igualzinho??

Imagem Postada

Ratu · Agosto 31, 2006

Entaum cara, eu passei o código ! naum passei o forumlario... mas isso eh sub-entendido, pelos requests que faço...bele !

Davidmg · Setembro 20, 2006

No meu deu o seguinte erro:

ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. /admin/malafestas1.asp, line 38

Linha 38 é:

RS.absolutepage = pagina

O que pode ser?

Croft · Novembro 3, 2006

Tem como enviar um arquivo swf no email ?Quando a pessoa abrir o email o swf começar a rolar ?Obrigado

Davidmg · Novembro 3, 2006

Comigo nao quis funfar nao, fica dando erro.

Ratu · Novembro 6, 2006

Se voce for mandar um SWF tem que fazer como as imagens, mande a url, hospede no seu servidor normalmente... mas será que algum email naum bloqueia isso? bom eu naum sei, se você quiser mandar como um anexo via componente, veja como mandar com o seu componente...

Croft · Novembro 6, 2006

Eu testei de várias formas, não consegui fazer com o swf, mandei pro servidor, coloquei o link asoluto no e-mail e nada. Mas por enquanto não preciso mais disso, fiz por imagem mesmo, mas se alguém descobrir posta ae, nunca é demais conhecimento, rsseu eudescobrir algo posto pra galera tb.Vlw

Davidmg · Novembro 6, 2006

No meu deu o seguinte erro:

ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. /admin/malafestas1.asp, line 38

Linha 38 é:

RS.absolutepage = pagina

O que pode ser?

Meu banco de dados é MySQL, será que tem que mudar algo?}

Mário Monteiro · Novembro 6, 2006

sim tema paginação é feita via SQL usando LIMIT e nao usando propriedades do objeto recordset

Ratu · Novembro 7, 2006

Com certeza seu problema eh exatamente este! Eu uso MS SQL Server...

kaplan · Janeiro 23, 2007

uma outra pergunta ouvi dizer que eu so posso enviar 200 emails de uma so vez por hora, exemploeu envio 200 emails com o dominio @tsarri.com, ae eu tenho q esperar mais uma hora para enviar + 100, senao o anti-spam vai bloquear meus emails é verdade isto?? :thumbsup:

Salgado · Janeiro 27, 2007

Essa limitação depende de seu servidor, entre em contato com ele e se informe.

rafa-riva · Fevereiro 26, 2007

error '80040211'

/adm/envia.asp, line 33

que é: objCDOSYSMail.Send

ele envia normal com textos pequenos, mas quando tento enviar um texto html grande, ele da esse erro..

o que pode estar acontecendo? caso queiram fazer um texte, o endereco para o script eh esse

no campo da mensagem, coloquem o codigo html abaixo e no destino, o seu email, para que você receba, caso consiga enviar...

<html><table width="519" border="0" cellpadding="0" cellspacing="0">  <tr>	<td colspan="3"><img border="0" src="http://img233.imageshack.us/img233/5806/topowl4.png" width="532" height="134"></td>  </tr>  <tr>	<td width="168" height="1000" align="left" valign="top" bgcolor="#EEEEEE"><table width="100%" border="0" cellspacing="0" cellpadding="0">	  <tr>		<td height="12" align="left" valign="top" bgcolor="#CCCCCC"><font color="#003366" size="1" face="Verdana"><strong>»Motivacional</strong></font></td>	  </tr>	  <tr>		<td height="77" align="left" valign="top"><font color="#003366" size="1" face="Verdana">»"Sei que estarei		  derrotado se encontrar um ser humano de quem me sinta incapaz de aprender		  alguma coisa".<br>		  <em>G. H. Palmer</em></font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" face="Verdana" size="1"><b><font face="Verdana" size="1" color="#003366"></font>»Agenda de Palestras</b></font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»12/02 Siderópolis		  SC</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»14/02 Itapeva		  SP</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»07/03 Blumenau		  SC</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»07/03 Joinville		  SC</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»19/03 P. Alegre RS</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»27/04 Santiago		  RS</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»27/04 São		  Paulo SP</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana">»16/06 P. Alegre		  RS</font></td>	  </tr>	  <tr>		<td height="55" align="left" valign="top"><font size="1" face="Verdana" color="#003366">»Para			contratar palestra entre em contato: <br>		</font><b><font size="1" face="Verdana" color="#FF6600">47 3222-1437 </font></b><font size="1" face="Verdana" color="#003366">ou <a href="http://www.marciokuhne.com.br/index2_contato.htm"><font color="#003366" size="1" face="Verdana"><b>Clique		aqui</b></font></a></font></td>	  </tr>	  <tr>		<td height="257" align="left" valign="top"><b><font color="#003366" size="1" face="Verdana">»Os livros<br>		  <img border="0" src="http://img295.imageshack.us/img295/7053/livroscv2.png" width="120" height="126"> <br>		  </font></b><font color="#003366" size="1" face="Verdana">»Em Busca da Autoconfiança<br>»		  O Futuro não é o que se Teme, o Futuro é o que		  se Ousa<br>		  <strong><br>» 		  Onde comprar </strong><br>» Livraria Cultura<br>» Livraria Siciliano<br>» Livraria Saraiva</font></td>	  </tr>	  <tr>		<td align="left" valign="top"><font color="#003366" size="1" face="Verdana"><strong>»Depoimentos </strong></font><font face="Verdana"><p><font color="#003366" size="1">»"Levo comigo lições e experiências			  que irão transformar minha vida pessoal e profissional para			  sempre". <br>			  <em>Severino Sothe, Cia Hering</em></font></p>			<p><font color="#003366" size="1">»"A coragem e a elevação da auto-estima			  passadas a mim não tem preço... O ser humano precisa			  de suporte para alcançar a plenitude".<br>			  <em>Daniel Inocêncio, Estudante</em></font></p>			<p><font color="#003366" size="1">»"Revigorou e testou o nosso poder de motivar o próximo.			  Sintético e abrangente, além de divertido, é claro!".<br>			  <em>Juliana Cardoso, Karsten S.A.</em></font></p>			<p><font color="#003366" size="1">»"O Marcio é uma pessoa maravilhosa, ele realmente			  toca a alma das pessoas".<br>			  <em>Janaina Lindner, MLG Passatto</em></font></p>		</font></td>	  </tr>	  <tr>		<td align="left" valign="top"> </td>	  </tr>	</table></td>	<td width="12"> </td>	<td width="352"><font color="#003366" size="1" face="Verdana"><b>»</b><b>Mensagem		  da semana</b> </font><font color="#003366"><font size="1" face="Verdana"> - </font></font><font color="#999999" size="1" face="Verdana">  </font><font color="#FF6600" size="1" face="Verdana"> Mais		  de 16.000 assinantes<br>  </font><font color="#003366" size="1" face="Verdana"><b>O que você responderia?</b><br>  <br>Uma empresa estava contratando novos funcionários. Uma das etapas para a seleçãoenvolvia responder a seguinte questão por escrito:<br>"Você está dirigindo seu carro numa perigosa noite de tempestade. Você passapor um ponto de ônibus e vê três pessoas aguardando o ônibus:<br>- Uma senhora idosa que parece estar à beira da morte; <br>- Um médico que salvou sua vida no passado; <br>- A pessoa amada que habita os seus sonhos.<br>Você só pode levar um no seu carro. Qual você escolhe? Por favor justifique suaresposta".<br>Se a questão acima fosse dirigida a você, como você a responderia? Volte à perguntanovamente, pense e tente responder qual pessoa você levaria no seu carro antesde prosseguir a leitura. Este é um tipo de teste de personalidade. Cada respostatem sua razão de ser.<br>Você poderia pegar a senhora idosa que estava para morrer. Ficaria com a consciênciatranqüila. Ou você pegaria o médico, porque ele salvou sua vida no passado. Estaseria a chance perfeita para retribuir. No entanto, você ainda poderia saldaressa dívida em uma outra ocasião, mas talvez nunca mais teria a chance de conquistaro amor de sua vida se deixasse a pessoa amada para trás. O candidato que respondeumelhor e foi <br>contratado ao final não precisou nem explicar sua resposta. O que ele disse?<br>Ele simplesmente respondeu: "Daria a chave do carro para o médico. Deixariaele levar a velha senhora para o hospital e ficaria esperando pelo ônibus coma pessoa amada".<br>Conclusão: Às vezes ganharíamos muito mais se estivéssemos dispostos a abrirmão de nossas teimosas limitações.<br>  <b><br>»Cursos</b></font><br><img border="0" src="http://img227.imageshack.us/img227/3668/setaox0.gif" width="12" height="12"> <font color="#003366" size="1" face="Verdana"><strong>RelaçõesHumanas:  A Arte do Sucesso nos Relacionamentos<br><br></strong></font><font face="Verdana" size="1"><b><font color="#003366">Data: </font><font color="#FF6600"> 26,27 e 28 de fevereiro </font></b><font color="#003366"> <br><b>Horário:</b> 19:00h às 22:00h<br><b>Local:</b> ACIB - Rua Ingo Hering, 20 - 8 andar  <br><b>Neumarkt</b> Financial Center - Blumenau - SC<br><b>Investimento: </b>até dia 20/02 R$ 95,00 - Após R$ 115,00<br><b>Desconto</b> especial para grupos - consulte</font><br><br><font color="#003366"><b>Benefícios deste Curso:</b></font><font size="1" face="Verdana"><br>»</font><font color="#003366" size="1" face="Verdana">Desenvolver autoconfiança<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Identificare controlar o estresse<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Habilidadede falar em público<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Liderarequipes <br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Motivaçãopessoal e coletiva<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Aprimorarrelações humanas<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Vendase atendimento ao cliente<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Aumentaro nível de entusiasmo<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Vivercom mais felicidade<br></font><font size="1" face="Verdana">»</font><font color="#003366" size="1" face="Verdana">Darinteligência as emoções<br><br></font><font size="1" face="Verdana"><font color="#003366"><b>»</b></font> <font color="#003366"><b>Garantasua vaga! Inscrições:</b> </font><b><font color="#FF6600">47</font></b><font color="#FF6600"> <b>3222-1437<br><font size="1" face="Verdana" color="#003366">»</font></b><font color="#003366" size="1" face="Verdana"><b>OPalestrante</b></font><b><br></b></font><font size="1" face="Verdana"><b><font color="#003366">Marcio Kühne</font></b><font color="#003366"> é umprofundo conhecedor do comportamento humano. Palestrante nacional, consultororganizacional, escritor e especialista em gestão comportamental. Há dezesseisanos, como consultor independente, dedica-se à pesquisa da gestão de pessoas,especialmente em temas ligados a relacionamento, melhoria da qualidade, contextualizaçãoem relação ao cenário global e desenvolvimento do capital humano. Convidado comoconferencista e consultor por empresários, educadores, líderes políticos, psicólogose acadêmicos. Autor dos livros "Em Busca da Autoconfiança - Estrutura Emocionalde Aço" e "O Futuro não é o que se teme, o Futuro é o que se ousa" (Mencionadoem maio de 2001 no Congresso Nacional). <br><br>Desde a estréia como palestrante em 1.991, Marcio Kühne já foi assistido pormais de 540 mil pessoas. Foram mais de mil apresentações em mais de 60 cidadesem todo país. Juntos, seus livros já venderam mais de 50 mil exemplares. "EmBusca da Autoconfiança - Estrutura Emocional de Aço" está na oitava ediçãoe "O Futuro não é o que se teme, o Futuro é o que se ousa" publicadoposteriormente, está na terceira edição. Já foram elogiados por ilustres empresáriose celebridades como a apresentadora Ana Maria Braga, Rolim Adolfo Amaro, o fundadorda TAM, o cantor e compositor Fagner e Wander Weege o presidente da Malwee Malhas,que adquiriu 140 exemplares para distribuir entre seus executivos. </font></font><font color="#FF6600"><b><br><br><font size="1" face="Verdana" color="#003366">» </font></b><font color="#003366" size="1" face="Verdana"><b>Visiteo site:</b> </font><b><font size="1" face="Verdana" color="#FF6600">www.marciokuhne.com.br</font> </b></font></font></font><font face="Verdana" size="1" color="#FFFFFF">.</font></td>  </tr>  <tr valign="bottom" bgcolor="#FFFFFF">	<td height="99" colspan="3" align="left"><div align="center"><font face="Verdana" size="1" color="#003366">Kühne		  Treinamentos Ltda <br>		47 3222-1437 <a href="mailto:marcio@marciokuhne.com.br"><br>  marcio@marciokuhne.com.br</a> - <a href="http://www.marciokuhne.com.br">www.marciokuhne.com.br</a>  </font>	  </div>	  <p align="center"> <font color="#C0C0C0" size="1" face="Verdana">© 2007		  Marcio Kühne</font><font size="1" face="Verdana" color="#FFFFFF">.</font><font size="1" face="Verdana">Caso		  seja de seu interesse interromper o recebimento, envie resposta em	branco com o assunto REMOVER. Nós respeitamos a sua privacidade.</font></td>  </tr></table></html>

o script do envio é

<%html = request.Form("html")email = request.form("email")corpo = "<STYLE>BODY {MARGIN-TOP: 0px; MARGIN-LEFT: 0px;}</STYLE>" & html'cria o objeto para o envio de e-mailSet objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTPSet objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"'porta do SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDOobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'timeoutobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30objCDOSYSCon.Fields.update'atualiza a configuração do CDOSYS para o envio do e-mailSet objCDOSYSMail.Configuration = objCDOSYSCon'e-mail do remetenteobjCDOSYSMail.From = "marcio@marciokuhne.com.br"'e-mail do destinatárioobjCDOSYSMail.To = email'assunto da mensagemobjCDOSYSMail.Subject = "Contato pelo Site"'conteúdo da mensagemobjCDOSYSMail.HtmlBody = html'objCDOSYSMail.TextBody = corpo'para envio da mensagem no formato html altere o TextBody para HtmlBody'objCDOSYSMail.HtmlBody = strBody'envia o e-mailobjCDOSYSMail.Send'destrói os objetosSet objCDOSYSMail = NothingSet objCDOSYSCon = Nothingresponse.write ("<font color='#FF0000'><h3>'E-mail enviado com sucesso!'</h3></font>" )'		response.write "<font face=Tahoma><strong>Enviado com sucesso, obrigado!</strong></font>"'	else'		response.write "<font face=Tahoma><strong>Falha no envio, tente novamente!</strong></font>"'	end ifresponse.write "<br><br><br>" & html%>

Se alguem puder me ajudar, eu agradeço, preciso muito disso....

obrigado, rafael

Ratu · Fevereiro 27, 2007

Cara...em casos de desespero tente de outro jeito, parece que o problema esta só na hora de enviar o email, tente com outro componente!

rafa-riva · Março 5, 2007

Cara...em casos de desespero tente de outro jeito, parece que o problema esta só na hora de enviar o email, tente com outro componente!

o problema é que este server do terra so tem esse componente...:/obrigado mesmo assimRafael

NewUser · Março 22, 2007

Aqui está o erro:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "servidor"-------error------

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Coloque isso e pronto:

With objCDOSYSCon

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Ratu · Março 27, 2007

Coloque localhost que tb vai Imagem Postada

NewUser · Março 30, 2007

Boa não sabia!

Arquivado

Envio de newsletter

Recommended Posts

DackAle 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kaplan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Croft 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Croft 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Davidmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kaplan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

rafa-riva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

rafa-riva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

NewUser 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

NewUser 0