Em nossa empresa, alguns usuários (Windows 7, Exchange 2003) precisam salvar os e-mails enviados em pastas diferentes, muitas vezes compartilhadas (!). Isso funcionou muito bem com o seguinte script VBA no Outlook 2007. Eles enviaram seus e-mails e obtiveram um pop-up onde podiam escolher uma pasta:
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
Como eles usam o Outlook 2010 (ainda o Windows 7, Exchange 2003), esse script está funcionando apenas como a escolha de uma pasta local / pessoal. Assim que escolherem uma pasta compartilhada, o e-mail enviado é salvo apenas nos "Itens Enviados" locais / pessoais.
Além disso, fico imaginando que a função outlook "salvar elemento enviado sob" (quando você escreve um e-mail) também NÃO funciona quando você tenta salvar em uma pasta compartilhada.
As permissões de usuário no Exchange 2003 ainda são as mesmas, apenas o Outlook 2007 foi atualizado para 2010.
Alguma idéia?