Bonjour,
 
J'ai un soucis avec une macro qui doit faire cela : Lors de la fermeture d'un nouveau mail, je propose à l'utilisateur d'archiver le mail vers un dossier. Le truc c'est que le mail doit être déplacé mais il ne peut pas parcequ'il est ouvert.
 
J'ai pensé à créér une copie de ce mail, et de déplacer la copie, mais je veux supprimer le mail recu, pour qu'il n'y ai pas de doublon. Encore une fois, impossible de supprimer le mail ouvert. Tout ca se passe dans le objet_BeforeClose, il me faudrait un équivalent de AfterClose pour régler mon prôblème, mais qui n'existe malheuresement pas...
 
Si vous avez des idées ca m'aiderait pas mal, je vous c/c le code :
 
Dim WithEvents myInspectors As Outlook.Inspectors
Dim WithEvents myMail As Outlook.MailItem
 
Private Sub Application_Startup()
On Error Resume Next
Set myInspectors = ThisOutlookSession.Inspectors
On Error GoTo 0
End Sub
 
Private Sub myInspectors_NewInspector(ByVal Insp As Inspector)
If Insp.CurrentItem.Class = olMail Then
    If Insp.CurrentItem.UnRead = True Then
        Set myMail = Insp.CurrentItem
        'MsgBox "Nouveau Mail"
    'Else
        'MsgBox "Vieux Mail"
    End If
End If
End Sub
 
Private Sub myMail_Close(Cancel As Boolean)
        Dim myCopiedItem As Outlook.MailItem
 
        If MsgBox("Voulez-vous archiver ce message ?", vbYesNo + vbQuestion, "Voulez-vous Archiver ?" ) = vbYes Then
        Dim oDossier As MAPIFolder
        'Set oNS = Application.GetNamespace("MAPI" )
        Set oDossier = Application.GetNamespace("MAPI" ).PickFolder
 
        If Not oDossier Is Nothing Then
          Set myCopiedItem = myMail.Copy
          myCopiedItem.Move oDossier
          myMail.Delete
        End If
        Set oDossier = Nothing
    End If
End Sub
 
Cette version créé une copie du mail et le déplace, jusque la OK, mais le myMail.Delete pose probleme.
Pour tester l'idée premiere, il faut remplacer  
          Set myCopiedItem = myMail.Copy
          myCopiedItem.Move oDossier
          myMail.Delete
par
          myMail.Move oDossier
 
Voila l'erreur qu'il me donne :

 
Donc le move et delete ne sont pas accéssible sur l'événement close, si vous avez une idée alternative... je suis preneur !