1

В нашей компании некоторым пользователям (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.

Есть идеи?

|источник

0