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

Pergunta
-
<%
set cn = Server.CreateObject("ADODB.Connection")
cn.provider= "Microsoft.Jet.OLEDB.4.0"
cn.connectionstring=Server.MapPath("banco.mdb")
cn.openSQL = "Select * from tbEmails01 where Emails"
set rs = cn.execute(sql)Destinatarios = rs("Emails")
v_de = "meu nome<meuemail@meusite.com>"
v_para = Destinatarios
v_respondepara = "Nome da pessoa<meuemail@meusite.com>"
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.updateSet 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.updateobjCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write "E-mail enviado para "&v_para&" ..."%>
Todas as Respostas
-
Oi !
Este select
Code SnippetSQL = "Select * from tbEmails01 where Emails"Não parece certo. Explique melhro o problema que está tendo.
Talvez sua intenção fosse
Code SnippetSQL = "Select * from tbEmails01 where not Emails is null"ou ainda
Code SnippetSQL = "Select * from tbEmails01 where Emails<>''"
[]'s
-
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,
-
quero saber se nesta função:
SQL = "Select * from endmails where Emails<>''"
set rs = cn.execute(sql)Destinatarios = rs("Emails")
v_para = Destinatariosonde posso enviar para a todos os emails do banco de dados usando esta função?
Campo Emailsemail1@servidor1.com.br ' só envia para o primeiro email
-