Discussion :

[FCL31]

Bonjour,

J'ai une macro qui me permet de changer l'objet d'un mail (ajout de la date de réception ou d'envoi du mail).

Code :

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

1
2
Itm.Subject = Format(Itm.ReceivedTime, "yyyy/mm/dd") & " _ " & Itm.Subject
Itm.Subject = Replace(Itm.Subject, "/", "-")

Ce code marche très bien et j'obtiens :
2013-11-22 _ Sujet du mail

Toutefois, je voudrais le modifier et ajouter l'heure de réception;
J'ai donc fait ce code :

Code :

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

1
2
Itm.Subject = Format(Itm.ReceivedTime, "yyyy/mm/dd" & "|" & "hh/mm") & " _ " & Itm.Subject
Itm.Subject = Replace(Itm.Subject, "/", "-")

Qui en soit, marche très bien aussi.
Mais j'obtiens :
2013-11-22|10-41 _ Sujet du mail

C'est pas très lisible.
Y aurait-il moyen d'avoir :
2013-11-22|10h41 _ Sujet du mail
(ou quelque chose qui s'en rapproche et qui soit facilement lisible).

Merci d'avance de votre aide
Bonne journée
A+

[Oliv-]

salut,
comme cela ca doit être ok

Code :

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

Format(Itm.ReceivedTime, "yyyy-mm-dd hh\hmm")

[FCL31]

Nikel Merci

J'ai quand même modifier quelque truc pour mieux séparer les jours et les heures (bref rien de grave).

Toutefois, j'ai une autre question à laquelle, je viens de penser (oui ça m'arrive)

Simplement, je voudrais pouvoir ajouter un E ou un R pour savoir si c'est un mail Reçu ou un mail Envoyé (les mails sont déplacé dans des dossier et supprimer de Outlook par la suite)
Je voudrais un truc du style :
2013-11-22 _ 10h41 E= Sujet du mail
2013-11-22 _ 11h22 R= Sujet du mail
En fonction de la boite de réception ou d'envoi.

[Oliv-]

Code :

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

1
2
3
4
5
6
7
if Itm.parent.name = "Boîte de réception" then
Origine="R"
elseif  Itm.parent.name="Éléments envoyés" then 
origine= "E"
else
origine = "A"
end if

[FCL31]

Nikel

Merci

Même si il manquait un End If

Merci beaucoup pour tes réponses rapide.

Si cela peut aider, voici mon code complet :

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
Sub ObjetMail()
    Dim Exp As Explorer
    Dim Sel As Selection
    Dim Itm As MailItem
    Set Exp = ActiveExplorer
    Set Sel = Exp.Selection
    For Each Itm In Sel
        If Itm.Parent.Name = "Boîte de réception" Then
            Origine = "R"
        Else
        If Itm.Parent.Name = "Éléments envoyés" Then
            Origine = "E"
        Else
            Origine = "A"
        End If
        End If
        Itm.Subject = Format(Itm.ReceivedTime, "yyyy-mm-dd" & " _ " & "hh\hmm") & " " & Origine & " = " & Itm.Subject
        Itm.Subject = Replace(Itm.Subject, "/", "-")
        Itm.Save
     Next Itm
         Set Itm = Nothing
        Set Sel = Nothing
        Set Exp = Nothing
 End Sub

Bonne journée
A+

[Oliv-]

Même si il manquait un End If

NON tout est là (VOIR UTILISATION DE ELSEIF)

[FCL31]

Autant pour moi, j'ai juste mal regardé ton code
Comme je l'ai lu depuis mon téléphone, j'ai lu Else If et non ElseIF

Toutes mes excuse alors.
Je reprend donc ma réponse :

Nikel

Merci

Merci beaucoup pour tes réponses rapide.

[...]

A+

[Oliv-]

mais ca aurait pu arriver ;-)
bye

[jaja2277]

Bonsoir Oliv.

En parcourant le forum je suis tombé sur ta réponse qui marche bien, toutefois en VBA Outlook je suis débutant (quelques notions sous xls), je souhaiterais faire apparaitre dans l'objet en plus des info déjà rajoutées l'expéditeur (j'ai vu des action type senderemailadress) mais je n'y arrive pas.

Le code s'exécute sur un ou plusieurs mail sélectionnés, mais serait il possible de l'exécuter dès réception d'un mail ou alors sur la boite de réception en vérifiant d'abord ceux qui sont "reformaté".

Merci d'avance si tu peux m'aiguillé.

Jaouen

[Oliv-]

Bonjour,
il faudrait que tu crées un nouveau sujet avec une explication claire de ce que tu veux et le code que tu as déjà.