Hola, lo primero que debes hacer es agregar a tu reporte los siguientes controles microsoft Mapi que es que controla las funciones de outlook express y luego agrega el siguiente codigo.
ojo todavia estoy con lo de las direcciones para que me lo traiga desded una tabla relacionada pero si lo tienes en una sola tabla te debe funcionar.... saludos.
Function EnviarCorreo()
Dim Direcciones As String
Dim Detalle As Recordset
Dim BuscarDetalle As String
Dim MySql As String
Set Detalle = DDetalle.Recordset
BuscarDetalle = Detalle.Fields("sucursal")
MySql = "select * from sucursales where " & DBGrid1.Columns(0) & "=" & BuscarDetalle
CorreoSesion.Username = Username
CorreoSesion.NewSession = True
CorreoSesion.DownLoadMail = False
CorreoSesion.SignOn
CorreoMensajes.SessionID = CorreoSesion.SessionID
Detalle.MoveFirst
DSucursales.Recordset.MoveFirst
DSucursales.RecordSource = MySql
Do While Not DSucursales.Recordset.EOF
Direcciones = DSucursales.Recordset.Fields("email") & ";" & Direcciones
DSucursales.Recordset.MoveNext
Loop
CorreoMensajes.MsgIndex = -1
CorreoMensajes.RecipDisplayName = Direcciones '& "
[email protected];"
CorreoMensajes.ResolveName
CorreoMensajes.MsgSubject = "Inicio de Plan, promoción: " & TxtPlan.Text
CorreoMensajes.MsgNoteText = "Inicio de Plan promoción: " & TxtPlan.Text & " de " & TxtCliente & "