(Outlook 2003) Gesendete Objekte von 2 verschiedenen Exchange Postfächern getrennt halten

Hallo Office-Spezies,

folgende Arbeitsumgebung liegt meinem Problem zugrunde:


Ein User - angemeldet auf Domain - arbeitet mit Office 2003 / SP3 auf Exchange 2007 (Version: 08.01.0393.001).

In Outlook sind zwei Accounts eingebunden. Einmal als ganz normaler Exchange-Account seine Haupt E-Mail-Adresse (= Postfach A).
In den Kontoeigenschaften im Reiterchen "Erweitert" wird zusätzlich ein Postfach geöffnet (= Postfach B).

Der User hat Vollberechtigung auf das Postfach. Auch "Senden als" ist eingerichtet.

Es funktioniert alles, wenn der User eine E-Mail öffnet und bei "Von" im Absendefeld den Absender eingibt funktioniert das alles hervorragend.
Er kann Mails von beiden Accs aus senden (und auch korrekt empfangen).

Allerdings sollten die gesendeten E-Mails von Account B nicht in den gesendeten Objekten aus Postfach A zu sehen sein.


Fragestellung:

Wie kann ich dem User das einrichten, dass die Ordner "Gesendete Objekte" von den jeweiligen Postfächern auch tatsächlich nur mit gesendeten Mails von dem korrespondierenden Konton befüllt werden?


Ich hoffe ich habe mich nicht zu kompliziert ausgedrückt.
Ich danke für etwaige Antworten herzlich im Voraus:


Der
Vince

HKCU\Software\Microsoft\Office\<Office Version>\Outlook\Preferences\DelegateSentItemsStyle D-WORD 1

Public WithEvents mySentItems As Items
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Set mySentItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items  
End Sub

Public Sub mySentItems_ItemAdd(ByVal Item As Object)
For i = 1 To Outlook.Application.GetNamespace("MAPI").Folders.Count  
strGrpPostBox = Outlook.Application.GetNamespace("MAPI").Folders.Item(i)  
Select Case TypeName(Item)
Case "AppointmentItem", "MeetingItem"  
Case Else
	If Item.SentOnBehalfOfName = Application.GetNamespace("MAPI").CurrentUser Then Exit Sub  
	strSendAs = Right(strGrpPostBox, Len(strGrpPostBox) - 11)
		If (Item.Class = olMail) Then
			If (InStr(Item.SentOnBehalfOfName, strSendAs) > 0) Then
			Item.Move (Outlook.Application.GetNamespace("MAPI").Folders(strGrpPostBox).Folders("Gesendete Objekte"))  
			End If
		End If
End Select
Next
End Sub