Outlook VBA: Déplacer un nouvel élément (non enregistré) dans le dossier

Question

J'essaie de créer un nouvel élément Outlook dans un magasin spécifique lorsque l'utilisateur l'enregistre. Normalement, s'il existe plusieurs comptes, lorsque vous créez un nouvel élément (par exemple, appuyez sur Ctrl + Maj + K pour une tâche), le nouvel élément est créé dans le dossier par défaut du compte actif.

J'ai essayé d'intercepter l'inspecteur pour le nouvel élément et de le déplacer, mais cela n'a eu aucun effet. Voici l'essentiel du code (vérifier pour éviter les éléments non nouvelles est omise):

Dim WithEvents inspectors As Outlook.inspectors 

Private Sub Application_Startup() 
    Set inspectors = Application.inspectors 
End Sub 

Private Sub inspectors_NewInspector(ByVal Inspector As Inspector) 
    Dim item As Object 
    Set item = Inspector.CurrentItem 
    If item Is Nothing Then Exit Sub 
    If item.Class <> olTask Then Exit Sub 
    item.Move Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) 
End Sub 

Malheureusement, la méthode Move n'a pas d'effet. Des idées?

Answer 1

Vous ne pouvez pas déplacer des éléments non sauvegardés. Comment créez-vous l'article?

Utilisez la méthode Items.Add pour ajouter un élément (c'est-à-dire le créer) dans un dossier spécifique. Si vous utilisez la méthode CreateItem, elle sera toujours créée dans le dossier par défaut pour ce type d'élément. Au lieu d'essayer d'utiliser la fonctionnalité existante pour essayer de créer la tâche (ce dont je ne suis pas sûr est possible ou facile), je pense que vous feriez mieux de créer une macro qui crée la tâche dans le dossier que vous voulez, puis ajoutez la macro à un bouton de barre d'outils. Ou vous pouvez essayer d'enregistrer l'élément en premier, puis le déplacer. Notez que votre code actuel déplace l'élément dans le dossier Tâches par défaut.