Ir para conteúdo

Arquivado

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

Ratu

Envio de newsletter

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 !

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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?

Compartilhar este post


Link para o post
Compartilhar em outros sites

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...

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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?}

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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:

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Coloque localhost que tb vai Imagem Postada

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.