Discussion :

[Guy_M]

Bonjour,

Je découvre actuellement Outlook 2010 et ses capacités accrues par rapport à Outlook 2003.

Il est possible dans OL2010 de chercher un mail dans la boite aux lettres et dans tous les PST ouverts. Vous pouvez dans le résultat de cette recherche, regrouper les mails par dossier. Mais pour les déplacer, il n'y a que l'ancienne méthode : liste de 10 dossiers et la recherche d'un dossier. Ce serait tellement plus simple si on pouvait déplacer un mail dans un autre dossier en le faisant glisser sur un autre mail contenu dans le dossier de destination.

Malheureusement, je ne maîtrise pas le modèle objet d'Outlook, donc je ne sais si c'est faisable en VBA d'où mes questions. Les réponses souhaitées sont "Non ou "Oui" et l'instruction qu'il faut utiliser (je m'occupe des problèmes de programmation) :

• Existe-t-il un évènement signalant que l'ont fait glisser (avec la souris) un message ? (si c'est non, difficile de savoir qu'il y a déplacement)
• Peut-on savoir l'item au-dessus duquel se trouve la souris ? (si c'est non, difficile de déterminer la destination)
• Peut-on savoir si l'explorateur actif est en mode "recherche" (c'est seulement dans ce cas que le déplacement a un intérêt) ?
• Peut-on savoir dans combien de dossier ont été trouvé les messages ?
• Peut-on (en VBA) déplier/replier les groupes de dossiers ?

Par avance, je vous remercie de vos réponses, en espérant que vous m'apportiez de bonnes nouvelles.

A bientôt
Guy

[Oliv-]

Bonsoir,
Intéressant sujet,
Il n'y a pas à ma connaissance sous ol2010 d'événement qui signale le glissé/déplacé. peut être avec des api windows...

Si on veut agir avec un évenement, il faut utiliser
Folder.BeforeItemMove, événement
Se produit lorsqu'un élément est sur le point d'être déplacé ou supprimé d'un dossier, à la suite de l'action d'un utilisateur ou de l'exécution du code d'un programme.
.BeforeItemMove(Item, MoveTo, Cancel)

en créant une variable WithEvents sur le Folder d'origine.

On peut prendre un Email et le déposer à gauche par glissé/déposé, dans les dossiers.


Donc l'idée, que je dois faire depuis des mois c'est de déplacer l'ensemble de la conversation lors du déplacement d'un des Emails.

pour cela il faut utiliser
MailItem.GetConversation, méthode
Conversation.GetTable, méthode

voici l'exemple de l'aide sur cette dernière méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub DemoConversationTable()
    Dim oConv As Outlook.Conversation
    Dim oTable As Outlook.Table
    Dim oRow As Outlook.Row
    Dim oMail As Outlook.MailItem
    Dim oItem As Outlook.MailItem
    Const PR_STORE_ENTRYID As String = _
       "http://schemas.microsoft.com/mapi/proptag/0x0FFB0102"
 
    On Error Resume Next
    ' Obtain the current item for the active inspector.
    Set oMail = Application.ActiveInspector.CurrentItem
 
    If Not (oMail Is Nothing) Then
        ' Obtain the Conversation object.
        Set oConv = oMail.GetConversation
        If Not (oConv Is Nothing) Then
            Set oTable = oConv.GetTable
            oTable.Columns.Add (PR_STORE_ENTRYID)
            Do Until oTable.EndOfTable
                Set oRow = oTable.GetNextRow
                ' Use EntryID and StoreID to open the item.
                Set oItem = Application.session.GetItemFromID( _
                    oRow("EntryID"), _
                    oRow.BinaryToString(PR_STORE_ENTRYID))
                Debug.Print oItem.Subject, _
                "Attachments.Count=" & oItem.Attachments.count
            Loop
        End If
    End If
End Sub

[Oliv-]

Bonjour,

...[*]Peut-on (en VBA) déplier/replier les groupes de dossiers ?
...
Guy

comme cela , mais cela dépend du classement !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function CollapseAllGroups()
'---------------------------------------------------------------------------------------
' Procedure : CollapseAllGroups
' Author    : OCTU
' Date      : 05/11/2015
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim objExp
    Dim colCB
    Dim objCBB
   ' On Error Resume Next
    Set objExp = ActiveExplorer
    Set colCB = objExp.CommandBars
    Set objCBB = colCB.FindControl(, 1917)    'CollapseAllGroups
    'Set objCBB = colCB.FindControl(, 1916)    'ExpandAllGroups
    If Not objCBB Is Nothing Then
            objCBB.Execute
    End If
 
    On Error GoTo 0
End Function

[Guy_M]

Merci Oliv- pour ces éléments,

Pas mal l'idée de déplacer la conversation quand on déplace un élément.

Est-ce que avec l'évènement "BeforeItemMove" peut être associé au niveau application et pas uniquement à un dossier ?

Une autre idée serait que l'utilisateur sélectionne 2 mails (de 2 dossiers différents) dans le résultat de la recherche, il exécute la macro qui lui propose de choisir le mouvement.

A bientôt
Guy