Het icoontje zou inderdaad gewoon moeten veranderen. Alleen blijf je het probleem houden van de Sent Item die de ander niet gaat zien.
Ik heb hier veel naar gezocht omdat klanten van mij dit ook graag wilden. Als je het in 1 klap zonder weining handwerk wil doen, Dan kan je CentralUniSent van Ivasoft aanschaffen (
http://ivasoft.biz/).
Andere optie is werken met een VB script. (Outlook->Tools/Extra->Macro->Visual Basic Editor)
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
| Private WithEvents olkSentItems As Outlook.Items
Private Sub Application_Quit()
Set olkSentItems = Nothing
End Sub
Private Sub Application_Startup()
Set olkSentItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub olkSentItems_ItemAdd(ByVal Item As Object)
Dim olkFolder As Outlook.MAPIFolder
If Item.Class = olMail Then
'Change the name on the following line as needed. It will have to match the name in the message exactly.
If Item.SenderName ="SomeName" Then
'Change the folder path on the following line to that of the folder you want the item moved to
Set olkFolder = OpenOutlookFolder("Mailbox - Doe, John\Sent Items")
Item.Move olkFolder
End If
End If
Set olkFolder = Nothing
End Sub
Function IsNothing(obj)
If TypeName(obj) = "Nothing" Then
IsNothing = True
Else
IsNothing = False
End If
End Function
Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant, _
varFolder As Variant, _
olkFolder As Outlook.MAPIFolder
On Error GoTo ehOpenOutlookFolder
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
If Left(strFolderPath, 1) = "\" Then
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
End If
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
If IsNothing(olkFolder) Then
Set olkFolder = Session.Folders(varFolder)
Else
Set olkFolder = olkFolder.Folders(varFolder)
End If
Next
Set OpenOutlookFolder = olkFolder
End If
On Error GoTo 0
Exit Function
ehOpenOutlookFolder:
Set OpenOutlookFolder = Nothing
On Error GoTo 0
End Function |
EDIT: dit werkt overigens in outlook 2007. Geen idee of het ook in 2003 werkt
Dit moet je wel even aanpassen met de juiste gegevens natuurlijk

Ook moet dit op elk werkstation en je kan wel wat macro waarschuwingen verwachten waardoor je weer met de beveiliging moet gaan schuiven.
Maaarrrrrrr... het werkt wel en het is gratis.
Succes.
Groeten,
Eelco