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