MsgBox(mail.Sender.name)

    Try
            Dim objSession As New Redemption.RDOSession
            objSession.Logon()
 
            Dim mail As Object
            Dim olFolder As Redemption.RDOFolder
            Dim myInbox As Redemption.RDOFolder
 
 
            olFolder = objSession.GetDefaultFolder( _
              Redemption.rdoDefaultFolders.olFolderInbox)
            myInbox = olFolder
 
 
            For Each mail In myInbox.Items
                MsgBox(mail.Sender.name)
            Next
 
            objSession.Logoff()
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try