NONEXECUTABLE
Listing 2: Code to Add the From Address to an Incoming Message

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
    Dim strMsg As String
    Dim strEntryID As String
    Dim strStoreID As String
    Dim objCDO As MAPI.session
    Dim objCDOMsg As MAPI.Message
    Dim objProp As UserProperty
   
    If Item.Class = olMail Then
        Set objProp = Item.UserProperties.Add("FromAddress", olText)
        objProp.Value = SenderFromAddress(Item)
        Item.Save
    End If
End Sub