Como fazer leitura de um BD em Access e enviar um email

[Nando Leads 0]

Etou precisando de um codigo em ASP, JavaScript ou uma explicação de como enviar um email preenchido com dados de um Banco de Dados Access.

[dataset 0]

Passos:

 

Faz a conexão com o banco de dados.

Declara o teu RecordSet:

Set tabRec = Server.CreateObject("ADODB.Recordset")

Faz o SELECT na tabela desejada, se tiver relacionamento use o INNER JOIN, pois agiliza o select:

strSQL = "SELECT campo1, campo2, campo3, campo4 FROM Tabela WHERE codTab = 1"tabRec.Open strSQL, conSTR

Veja se veio algum valor no teu RecordSet, neste caso veio:

IF not tabRec.EOF THEN

Cria o objeto que enviará o email. Lembre-se que o servidor deve dar suporte para a execução do componente.

Set Mailer	 = CreateObject("CDONTS.NewMail")	Mailer.From	= tabRec("campo1")	Mailer.To	  = tabRec("campo2")	Mailer.Bcc	 = "Nando_Leads@hotmail.com"	Mailer.BodyFormat  = 0	Mailer.MailFormat  = 0	Mailer.Subject	 = tabRec("campo3")	Mailer.Body		= tabRec("campo4")	Mailer.Send	Set Mailer = Nothing

Finalizamos o IF

END IF

Destruímos os objetos que usamos pra fazer a consulta.

tabRec.CloseSet tabRec = Nothing

OBS: Igualmente para o objeto do banco.

 

Qualquer dúvida, entre em contato.

[Rodrigo1 0]

cara...0- você deve se conectar no bd atraves de um obj de conexao - <%Set oConn = Server.CreateObject("ADODB.Connection")%>1- Definir a string do access <vSql = "Select * From Tabela"%>2- Criar um recordSet<%Set Rs = Server.CreateObject("ADODB.RecordSet")%>3- Abrir a conexao(recordset) - <%Rs.Open vsql, oConn, 3, 3%>4- Coclocar os dados onde deseja no html - <input type="text" "value=<%=Rs("Nome")%>" />5- Depois criar o objeto de email...<%Set ObjMail = Server.CreateObject("Persits.MailSender")%>6- Na propriedade <%ObjMail.body%>, v c coloca a sua pagina com os dados do rs(item4)7- Depois envia... With ObjMailEmp .Host = "localhost" .MailFrom = "remetente" .AddAddress "e-mail da pessoa q recebe" .Subject = "Confirmaçao do pedido" .IsHTML = True .Body = vBodyEmp .Send End With

se ajudou é noixxx...qq coisa post aeopa...postaram no meio do meu post...hehe...se soubesse naoprecisava escrever tudo...hahahaabx

[Nando Leads 0]

Passos:

 

Faz a conexão com o banco de dados.

Declara o teu RecordSet:

Set tabRec = Server.CreateObject("ADODB.Recordset")

Faz o SELECT na tabela desejada, se tiver relacionamento use o INNER JOIN, pois agiliza o select:

strSQL = "SELECT campo1, campo2, campo3, campo4 FROM Tabela WHERE codTab = 1"tabRec.Open strSQL, conSTR

Veja se veio algum valor no teu RecordSet, neste caso veio:

IF not tabRec.EOF THEN

Cria o objeto que enviará o email. Lembre-se que o servidor deve dar suporte para a execução do componente.

Set Mailer	 = CreateObject("CDONTS.NewMail")	Mailer.From	= tabRec("campo1")	Mailer.To	  = tabRec("campo2")	Mailer.Bcc	 = "Nando_Leads@hotmail.com"	Mailer.BodyFormat  = 0	Mailer.MailFormat  = 0	Mailer.Subject	 = tabRec("campo3")	Mailer.Body		= tabRec("campo4")	Mailer.Send	Set Mailer = Nothing

Finalizamos o IF

END IF

Destruímos os objetos que usamos pra fazer a consulta.

tabRec.CloseSet tabRec = Nothing

OBS: Igualmente para o objeto do banco.

 

Qualquer dúvida, entre em contato.

 

Ajudou mesmo, ja tinha visto auguma coisa parecida mas tava achando!!!!!!

 

valeu ae joww!!!!!!!!!!!!!!!!

[Nando Leads 0]

cara...0- você deve se conectar no bd atraves de um obj de conexao - <%Set oConn = Server.CreateObject("ADODB.Connection")%>1- Definir a string do access <vSql = "Select * From Tabela"%>2- Criar um recordSet<%Set Rs = Server.CreateObject("ADODB.RecordSet")%>3- Abrir a conexao(recordset) - <%Rs.Open vsql, oConn, 3, 3%>4- Coclocar os dados onde deseja no html - <input type="text" "value=<%=Rs("Nome")%>" />5- Depois criar o objeto de email...<%Set ObjMail = Server.CreateObject("Persits.MailSender")%>6- Na propriedade <%ObjMail.body%>, v c coloca a sua pagina com os dados do rs(item4)7- Depois envia... With ObjMailEmp .Host = "localhost" .MailFrom = "remetente" .AddAddress "e-mail da pessoa q recebe" .Subject = "Confirmaçao do pedido" .IsHTML = True .Body = vBodyEmp .Send End With

se ajudou é noixxx...qq coisa post aeopa...postaram no meio do meu post...hehe...se soubesse naoprecisava escrever tudo...hahahaabx

ajudou sim cara....valeu ae pela força....flwss!!!!!