Option Explicit
Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim objOwner As Outlook.Recipient
   
  Set NS = Application.GetNamespace("MAPI")
 
  Set objOwner = NS.CreateRecipient("maryc")
    objOwner.Resolve
       
 If objOwner.Resolved Then
   'MsgBox objOwner.Name
 Set items= NS.GetSharedDefaultFolder(objOwner, olFolderInbox).items

 End If
End Sub

Private Sub Items_ItemAdd(ByVal myItem As Outlook.MailItem
 
 Dim myAttachment As Attachment
 Dim myAttachments As Attachments
 Dim lngAttachmentCount As Long
 
 Set myAttachments = myItem.Attachments
 
 lngAttachmentCount = myAttachments.Count
 
 ' Loop through attachments until attachment count = 0.
 While lngAttachmentCount > 0
 strFile = myAttachments.Item(1).FileName & "; " & strFile
 myAttachments(1).Delete
 lngAttachmentCount = myAttachments.Count
 Wend
  
If myItem.BodyFormat <> olFormatHTML Then
 myItem.Body = myItem.Body & vbCrLf & _
 "The file(s) removed were: " & strFile
 Else
 myItem.HTMLBody = myItem.HTMLBody & "<p>" & _
 "The file(s) removed were: " & strFile & "</p>"
 End If
  
 myItem.Save
  strFile = ""
 
 Set myAttachment = Nothing
 Set myAttachments = Nothing
 End Sub