Consulta a tabela e envio por email

[lmaximo 0]

Galera,

 

Preciso fazer uma pesquisa numa tabela SQL de tempos em tempos (se possível a cada novo input) e enviar o resultado por email. Alguém sabe como posso fazer isso?

Já consegui fazer a pesquisa SQL com o seguinte script, mas não sei como salvar o resultado e enviá-lo por email.

 

SELECT [event_id],[timestamp], [originator], [ip_addr], [remark] FROM audit_trail WHERE event_id IN ( 901,903,910,911,912,913,915,916,917,918,1001,1003,1014,1019,1101,1102,1103) AND [timestamp] < '"&sdate&"'
ORDER BY [timestamp] DESC

"

 

Alguém pode me ajudar?

[Claudio Neto 3]

Olha só, não sei trabalhar com e-mail diretamente pelo VB.

 

Mas conheço uma ocx que pode te ajudar.

 

Há um programa de um cara que freqüentava muito aqui o fórum antes (Graymalkin), que tem o código aberto, e você pode encontrá-lo em sites de download.

 

O programa funciona muito bem, eu mesmo já baixei, fiz diversas alterações e me serviu para o eu precisava.

 

Procure no baixaki por py.sendmail ou clique aqui.

 

Boa sorte.