Enviar email

[ozelu]

hola quisiera hacer una consulta a ver si alguien pudiera ayudarme, tengo una base de datos en access con un campo email, me gustaria saber cual es el codigo para ir leyendo la bd mediante un recordset y enviar un mismo email a todos los contactos de la bd hasta que lea todos los registros. Gracias.

[lokoman]

Este es el CODE que tengo para enviar MAILs:

Código vb:

'EN UN MODULO
 
'Declaración de la funcion API para enviar correo electrónico
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
'PARA LLAMAR
 
Private Sub lblMail_Click()
    Dim strMail as string, strPara  as string, strCopia  as string, strAsunto  as string, strMensaje  as string
 
    strMail = "mailto:" & strPara _
        & ";?CC=" & strCopia _
        & "&Subject=" & strAsunto _
        & "&Body=" & strMensaje
 
    ShellExecute Me.hwnd, vbNullString, strMail, vbNullString, "c:\", 0
End Sub
 

Cargas las variables con los datos correspondientes, y se abre el cliente de correo que tengas instalado. En el mensaje, para bajar una linea (o ENTER) debes usar: %0A, ejemplo:

strMensaje="Hola!%0AComo estas?"

En el correo saldrá:

Hola!
Como estas?

Una vez esté todo cargado en el nuevo correo, solo tendrás que dar clic a enviar. Espero que te ayude.