Зберегти відправлену пошту в спільну папку

У нашій компанії деяким користувачам (Windows 7, Exchange 2003) потрібно зберігати там відправлені листи в різних, часто спільних (!) Папках. Це чудово спрацювало із наступним сценарієм VBA в Outlook 2007. Вони надіслали свої листи та отримали спливаюче вікно, де вони могли вибрати папку:

Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If Item.Class = olMail Then
    Dim myFolder As MAPIFolder
    Dim myOlApp As Outlook.Application
    Dim myOlExp As Outlook.Explorer

    Set myOlApp = CreateObject("Outlook.Application")
    Set olNS = myOlApp.GetNamespace("MAPI")
    Set myFolder = olNS.PickFolder
    If Not (myFolder Is Nothing) Then
        Set Item.SaveSentMessageFolder = myFolder
    End If
End If

End Sub

Оскільки вони використовують Outlook 2010 (ще Windows 7, Exchange 2003), цей сценарій просто працює як вибір локальної / особистої папки. Щойно вони вибирають загальну папку, надіслана пошта просто зберігається під місцевим / особистим "Надіслані елементи".

Крім того, мене здивує, що функція перспективи "зберегти відправлений елемент під" (коли ви пишете пошту) також НЕ працює, коли ви намагаєтесь зберегти в загальній папці.

Дозволи користувача на обмін 2003 року залишаються однаковими, лише прогноз 2007 був оновлений до 2010 року.

Якісь ідеї?