Discussion :

[Heincé]

Bonjour à la communauté,

J'ai parfois besoin de faire des drag & drop de mes mails Outlook vers des dossiers Windows.
Mon problème est le suivant : après avoir déposé le mail, il porte automatiquement le nom du mail et uniquement celui-ci.

Je le renomme alors manuellement afin qu'il soit construit comme suit :

AAAAMMJJ-HHMM-XX-"Nom du mail".msg

où
AAAAMMJJ = Année Mois Jour du mail
HHMM = Heures Minutes du mail
XX = Initiales de l'expéditeur

Je ne sais pas s'il existe un paramétrage d'Outlook permettant d'améliorer et de personnaliser les drag & drop ou s'il faut passer par du VBA ou des adds-in.
Merci d'avance pour vos retours.
Bien cordialement,
Heincé

[curt]

Bonsoir Heincé,

regarde du côté de ma contribution, il y (entre autre) le code qui réalise quelque chose comme ça.

Curt

[Heincé]

Merci Curt pour ta réponse. Aurais-tu fail pour mettre un link vers ta contribution ?
Je ne vois pas de raccourcis. Sinon pas de pb, je vais chercher sur ton profil et vois si je trouve mon bonheur.
Encore merci de t'être donné la peine de me répondre =)

[curt]

le voilà : https://www.developpez.net/forums/d1...nsfert-d-mail/

[Oliv-]

le voilà : https://www.developpez.net/forums/d1...nsfert-d-mail/

Bonjour,
Curt, Quel rapport avec le sujet ?

Heincé, si tu veux faire du drag and drop tu dois au préalable changer ton sujet de Mail et l'enregistrer.

Sinon tu peux utiliser une macro pour l'exporter( en cliquant sur une icone)

[Heincé]

Merci à tous les 2.

Tout d'abord @curt, ton code, même s'il ne correspond pas à ma demande va m'apporter des éléments afin que je puise coder pour obtenir ce que je souhaite. J'espère y arriver. Encore merci.

@Oliv- tu as bien traduit ma demande et effectivement, c'est par macro que je souhaiterai rajouter les éléments de date, d'heure et d'expéditeur à mon intitulé de mail lors d'un drag & drop vers un dossier Explorateur Windows. Aujourd'hui, je le fais manuellement et afin de gagner du temps, j'aimerai que cela puisse se faire en automatique.
Si tu as une macro de ce type, je suis preneur. Le cas échéant, j'avance de mon côté et vous ferai un retour lorsque j'aurai finalisé ma macro. Merci pour ta réponse.

Bonne journée à tous.
Heincé

[Oliv-]

Pour changer le sujet:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Change_Subject()
'---------------------------------------------------------------------------------------
' Procedure : Change_Subject
' Author    : Oliv
' Date      : 26/11/2018
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim obj As Object
    Dim Oitem As Outlook.MailItem
    Dim InitSplit, Initiales, i, New_Subject
 
    'choix de l'élément ACTIF
    Set obj = Application.ActiveWindow
    If TypeOf obj Is Outlook.Inspector Then
        Set obj = obj.CurrentItem
    Else
        Set obj = obj.Selection(1)
    End If
 
    If obj.Class <> olMail Then Exit Sub
 
    Dim la_date As Date
    Set Oitem = obj
 
    'choix de la date
    If Oitem.Sent = True And Oitem.ReceivedByName = "" Then
        'MsgBox "Element envoyé"
        la_date = Oitem.SentOn
    ElseIf Oitem.Sent = False And Oitem.ReceivedByName = "" And Oitem.ConversationIndex <> "" Then
        'MsgBox "Nouvelle réponse ou transfert"
        la_date = Oitem.LastModificationTime
    ElseIf Oitem.Sent = True And Oitem.ReceivedByName <> "" Then
        'MsgBox "Element reçu"
        la_date = Oitem.ReceivedTime
    End If
 
    'Constructions des Initiales
    InitSplit = Split(Oitem.SenderName, " ")
    Initiales = ""
    For i = 0 To UBound(InitSplit)
        Initiales = Initiales & UCase(Left(InitSplit(i), 1))
    Next i
 
    'Construction du nouveau Sujet
    New_Subject = Format(la_date, "YYYYMMdd-HHmm") & "-" & Initiales & "-" & Oitem.Subject
 
    'Affectation du nouveau sujet
    Oitem.Subject = New_Subject
    Oitem.Save
 
    Set Oitem = Nothing: Set obj = Nothing
End Sub

Pour enregistrer sur le disque :
https://www.developpez.net/forums/bl...le-disque-msg/

attention il faudra adapter la ligne

Code :

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

 NomExport = MyMail.subject & MyMail.CreationTime

[Mimie22]

Bonjour,

Je suis dans une petite PME et nous avons pris l'habitude de sauvegarder, en les renommant, nos mails.
Je me suis servie du code d'"Oliv" "Change_Subject" ci-dessus qui est extra ! Merci Oliv.

Ce code renomme l'objet des mail en "AAAMMJJ-HHMM-II-Objet"
N'étant pas très douée en Code serait-il possible de le modifier pour avoir les formats suivants :
- "AAMMJJ_XXX_Objet" pour les messages reçus XXX étant les 3 premières lettres du Nom de l'expéditeur
- "AAMMJJ_QII_Objet" pour les messages envoyés (Le "Q" nous permettant de reconnaitre notre entité et les "II" étant nos initiales de Prénom puis Nom)

Enfin comment exécuter la macro sur plusieurs messages ou bien comment-faire pour que la macro ne s'exécute "que" lors d'un drag & drop vers un dossier Windows.
En clair, aujourd'hui je n'exécute la macro que sur un seul message à la fois et celle-ci modifie l"objet" du mail que je déplace ensuite vers un dossier Windows (Ce qui est déjà super...).

Idéalement il faudrait que cette macro fonctionne à chaque fois que je drag & drop un message, ou alors que je puisse l'exécuter sur plusieurs messages à la fois.

J'en demande beaucoup peut-être, mais nous gagnerions un temps incroyable. D'avance un grand merci pour une ou des réponses. 😊