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
    sans profession
    Inscrit en
    avril 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Espagne

    Informations professionnelles :
    Activité : sans profession

    Informations forums :
    Inscription : avril 2011
    Messages : 7
    Points : 9
    Points
    9

    Par défaut Un VBA Outlook pour visualiser l'en-tête d'un message sans l'ouvrir ?

    Bonjour à toutes et tous.
    Dans Outlook 2013 (les autres versions je ne sais pas) il est impossible de visualiser l'en-tête d'un message sans l'ouvrir.

    Une fois ouvert, la barre d'outil d'un message ouvert propose une commande pour en "visualiser" l'en-tête.

    Par contre cette manip. est impossible sans l'ouvrir (dans la liste des messages reçus par exemple)... Cela serai bien pratique pour examiner l'en-tête d'un message suspect.

    Une macro VBA pourrait elle contourner cette limitation ?

    Perso, je ne suis pas assez caler en VBA mais vous peut être ?

    Merci pour vos propositions.
    A+
    Jean-Claude

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 537
    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 537
    Points : 6 126
    Points
    6 126
    Billets dans le blog
    16

    Par défaut

    Bonjour,

    Voici , il faut ajouter un formulaire pour créer une référence à Microsoft Form...

    le contenu du header se copie dans le presse papier

    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
    Sub get_header_PutInClipboard()
        Dim obj, objmail As Outlook.MailItem
        Dim mailHeader
        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
     
        Set objmail = obj
     
        Const PR_TRANSPORT_MESSAGE_HEADERS = "http://schemas.microsoft.com/mapi/proptag/0x007D001F"
        mailHeader = objmail.propertyAccessor.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS)
        With New DataObject
            .SetText mailHeader
            .PutInClipboard
        End With
     
    End Sub

  3. #3
    Membre du Club
    Inscrit en
    mai 2009
    Messages
    146
    Détails du profil
    Informations forums :
    Inscription : mai 2009
    Messages : 146
    Points : 50
    Points
    50

    Par défaut

    J'y crois pas ! Il faut accéder à un site Microsoft pour obtenir l'en-tête du message en VBA ? Est-ce que ça veut dire que l'on fait aussi un accès chez Microsoft quand on visualise tout simplement le code source du message ???

    AMIcalement.

  4. #4
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 537
    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 537
    Points : 6 126
    Points
    6 126
    Billets dans le blog
    16

    Par défaut

    Non en fait "http://schemas.microsoft.com/mapi/proptag/0x007D001F" n'est pas une adresse internet mais un namespace

    pas de big brother dans ce code !

  5. #5
    Membre du Club
    Inscrit en
    mai 2009
    Messages
    146
    Détails du profil
    Informations forums :
    Inscription : mai 2009
    Messages : 146
    Points : 50
    Points
    50

    Par défaut

    Citation Envoyé par Oliv- Voir le message
    Non en fait "http://schemas.microsoft.com/mapi/proptag/0x007D001F" n'est pas une adresse internet mais un namespace

    pas de big brother dans ce code !
    Je ne comprends quand-même pas. Ce "namespace" ne pourait pas s'appeler "toto", ou "olMailHeader" ? Et s'il s'appelle comme ça, ça n'a absolument rien à voir avec quelque chose qui se trouve sur Internet ? (d'ailleurs 1:- cette adresse ne répond pas, et 2:- les adresses chez microsoft.com passent leur temps à changer : tu es sûr que ton code fonctionnera encore dans six mois ?).

    AMIcalement.

  6. #6
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 537
    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 537
    Points : 6 126
    Points
    6 126
    Billets dans le blog
    16

    Par défaut

    C est effectivement déroutant...

  7. #7
    Membre du Club
    Inscrit en
    mai 2009
    Messages
    146
    Détails du profil
    Informations forums :
    Inscription : mai 2009
    Messages : 146
    Points : 50
    Points
    50

    Par défaut

    Citation Envoyé par Oliv- Voir le message
    C est effectivement déroutant...
    Mais permets-moi d'insister : cette application m'intéresse, car il me semble possible d'en tirer parti pour éviter de s'emm... avec les no-ip et autres pseudo-gratuits : Si, dans ma maison de campagne, j'ai un raspberry qui m'envoie un mail tous les jours, et que j'ai un moyen fiable (à défaut d'être simple) d'en extraire son IP, c'est réglé.

    Puis-je demander d'où tu tiens ce nom de namespace ? Puis-je demander s'il fonctionne uniquement comme une chaîne de caractères, ou bien si son utilisation suppose un accès Internet ? Puis-je demander s'il est certain que ce nom (ce lien Internet, peu ou prou) n'est pas susceptible de changer suivant le bon vouloir de M. µ$ ?

    Merci.

    AMIcalement.

Discussions similaires

  1. Réponses: 1
    Dernier message: 06/02/2019, 19h37
  2. VBA Outlook pour envoyer un mail avec pièce jointe
    Par Deyd96 dans le forum VBA Outlook
    Réponses: 2
    Dernier message: 05/01/2018, 09h37
  3. [WD-2010] Code VBA - WORD - Outlook pour mise en forme d'un message
    Par xav31so dans le forum VBA Word
    Réponses: 19
    Dernier message: 27/11/2013, 10h50
  4. Utiliser AdvancedSearch sous VBA Excel pour lire les emails d'Outlook
    Par jean.cdc dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 28/02/2011, 16h29
  5. Comment faire pour tester un checkbox d'un classeur fermé sans l'ouvrir?
    Par elbourin dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 06/08/2008, 13h59

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