Visual Basic - Analista de Sistemas

Alguien sabe de algun Controlador ocx que sirva para crear una aplicacion en VB6.0 que envie correos , tomando de una base de datos la cuenta de E-mail.
Es decir enviar correos en Gran Volumen ... (500 email aproximadamente)
o algun consejo para diseñar el programa

Mediante el control MAPIMessage y MAPISession podras enviar todos los correos que te venga en gana, en el número de sesiones que quieras.

Suerte

anexo te envio codigo analizalo y aplicalo segun tus necesidades.Sub EnviarCorreo()

Dim Detalle As Recordset

Set Detalle = DDetalle.Recordset

Detalle.MoveFirst

CR1.SelectionFormula = "{plan.plan}='" & TxtPlan.Text & "'"
On Error GoTo Reporte_Err
CR1.Formulas(0) = "Username = ' " & Username & "'"
CR1.WindowTitle = "Impresión de inicio de promoción: " & TxtPlan & " de " & TxtCliente
CR1.Destination = crptToFile
CR1.PrintFileName = "c:\plan\plan.html"
CR1.WindowMaxButton = True
CR1.Action = 1

Do While Not Detalle.EOF
If Detalle.Fields("sucursal") <> "" Then

'Envio del Plan a las sucursales indicadas en el Dbgrid1
CorreoSesion.Username = Username
CorreoSesion.NewSession = True
CorreoSesion.DownLoadMail = False
CorreoSesion.SignOn
CorreoMensajes.SessionID = CorreoSesion.SessionID

CorreoMensajes.MsgIndex = -1
CorreoMensajes.RecipDisplayName = Detalle.Fields("sucursal")
CorreoMensajes.ResolveName



On Error GoTo Envio_Mail_Err

CorreoMensajes.MsgSubject = "Inicio de Plan, promoción: "