The difference would be that instead of using the ThisOutlookSession and an event, you would use a macro in an ordinary module to process the current message - something along the lines of the following. Use the string variables to write to the Access database.
Dim recip As Outlook.Recipient
Dim Recips As Outlook.Recipients
Dim pa As Outlook.propertyAccessor
Dim olItem As Outlook.MailItem
Dim strEmail As String
Dim strSubject As String
Dim strBody As String
Dim strRecips As String
Dim strSent As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
Set olItem = ActiveExplorer.Selection.Item(1)
With olItem
strSubject = .Subject
'Debug.Print strSubject
strBody = .Body
'Debug.Print strBody
strEmail = .SenderEmailAddress
'Debug.Print strEmail
strSent = "Sent On: " & Now()
'Debug.Print strSent
Set Recips = .Recipients
For Each recip In Recips
Set pa = recip.propertyAccessor
strRecips = pa.GetProperty(PR_SMTP_ADDRESS) & ","
Next recip
Do While Right(strRecips, 1) = ","
strRecips = Left(strRecips, Len(strRecips) - 1)
Loop
'Debug.Print strRecips
End With