Ir para conteúdo

POWERED BY:

Arquivado

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

Rafael Velloso

[Resolvido] aspmail, email em massa

Por , em ASP Clássico

Recommended Posts

Rafael Velloso    0

Rafael Velloso
Postado

Pessoal,

 

Por favor, estou tentando fazer um script que mande email em massa, mas não estou conseguindo, ele não gera erro, porem não chega a ninguem.

Se alguem puder me ajudar agradeço. Ja olhei alguns posts aqui no forum não obtive a resolução pois se tratava de outro componente...

 

sqlp = "select email from xxx where exibe = -2" 
Set ObjRSP = ObjConn.Execute(sqlp)	  


While Not ObjRSP.EOF
				   Set Mail = Server.CreateObject("Persits.MailSender")
				   Mail.Host = "localhost" 					

					Mail.From = email											
					Mail.MailFrom = email					
					Mail.FromName = nome
					Mail.IsHTML = True 						
					Mail.AddAddress	objrsp("email")															
					Mail.Subject = "xxxxxxx"					
					'Corpo da mensagem
					Mail.Body = "<html><body>" &_		
								"<table style='border:1px solid;' width='400px' align='center'><tr><td> </td><td> </td><td> </td></tr>"&_
								"<tr><td> </td><td><img src='xxxx' border='0' /></td><td> </td></tr>"&_
								"<tr><td> </td><td>"&_
								  "<font face=arial size=2>"&_
								  "Olá, segue abaixo os dados de um contato online:<br><br>"&_	
								   "<b>Dados pessoais</b><br><hr><br><br>"&_								  
								  "<b>Nome</b>: "&nome&"<br>"&_												  
								  "<b>E-mail</b>: "&email&"<br>"&_							
								  "<b>Local de preferência</b>: "&local&"<br>"&_							
								  "<b>Observações</b>: " & texto & "<br>"&_
								  "</font>"&_
								  "</td><td> </td></tr>"&_
								  "<tr><td> </td><td> </td><td> </td></tr></table>"&_
								  "</body></html>"

					On Error Resume Next
					Mail.Send
					'If Err <> 0 then
					''	Response.Write "Error Encountered: " & Err.Description
					'Else%>

					<%	
						Set Mail = Nothing	
					'end if

			   ObjRSP.MoveNext

			   Wend%>
					<script>alert("Sua mensagem foi enviada com sucesso!")</script>	
				<%end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este link

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rafael Velloso    0

Rafael Velloso
Postado

Xamburzum,

 

Obrigado pela indicação. A única diferença que vi foi que na estrutura de loop, ele seta uma variavel intermediária nomeada varTo, adicionando o email.

Mudei minha estrutura para esse tipo, porem não funciona, será uma limitação do aspmail, ou erro na implementação? Posto abaixo como ficou o código.

Abraços. O script não gera erro algum, mas também não envia nada. Se alguem puder ajudar.

 

sqlp = "select email from pousadas where exibe = -2" 
				Set ObjRSP = ObjConn.Execute(sqlp)        


			While Not ObjRSP.EOF
                                          Set Mail = Server.CreateObject("Persits.MailSender")
                                          Mail.Host = "localhost"                                      
                                               varTo = objrsp("email")                                                                                                                 
                                               Mail.From = email                                                                                       
                                               Mail.MailFrom = email                                   
                                               Mail.FromName = nome
                                               Mail.IsHTML = True                                              
                                               Mail.AddAddress varTo
                                               Mail.Subject = "Teste de mailing"                                        
                                               'Corpo da mensagem
                                               Mail.Body = "<html><body>" &_           
                                                                       "<table style='border:1px solid;' width='400px' align='center'><tr><td> </td><td> </td><td> </td></tr>"&_
                                                                       "<tr><td> </td><td><img src='xxxx' border='0' /></td><td> </td></tr>"&_
                                                                       "<tr><td> </td><td>"&_
                                                                         "<font face=arial size=2>"&_
                                                                         "Olá, segue abaixo os dados de um contato online:<br><br>"&_  
                                                                          "<b>Dados pessoais</b><br><hr><br><br>"&_                                                              
                                                                         "<b>Nome</b>: "&nome&"<br>"&_                                                                                           
                                                                         "<b>E-mail</b>: "&email&"<br>"&_                                                      
                                                                         "<b>Local de preferência</b>: "&local&"<br>"&_                                                        
                                                                         "<b>Observações</b>: " & texto & "<br>"&_
                                                                         "</font>"&_
                                                                         "</td><td> </td></tr>"&_
                                                                         "<tr><td> </td><td> </td><td> </td></tr></table>"&_
                                                                         "</body></html>"

                                               On Error Resume Next
                                               Mail.Send
                                               'If Err <> 0 then
                                               ''      Response.Write "Error Encountered: " & Err.Description
                                               'Else%>

                                               <%      
                                                       Set Mail = Nothing      
                                               'end if

               ObjRSP.MoveNext

                Wend%>
                                               <script>alert("Sua mensagem foi enviada com sucesso!")</script> 
                                       <%end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum numero de erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rafael Velloso    0

Rafael Velloso
Postado

Srs.,

 

Agradeço a atenção como de sempre nesse forum.

Mas o erro era, atenção a galera que usa a Locaweb:

 

Mail.From

"Configura o e-mail do remetente da mensagem que OBRIGATORIAMENTE deve ser um e-mail do seu próprio domínio"

 

Ou seja no Mail.From, nunca poderá ser request("email") >> Isso na Locaweb...

Funfou legal o código acima postado perfeitamente para Aspmail, apenas alterando essa propriedade.

 

Sds.

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