Bien por si alguien requiere la solucion a mi problemita, gracias al coco que me ayudo a corregirlo..
Con esto obtenemos el nombre del destinatario
Public Property Get firstName(ByVal lngIndex As Long) As String
firstName = col(lngIndex).firstName
End Property
Public Property Get secondname(ByVal lngIndex As Long) As String
secondname = col(lngIndex).secondname
End Property
Y hay que corregir este trozo de codigo para obtener el Email del destinatario..
Public Function GetEmail(ByVal Index As Long) As String
GetEmail = col(Index).Email
End Function
Cambiarlo por...
Public Function GetEmail(ByVal Index As Long) As String
GetEmail = col(Index).EmailAddress
End Function
Saludos....!
