In our company some users (Windows 7, Exchange 2003) need to save there sent mails in different, often shared(!) folders. This worked great with the following VBA script in Outlook 2007. They sent their mails and got a popup where they could choose a folder:
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
Since they use Outlook 2010 (still Windows 7, exchange 2003) this script is just working as the choose a local/personal folder. As soon as they choose a shared folder the sent mail is just saved under the local/personal "Sent items".
Additionally, it makes me wonder that the outlook-function "save sent element under" (when you write a mail) does also NOT work when you try to save in a shared folder.
The user-permissions on exchange 2003 are still the same, just outlook 2007 was upgraded to 2010.