Möglicherweise so:
(das ist nur ein Auszug eines Scriptes..
es müssen natürlich weitere sachen definiert werden aber im Prinzip gehts so!)
Dim entry As NotesViewEntry
Dim nav As NotesViewNavigator
Dim viewI As NotesView
Dim absender As Variant
Set viewI = db.GetView("($Inbox)")
Set nav = viewI.CreateViewNav()
Set entry = nav.GetFirst
absender = entry.ColumnValues(0) 'wert der ersten spalte
Set db = s.GetDatabase("",absender)
Grüße
Myron