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_Click()
Dim rst As DAO.Recordset
Dim OlApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim InboxItems As Outlook.Items
Dim Mailobject As Object

Set rst = CurrentDb.OpenRecordset("tblAddresses")
Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFold erInbox)
Set InboxItems = Inbox.Items
For Each Mailobject In InboxItems
If InStr(Mailobject.Subject, "SUBSCRIBE") 0 Then
rst.AddNew

'this line doesn't work
rst!SenderAddress = Mailobject.SenderAddress

rst!SenderName = Mailobject.SenderName
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