Listing 1: Automatically Showing the Sender Address for Incoming Messages

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
    Dim objNS As NameSpace
    Set objNS = Application.GetNamespace("MAPI")
    Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
    Set objNS = Nothing
End Sub

Private Sub Application_Quit()
    Set olInboxItems = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
    Dim objProp As UserProperty
    Dim objSafeMail As Redemption.SafeMailItem
    Dim strAddress As String
    If Item.Class = olMail Then
Begin callout A
        Set objSafeMail = CreateObject("Redemption.SafeMailItem")
        objSafeMail.Item = Item
End callout A
Begin callout B
        Set objProp = _
          objSafeMail.UserProperties.Add("FromAddress", olText)
End callout B
        objProp.Value = R_GetSenderAddress(objSafeMail)
        objSafeMail.Save
    End If
    Set objProp = Nothing
    Set objSafeMail = Nothing
End Sub