Ir para conteúdo

POWERED BY:

Arquivado

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

Rafael Velloso

Envio de email em massa ASP

Por , em ASP Clássico

Recommended Posts

Rafael Velloso    0

Rafael Velloso
Postado

Srs.,

 

Ontem fiz um código aleatório da minha cabeça, para envio de email em massa, e deu um M danada. Foram enviados mais de 2k de email no servidor.

Gostaria que me ajudassem no que errei ou no que posso melhorar, abraços, segue abaixo:

 



nome=request("nome")
email=request("email")
texto=request("texto")	
pousada = request("pousada_preferencia")	
local = request("local_preferencia")


sql1="select email from pousadas where exibe=-1 and destaque=-1 order by nome"
Set ObjRS1 = ObjConn.Execute(sql1)	 
			 
			 if not ObjRS1.eof then
			 
			 	do while not ObjRS1.eof				
					
				
					Set Mail = Server.CreateObject("Persits.MailSender")
		
				
					Mail.Host = "localhost" 									
					Mail.From = email									
					Mail.MailFrom = email					
					Remetente
					Mail.FromName = nome
					Mail.IsHTML = True 										
					Mail.AddAddress xxx
					Mail.AddAddress ObjRS1("email")
					Mail.AddBCC xxx				
					Mail.Subject = "xxx"					
					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='xxx.jpg' border='0' /></td><td> </td></tr>"&_
								"<tr><td> </td><td>"&_
								  "<font face=arial size=2>"&_
								  "Olá, segue abaixo os dados de uma consulta feita online:<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										
					Set Mail = Nothing
				
				loop
				
			 
			 end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

opa...

 

segue ai...

 

link

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