☰

outlook2010将已发送邮件保存到共享文件夹

tag-icon • tag-icon microsoft-outlook-2010 shared-folders
outlook2010将已发送邮件保存到共享文件夹

在我们公司，一些用户（Windows 7、Exchange 2003）需要将已发送的邮件保存在不同的、通常是共享的文件夹中。这在 Outlook 2007 中使用以下 VBA 脚本效果很好。他们发送邮件后会弹出一个窗口，让他们选择一个文件夹：

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。

有任何想法吗？

相关内容