В нашей компании некоторым пользователям (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), этот скрипт просто работает как выбор локальной / личной папки. Как только они выбирают общую папку, отправленная почта просто сохраняется в локальной / личной папке "Отправленные".
Кроме того, меня удивляет, что функция outlook "сохранить отправленный элемент в" (когда вы пишете письмо) также НЕ работает при попытке сохранения в общей папке.
Полномочия пользователей на Exchange 2003 остались прежними, просто Outlook 2007 был обновлён до 2010.
Есть идеи?