Sorry, the link doesn't have the info i was hoping to give.
maybe the following code is of help as a starting point, (it has to be added in outlook)
Public Sub ProcessEmail()
Dim myNS As NameSpace
Dim myInbox As MAPIFolder
Dim f1 As MAPIFolder
Dim...