Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Contrôleur de gestion
    Inscrit en
    juin 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Contrôleur de gestion
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : juin 2015
    Messages : 8
    Points : 7
    Points
    7

    Par défaut Drag & drop Outlook 2010 - Glisser déposer

    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


    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é

  2. #2
    Membre chevronné Avatar de curt
    Homme Profil pro
    Ingénieur Etudes
    Inscrit en
    mars 2006
    Messages
    1 320
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur Etudes
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : mars 2006
    Messages : 1 320
    Points : 1 890
    Points
    1 890

    Par défaut

    Bonsoir Heincé,

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

    Curt
    Pas de demande par MP, sinon j'correctionne plus, j'dynamite, j'disperse, j'ventile !!!
    ---------------------------------------------------------------------
    Vous avez un talent insoupçonné... Faites-en profitez les autres. Un p'tit CLIC pour une grande cause.
    Et si vous faisiez un bon geste en 2018 ? Soyez utile, ça vous changera ! Moi, ça m’a changé !

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Contrôleur de gestion
    Inscrit en
    juin 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Contrôleur de gestion
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : juin 2015
    Messages : 8
    Points : 7
    Points
    7

    Par défaut

    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 =)

  4. #4
    Membre chevronné Avatar de curt
    Homme Profil pro
    Ingénieur Etudes
    Inscrit en
    mars 2006
    Messages
    1 320
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur Etudes
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : mars 2006
    Messages : 1 320
    Points : 1 890
    Points
    1 890
    Pas de demande par MP, sinon j'correctionne plus, j'dynamite, j'disperse, j'ventile !!!
    ---------------------------------------------------------------------
    Vous avez un talent insoupçonné... Faites-en profitez les autres. Un p'tit CLIC pour une grande cause.
    Et si vous faisiez un bon geste en 2018 ? Soyez utile, ça vous changera ! Moi, ça m’a changé !

  5. #5
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 483
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 483
    Points : 6 029
    Points
    6 029
    Billets dans le blog
    16

    Par défaut

    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)

  6. #6
    Futur Membre du Club
    Homme Profil pro
    Contrôleur de gestion
    Inscrit en
    juin 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Contrôleur de gestion
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : juin 2015
    Messages : 8
    Points : 7
    Points
    7

    Par défaut

    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é

  7. #7
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 483
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 483
    Points : 6 029
    Points
    6 029
    Billets dans le blog
    16

    Par défaut

    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

Discussions similaires

  1. [WD16] Drag & Drop Outlook vers Table Windev
    Par buzz68180 dans le forum WinDev
    Réponses: 15
    Dernier message: 04/08/2016, 11h29
  2. [OL-2010] Drag'n drop Vba outlook 2010
    Par chewby79 dans le forum VBA Outlook
    Réponses: 6
    Dernier message: 25/07/2012, 12h15
  3. Réponses: 0
    Dernier message: 21/10/2010, 15h05
  4. glisser déposer (drag & drop)
    Par jux dans le forum Graphisme
    Réponses: 1
    Dernier message: 04/12/2007, 23h53
  5. [delphi 7] drag drop outlook vers delphi
    Par PH69 dans le forum Delphi
    Réponses: 2
    Dernier message: 30/08/2006, 16h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo