Resgatar Dados E Enviar Por Email,como Faço?

[betofreitasjr]

Pessoal,não sei se já tinha essa pergunta aqui no forum,se tiver foi mal!!

Como faço para pegar dados d um banco access e enviar por email individualmente para cada pessoa cadastrada?Sei q tem q abrir uma conexao e fazer consultas sql,mas to meio perdido!!

ajudem se puderem!!

Valeu!!!

[cyberalexxx]

Como desconheço o seu nivel de conhecimento, vou postar um script meu da intranet da minha empresa que faz o seguinte, pega dados de uma tabela, caso tenha email cadastrado ele envia um email usando o componente CDONTS para a pessoa anexando um arquivo padrão e depois grava as informações ref. a envio em outra tabela, da uma olhada c você entende a lógica:

<%
' --------------------------------------------------------------
' Enviauser.asp - V.1.0 - 09/08/2004
' Envia mensagens para representantes do atendente
' Script by: Cyberalexxx
' --------------------------------------------------------------
set conrep=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("/intranet/database/rep.mdb")
caminho=server.mappath("/intranet/uploads")
conrep.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
set rsrep=conrep.execute("select * from REP where atendente = '"&session("user")&"' and len(email)>0")
%> 

<%
data=now()
X=0
do while not rsrep.eof 

remetente="cobranca@empresa.com.br"
assunto="Relatório de Titulos em Aberto"
dest=rsrep.fields("email")
arquivo=caminho&"\"&rsrep.fields("codigo") + ".doc"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(arquivo)=true then
mensagem = "Segue anexo relatório de titulos em aberto." & vbcrlf _
           & "O anexo deve ser aberto com o Microsoft Word" & vbcrlf _
           & "Atenciosamente" & vbcrlf _
           &"" & vbcrlf _
           & session("user") & vbcrlf _
           & now()
fromEmail = remetente
toEmail = dest
Emailsubject = assunto
sMessage = mensagem
Email=session("user")

Set ObjMail = CreateObject("CDONTS.NewMail")
Call ObjMail.AttachFile(arquivo)
ObjMail.to = toEmail
ObjMail.from = fromEmail
ObjMail.subject = Emailsubject
ObjMail.body = mensagem 
ObjMail.send
Set eObjMail = nothing

set conmsg=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("/intranet/database/mensagens.mdb")
conmsg.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
 SQL = "INSERT INTO mensagens(Data,Atendente,Para,copia,assunto,anexo,mensagem)VALUES("
 SQL = SQL & "'" & Data & "',"
 SQL = SQL & "'" & session("user") & "',"
 SQL = SQL & "'" & toEmail & "',"
 SQL = SQL & "'" & ccEmail & "',"
 SQL = SQL & "'" & Emailsubject & "',"
 SQL = SQL & "'" & arquivo & "',"
 SQL = SQL & "'" & mensagem & "')"
set rsmsg=conmsg.execute(SQL)

X=X+1
end if

if FSO.FileExists(arquivo)=false then
response.write ("arquivo inexistente: ") & arquivo & "<br>"
end if

rsrep.MoveNext
LOOP

response.write(X)
response.write(" Mensagens enviadas com sucesso")
%>

[betofreitasjr]

Valeu pela dica cara,ajudou muito!!!