IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

VBA Outlook Discussion :

Comment savoir si mon objet MailItem est en mode lecture ou en mode modification ?


Sujet :

VBA Outlook

  1. #1
    Membre à l'essai
    Homme Profil pro
    Chef de projet NTIC
    Inscrit en
    Juillet 2019
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chef de projet NTIC
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2019
    Messages : 8
    Points : 11
    Points
    11
    Par défaut Comment savoir si mon objet MailItem est en mode lecture ou en mode modification ?
    Bonjour,

    Comment puis-je savoir si mon objet MailItem est en mode lecture (le message a été ouvert pour être lu) ou bien en mode modification (le message ouvert est soit un nouveau message, soit une réponse) ?

    Merci d'avance pour votre aide.

    Yoyo06

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Bonjour,

    Voici un test correspondant.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     Dim Oitem As Object
     Set Oitem = ActiveInspector.CurrentItem
     
        If Oitem.Subject = "" And Oitem.Sent = False And Oitem.ReceivedByName = "" Then MsgBox "Nouveau mail"
     
        If Oitem.Sent = True And Oitem.ReceivedByName = "" Then MsgBox "Element envoyé"
     
        If Oitem.Sent = False And Oitem.ReceivedByName = "" And Oitem.ConversationIndex <> "" Then MsgBox "Nouvelle réponse ou transfert"
     
        If Oitem.Sent = True And Oitem.ReceivedByName <> "" Then MsgBox "Element reçu"
    Après il peut y avoir une notion de lecture seule concernant un mail reçu si tu veux le modifier

  3. #3
    Membre à l'essai
    Homme Profil pro
    Chef de projet NTIC
    Inscrit en
    Juillet 2019
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chef de projet NTIC
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2019
    Messages : 8
    Points : 11
    Points
    11
    Par défaut
    Super, merci beaucoup Oliv, ça marche nickel !!!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Comment savoir si mon "use module" est obsolette .
    Par Wire.Less dans le forum Fortran
    Réponses: 5
    Dernier message: 27/04/2018, 17h46
  2. comment savoir si mon Windows XP est authentique
    Par salimtrois dans le forum Windows
    Réponses: 2
    Dernier message: 11/09/2012, 10h28
  3. [XL-2007] comment savoir si mon fichier excel est ouvert avec excel en anglais?
    Par nath-0-0 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/05/2010, 15h28
  4. Réponses: 1
    Dernier message: 06/08/2008, 16h53
  5. Comment savoir si un fichier Excel est ouvert en lecture seul
    Par patate5555 dans le forum VBA Access
    Réponses: 2
    Dernier message: 21/06/2007, 13h53

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