Ir para conteúdo

POWERED BY:

Arquivado

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

mows

[Resolvido] Newsletter - Enviar um email por vez

Por , em ASP Clássico

Recommended Posts

mows    0

mows
Postado

Boa tarde pessoal, estou fazendo um sisteminha de envio de newsletter, porém gostaria de enviar um email por vez.

A minha base de dados contém 1500 emails, então seria meio problemático enviá-los todos de uma só vez.

Pensei que usando while not ele daria certo, porém não estou conseguindo, abaixo meu código:

 

CODE
Set RsCategoriasEmail = Server.CreateObject("ADODB.RecordSet")

StrSql = " SELECT categoria, tipo, email, status " & _

" FROM Newsletter_Categorias " & _

" WHERE categoria = "&Request("cboCategorias")&" "

Set RsCategoriasEmail = ConSql.Execute(StrSql)

 

Set RsLogNewsletter = Server.CreateObject("ADODB.RecordSet")

StrSql = " INSERT INTO LogNewsletter " & _

" (categoria, dtaoperacao)" & _

" values ('"&Request("cboCategorias")&"', "&VDataHora(date())&") "

Set RsLogNewsletter = ConSql.Execute(StrSql)

 

strHTML = Request.Form("Msg")

 

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "www.host.com.br"

Mail.FromName = "name"

Mail.Username = "user"

Mail.Password = "pass"

Mail.From = " "&RsCategoriasEmail("email")&" "

 

Set RsEmails = Server.CreateObject("ADODB.RecordSet")

StrSql = "SELECT email " & _

" FROM newsletter_teste " & _

" WHERE categoria = "&Request("cboCategorias")&" "

Set RsEmails = ConSql.Execute(strSql)

 

 

 

if not RsEmails.EOF then

total = 0

while not RsEmails.EOF

'Mail.AddBCC RsEmails("email")

Mail.AddAddress RsEmails("email")

total = total + 1

RsEmails.MoveNext

wend

end if

 

 

Mail.Subject = Request("txtAssunto")

 

Mail.IsHTML = True

Mail.Body = "<HTML><BODY>"& strHTML &"</BODY></HTML>"

 

Alguém poderia me ajudar?!

 

Obrigado.

 

[]s

Compartilhar este post

Link para o post
Compartilhar em outros sites

mows    0

mows
Postado

Resolvido:

 

Set RsEmails = Server.CreateObject("ADODB.RecordSet")
				StrSql = "SELECT email " & _
						" FROM newsletter " & _
						" WHERE categoria = "&Request("cboCategorias")&" "
			Set RsEmails = ConSql.Execute(strSql)
				
			
						
			if not RsEmails.EOF then
				total = 0
				while not RsEmails.EOF
				Set Mail = Server.CreateObject("Persits.MailSender")
				
					Mail.Host = "www.host.com.br"
					Mail.FromName = "name"
					Mail.Username = "user"
					Mail.Password = "pass"
					Mail.From = " "&RsCategoriasEmail("email")&" "
					Mail.AddAddress RsEmails("email")
					Mail.Subject = Request("txtAssunto")
					Mail.IsHTML = True
					Mail.Body = "<HTML><BODY>"& strHTML &"</BODY></HTML>"
					Mail.Send
					total = total + 1
					RsEmails.MoveNext
					
				wend
			end if

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