Visual Basic - MAPI en VB6...

Hola...
Estoy desarrollando un aplicacion VB6 y necesito enviar correo a multiples usuarios, las direcciones las saco de una base de datos, y utilizo el componente mapi, para enviarlas atravez de outlook 2002.

Ahi alguna forma mas facil de hacerlo.

esto es el codigo mas o menos qu eutilizo para enviar.. el problema esta en que la variable mails, que contiene las direcciones separadas por " ; " (punto y coma)
no funciona, sale un error de destinatario desconocido o algo asi.

Me.MAPISession1.UserName = "Microsoft Outlook 2002"
Me.MAPISession1.NewSession = True
Me.MAPISession1.SignOn



With Me.MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = mails
.MsgSubject = "Reserva en sala de Video Conferencia"
.MsgNoteText = "Salas Asociadas: " & asoc & " " & "Fecha: " & txtfecha.Text & " " & "Horario: " & txtinicio.Text & " - " & txttermino.Text
.SessionID = Me.MAPISession1.SessionID
.Send
End With
Me.MAPISession1.SignOff

Elimina ".RecipDisplayName = mails "
y utiliza este procedimiento
=========================================

...
...
LlenarRecip mails ' llena los recipientes
.Send
End With
MAPISession1.SignOff

=========================================

Sub LlenarRecip(emails)
Direcciones = Split(emails, ";")
For i = 0 To UBound(Direcciones)
MAPIMessages1.RecipIndex = i 'numero de recipiente
MAPIMessages1.RecipAddress = Direcciones(i)
MAPIMessages1.RecipType = 1 '2=CC
Next
End Sub

=========================================

Espero te sirva

Gracias por contestar...
Bueno, hice lo que me dijiste ahora me aparece el error "32002" cuando llega al ".send" ...y el codigo esta asi.

' envio del correo a outlook

Me.MAPISession1.UserName = "Microsoft Outlook 2002"
Me.MAPISession1.NewSession = True
Me.MAPISession1.SignOn



With Me.MAPIMessages1
.MsgIndex = -1

LlenarRecip mails ' llena los recipientes

.MsgSubject = "Reserva en sala de Video Conferencia"
.MsgNoteText = "Salas Asociadas: " & asoc & " " & "Fecha: " & txtfecha.Text & " " & "Horario: " & txtinicio.Text & " - " & txttermino.Text
.SessionID = Me.MAPISession1.SessionID
.Send
End With
Me.MAPISession1.SignOff

Ke puede ser?

Ahora agregue ESTO en la funcion llenarrecip

Sub LlenarRecip(emails)
Direcciones = Split(emails, ";")
For I = 0 To UBound(Direcciones)

MAPIMessages1.RecipIndex = I 'numero de recipiente
MAPIMessages1.RecipAddress = Direcciones(I)
MAPIMessages1.ResolveName '''''''''''''''''''''''''<--------------------- ESTO
MAPIMessages1.RecipType = 1 '2=CC

Next
End Sub

y ahora el error es:

32053
Error de MAPI : no existe id de sesion valida

Alguien que me ayude porfavor, solo me falta esto y mañana termino la practiica...

Primero trabajas con direcciones o con nombres, es decir tu varible mails contiene valores
jorge;Jose ...
o [email protected];[email protected]...

Con direcciones:

[email protected]; [email protected];