Discussion :

[Megajav]

Bonjour,

Dans Outlook, il est facilement possible de modifier manuellement l'objet d'un mail reçu. J'utilise cette fonction pour écrire la date de réception de mes mails devant l'objet initial. Ainsi lorsque je les glisse dans un dossier sous windows, je peux facilement retracer l'historique de mes mails ("impossible" à faire avec l'explorateur windows car celui-ci affiche la date d'export du mail, et non la date de réception du mail).

Je me suis demandé si il était possible de créer une macro dans "ThisOutlookSession" du type :

Private Sub Application_ItemLoad(ByVal Item As Object)

- Pour chaque nouveau mail reçu
- "Objet du nouveau mail reçu" = "Date de réception du mail - Objet du nouveau mail reçu"

End Sub


Avant de poser cette question j'ai bien entendu regardé ceci : http://dolphy35.developpez.com/artic...ook/vba/#LVI-A

Mais tout ce que j'ai pu essayer n'a pas fonctionné, et je n'ai plus de solution...

Si quelqu'un a une petite idée, ou une autre solution (pas forcément du VBA)..

Merci d'avance.

PS : Une autre solution est peut-être possible (que je n'ai pas testé) du type :

Sub testDate()

- Sélection d'une liste de mails
- Pour chaque mail dans la sélection
- "Objet du mail dans la sélection" = "Date de réception du mail - Objet du mail dans la sélection"

End Sub

[Megajav]

Bonjour,

J'ai écris ce petit bout de code pour le moment :

'Private Sub Application_ItemLoad(ByVal Item As Object)

'Dim Expl As Explorer
'Dim Select As Selection
'Dim nvmail As MailItem

'Set Expl = ActiveExplorer
'Set Select = Expl.Selection

'For Each nvmail In Select

'If Mid(nvmail.Subject, 5, 1) <> "-" Then
'nvmail.Subject = Format(nvmail.ReceivedTime, "yyyy-mm-dd") & " - " & nvmail.Subject
'nvmail.Save
'End If

'Next nvmail

'Set nvmail = Nothing
'Set Select = Nothing
'Set Expl = Nothing

'End Sub

Cependant j'ai un petit soucis avec les Appointment qui font planter mon code..

Une idée simple ? j'ai essayé de définir "uniquement pour nvmail" mais ca n'a pas fonctionné j'ai du oublier quelque chose...

[Oliv-]

Bonjour,
Premièrement pour une question sur VBA outlook il y a un sous forum dédié.

Ensuite, je pense que tu n'utilises pas le bon événement mais tu n'es pas loin.

essaye avec

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
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim nvmail As MailItem
    Dim varEntryIDs
    Dim objItem
    Dim i As Integer
    varEntryIDs = Split(EntryIDCollection, ",")
    For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        If objItem.class = olmail Then
            Set nvmail = objItem
            If Mid(nvmail.Subject, 5, 1) <> "-" Then
                nvmail.Subject = Format(nvmail.ReceivedTime, "yyyy-mm-dd") & " - " & nvmail.Subject
                nvmail.Save
            End If
        End If
 
    Next
End Sub

[Megajav]

Bonjour,

Merci, c'est parfait.

Désolé pour le mauvais emplacement du sujet..

[Oliv-]

Code :

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

1
2
3
4
5
6
7
8
Dim varEntryIDs
Dim objItem
Dim i As Integer
varEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(varEntryIDs)
Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
If objItem.Class = olMail Then
Set nvmail = objItem

Cette partie est floue, je suppose que c'est grâce à ça que l'on arrive à différencier un Mail simple d'un AppointementItem.

J'ai essayé de refaire cette exercice ou l'opération ne se fait pas automatiquement, mais à l'aide d'un bouton. Cependant je me retrouve confronter au même problème, les appointementItem bloquent mon code, ou alors rien ne se passe...

Bonjour,
C'est mieux de continuer dans la discussion.

La macro se lance quand OUTLOOK reçoit un Mail (ou autre) mais il peut y en avoir plusieurs c'est pouce cela que l'on parcours la collection EntryIDCollection

Pour différencier un Email d'un autre élément on utilise effectivement

Code :

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

 If objItem.Class = olMail Then

Pour lancer ce code sur le mail ouvert

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Sub change_sujet ()
    Dim nvmail As MailItem
     Dim objItem
 
        Set objItem = ActiveInspector.CurrentItem
        If objItem.class = olmail Then
            Set nvmail = objItem
            If Mid(nvmail.Subject, 5, 1) <> "-" Then
                nvmail.Subject = Format(nvmail.ReceivedTime, "yyyy-mm-dd") & " - " & nvmail.Subject
                nvmail.Save
            End If
        End If
End Sub