VBA pour intégrer les dates de réceptions dans les objets ?

Version imprimable

29/06/2015, 16h21
Megajav

VBA pour intégrer les dates de réceptions dans les objets ?

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
30/06/2015, 14h12
Megajav

Solution "provisoire"

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...

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:

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

30/06/2015, 15h56
Megajav

Bonjour,

Merci, c'est parfait.

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

Citation:
Code:

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:

If objItem.Class = olMail Then

Pour lancer ce code sur le mail ouvert
Code:

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