selecionar todos os emails do banco de dados para envio de mensagem

Question

<%

set cn = Server.CreateObject("ADODB.Connection")
cn.provider= "Microsoft.Jet.OLEDB.4.0"
cn.connectionstring=Server.MapPath("banco.mdb")
cn.open

SQL = "Select * from tbEmails01 where Emails"
set rs = cn.execute(sql)

Destinatarios = rs("Emails")

v_de = "meu nome<[e-mail]>"
v_para = Destinatarios
v_respondepara = "Nome da pessoa<[e-mail]>"
v_anexo = "imagem.gif"
v_anexoURL = "imagem.gif"
v_assunto = "Teste do CDOSYS"
v_corpo = "<img border=0 src=http://cncnoticias.com.br/newsletter/Folderv82.gif width=640 height=458><br>Teste do componente CDOSYS"

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = v_de
objCDOSYSMail.To = v_para
'objCDOSYSMail.ReplyTo = v_respondepara
objCDOSYSMail.AddAttachment(v_anexo)
'objCDOSYSMail.AddAttachment v_anexoURL
objCDOSYSMail.Subject = v_assunto
'objCDOSYSMail.TextBody = v_corpo
objCDOSYSMail.HtmlBody = v_corpo
'objCDOSYSMail.fields.update

objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write "E-mail enviado para "&v_para&" ..."

%>

Answer 1

Oi !

 

Este select

 

Code Snippet

SQL = "Select * from tbEmails01 where Emails"

 

 

 

Não parece certo. Explique melhro o problema que está tendo.

 

Talvez sua intenção fosse

 

Code Snippet

SQL = "Select * from tbEmails01 where not Emails is null"

 

 

ou ainda

 

Code Snippet

SQL = "Select * from tbEmails01 where Emails<>''"

 

[]'s

 

Answer 2

Adriano.

Ainda recomendo que não utilize o (*) para retornar todas as colunas da sua tabela no select, pois pode deixar sua execução mais lenta, a não ser que irá utilizar todas as colunas.

 

Sempre que puder faça seu SELECT informando os nomes das colunas, evitando assim a utilização do *.

 

Att,

Answer 3

quero saber se nesta função:

SQL = "Select * from endmails where Emails<>''"
set rs = cn.execute(sql)

 

 

Destinatarios = rs("Emails")
v_para = Destinatarios

 

onde posso enviar  para a todos os emails do banco de dados usando esta função?

Campo Emails

 

[e-mail] ' só envia para o primeiro email

 [e-mail]

 [e-mail]

Answer 4

 

Oi !

 

Após esta linha :

 

Code Snippet

set rs = cn.execute(sql)

 

 

Faça :

 

Code Snippet

Do while not rs.eof

'Aqui você envia o e-mail

rs.movenext

loop

 

 

 

 

Pronto, agora vai enviar para todos

 

[]'s