Reading Outlook

[Fred Zuckerman]

Hello All,
I'm trying to read my Outlook Inbox and add email addresses to an Access
table. My code is below. It works fine except there doesn't seem to be a
mailobject property for the senders email address. Can anyone help?
Fred Zuckerman
Private Sub btnScanInbox_Cl ick()
Dim rst As DAO.Recordset
Dim OlApp As Outlook.Applica tion
Dim Inbox As Outlook.MAPIFol der
Dim InboxItems As Outlook.Items
Dim Mailobject As Object

Set rst = CurrentDb.OpenR ecordset("tblAd dresses")
Set OlApp = CreateObject("O utlook.Applicat ion")
Set Inbox = OlApp.GetNamesp ace("Mapi").Get DefaultFolder(o lFolderInbox)
Set InboxItems = Inbox.Items
For Each Mailobject In InboxItems
If InStr(Mailobjec t.Subject, "SUBSCRIBE" ) 0 Then
rst.AddNew

'this line doesn't work
rst!SenderAddre ss = Mailobject.Send erAddress

rst!SenderName = Mailobject.Send erName
rst!AddDate = Date
rst.Update
End If
Next

rst.Close
Set rst = Nothing
Set OlApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
End Sub