Visual Basic - error 32025: destinatarios no validos

Hola a todos:

Estoy llevando a cabo una aplicacion, en donde los correos
electronicos provienen de una tabla de access, q se situan
posteriormente en un combo (combo_email).
Utilizo los controles MapiSession y Mapimessage.
El problema viene cuando lanzo la aplicacion. Esta siempre
me devuelve el mismo error:
"Error 32025 en tiempo de ejecucion: Destinatarios no validos"
Os envio el codigo q utilizo:

Function Enviar_Correo()
'DETERMINAMOS EL DESTINATARIO PARA
Dim destinatario_para As String
Dim destinatario_CCO As String
i_var_email = combo_email.ListIndex
destinatario_para = combo_email.List(0)
'DETERMINAMOS LOS DESTINATARIOS CCO
If combo_email.ListCount > 1 Then
destinatario_CCO = combo_email.List(2)
For i_var_email = 3 To combo_email.ListCount
destinatario_CCO = destinatario_CCO & ";" & combo_email.List(i_var_email)
Next
End If

'ABRIMOS SESION DE CORREO

With sesion
.DownLoadMail = False 'Si es true se descarga el correo pendiente durante la conexion
.LogonUI = False
' .UserName = "UsuarioCuenta" 'Cuenta de usuario del remitente
' .Password = "PasswCuenta" 'Password del remitente
.NewSession = True
.SignOn
End With
mensaje.SessionID = sesion.SessionID

'COMENZAMOS Y PREPARAMOS UN MENSAJE NUEVO

With mensaje
.Compose 'Comienza un nuevo mensaje
.MsgSubject = "Asunto del mensaje" 'Asunto del mensaje
.MsgNoteText = "Contenido" 'Contenido del mensaje
End With
'LLENADO DE LOS CAMPOS PARA Y CCO.

'EMPEZAMOS CON EL DESTINATARIO PARA
With mensaje
.RecipIndex = 0 'primer destinatario
.RecipType = 1 'tipo de destinatario. En este caso Para
.AddressResolveUI = False
.RecipDisplayName = destinatario_para
End With

'DETERMINAMOS SI EXISTEN MAS DESTINATARIOS

If combo_email.ListCount > 1 Then
With mensaje
For i_var_email = 2 To combo_email.ListCount
.RecipIndex = i_var_email
.RecipType = 3
.AddressResolveUI = False
.RecipDisplayName = destinatario_CCO
Next
End With
End If

'ENVIAMOS EL EMAIL Y CERRAMOS LA SESION
'mensaje.ResolveName
mensaje.Send (True)
sesion.SignOff
End Function
Me podria ayudar alguien

Gracias a todos