En nuestra empresa, algunos usuarios (Windows 7, Exchange 2003) necesitan guardar los correos enviados en carpetas diferentes, a menudo compartidas (!). Esto funcionó muy bien con el siguiente script de VBA en Outlook 2007. Enviaron sus correos y obtuvieron una ventana emergente donde podían elegir una carpeta:
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 usan Outlook 2010 (todavía Windows 7, Exchange 2003), este script solo funciona como elegir una carpeta local / personal. En cuanto eligen una carpeta compartida, el correo enviado se guarda en los "Elementos enviados" locales / personales.
Además, me hace pensar que la función de perspectiva "guardar elemento enviado debajo" (cuando escribe un correo) tampoco funciona cuando intenta guardar en una carpeta compartida.
Los permisos de usuario en Exchange 2003 siguen siendo los mismos, solo Outlook 2007 se actualizó a 2010.
¿Algunas ideas?