![outlook2010将已发送邮件保存到共享文件夹](https://linux22.com/image/1443065/outlook2010%E5%B0%86%E5%B7%B2%E5%8F%91%E9%80%81%E9%82%AE%E4%BB%B6%E4%BF%9D%E5%AD%98%E5%88%B0%E5%85%B1%E4%BA%AB%E6%96%87%E4%BB%B6%E5%A4%B9.png)
在我们公司,一些用户(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。
有任何想法吗?