envoyer et classer un mail

[migx]

Bonjour,

Je souhaiterai qu'au moment de l'envoi d'un mail outlook 2013 me propose d'enregistrer l'élément dans un repertoire à choisir.

Il existe bien le bouton enregistrer l'élément dans, mais il faut l'activer avant l'envoi, moi j'aimerai qu'il s'active seul au moment de l'envoi.

Sur outlook 2003 j'utilisais

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)

'By Oliv' 9/02/2007 pour Outlook 2003
If Not Item.Class = olMail Then GoTo fin

Dim objNS As NameSpace
Dim objFolder As MAPIFolder

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.PickFolder
If TypeName(objFolder) = "Nothing" Then
Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderDeletedItems)
End If
Set Item.SaveSentMessageFolder = objFolder
fin:
End Sub

mais cela ne fonctionne plus dans oulook 2013.

En espérant que qqn pourra m'aider.

Merci d'avance de votre aide.

Bonne journée.

[zebulon1]

Bonjour,

trouvé sur un autre forum le code ci-dessous, fais un test.

Code : Tout sélectionner

 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Not Item.Class = olMail Then GoTo fin
 
    Dim objNS As NameSpace
    Dim objFolder As MAPIFolder
 
            Set objNS = Application.GetNamespace("MAPI")
            Set objFolder = objNS.PickFolder
            If TypeName(objFolder) = "Nothing" Then
                Set objNS = Application.GetNamespace("MAPI")
                Set objFolder = objNS.Folders(olFolderSentMail)
            End If
        Set Item.SaveSentMessageFolder = objFolder
fin:
End Sub