> Hi All! > > Am an absolute newbie at this. I've spent quite a bit of time trying > to work this out ... Here's what I've managed so far ... Any help > surely appreciated here. > > Option Explicit > Sub ClearOtherInbox() > Dim objFolder As Outlook.Folder > > ' On Error Resume Next > > Set objFolder = GetOtherUserInbox("shared_mb@test.com") > Call ProcessFolder(objFolder) > > End Sub > > Sub ProcessFolder(StartFolder As Outlook.Folder) > ' Dim objFolder As Outlook.Folder > > ' On Error Resume Next > > ' process all the subfolders of this folder > For Each StartFolder In StartFolder.Folders > Call DeleteFolderItems(StartFolder) > Next > > Set StartFolder = Nothing > End Sub > > Sub DeleteFolderItems(foldar As Outlook.Folder) > Dim colItems As Outlook.Items > Dim longCount As Long > Dim i As Long > > Set colItems = foldar.Items > For i = longCount To 1 Step -1 > colItems(i).Delete > Next > Set colItems = Nothing > > End Sub > > Function GetOtherUserInbox(strUserSMTP As String) As Folder > Dim objOL As Outlook.Application > Dim objNS As Outlook.NameSpace > Dim objFolder As Outlook.Folder > Dim objMsg As Outlook.MailItem > Dim objRecip As Outlook.Recipient > > ' On Error Resume Next > > Set objOL = Application > Set objNS = objOL.Session > Set objRecip = objNS.CreateRecipient(strUserSMTP) > Set objFolder = objNS.GetSharedDefaultFolder(objRecip, > olFolderInbox) > > If objFolder Is Nothing Then > MsgBox "Could not find Inbox for """ & _ > strUserSMTP & """", vbExclamation, _ > "User Not Found" > End If > > Set GetOtherUserInbox = objFolder > Set objFolder = Nothing > Set objRecip = Nothing > Set objMsg = Nothing > Set objNS = Nothing > Set objOL = Nothing > End Function >