Discussion :

[Hakhan]

Bonjour la communauté,

Cela fait déjà longtemps que je suis sur le forum et j'ai toujours trouvé la solution à mes différents problèmes (notamment vba pour Excel) et je voulais en profiter pour remercier tous ceux qui fournissent leur aide aux novices.

Je viens vers vous car j'ai un soucis avec Outlook et je ne trouve de solutions nulle part. Alors voilà, dans le cadre de mon travail je possède une adresse mail perso et une autre dédiée au bureau (adresse fonctionnelle). Nous sommes 5 à travailler en permanence sur cette fonctionnelle et il arrive que certains mails qui n'ont pas était traités restent en lu. Ma question est de savoir si il serait éventuellement possible de récupérer l'identifiant de l'utilisateur ayant ouvert un mail.
Nous avons décidés de mettre en place cette procédure étant donné qu'après plusieurs rappels comme quoi quand on lis un message mais qu'on ne le traite pas il était impératif de le replacer en non lu.

Toutes solutions possibles sont envisageable. Que ce soit exporter les infos vers un fichier Excel ou texte ou même créer une entrée dans le journal avec toutes les informations nécessaires. Ou si vous avez d'autres idées je suis preneur.

J'espère que mon problème n'est pas insoluble et que quelqu'un pourra me proposer une solution.

Merci en tout cas à ceux qui prendrons la peine de se pencher sur mon problème.

[Oliv-]

Bonjour,
Par défaut, Outlook marque lu les messages lorsque l'on prévisualise l'Email.
L'info "lu/non lu" n'est donc pas fiable pour indiquer si le message à été traité

soit vous utilisez "marqué comme terminé" ce qui met un V à l'emplacement des drapeaux.

soit vous déplacez les mails traités dans un dossier traité.

pour répondre à une partie de la question, on ne sait pas définir qui à agit sur la mail

[Hakhan]

Merci pour votre réponse.

Le fait que le mail passe en lu suite à la sélection n'est pas un soucis étant donné que le volet de lecture est désactivé.
Traiter le mail soit en le plaçant dans un dossier soit en le marquant comme tel est un moyen "sensé" être déjà en application mais bien souvent l'interface siège/clavier bug sur ce point...

Pardonnez moi si je me trompe mais il est possible de lancer une macro à l'ouverture d'un mail ainsi que de stocker dans des variables certaines informations tels que l'objet, la date, l'heure et le nom d'utilisateur. Il est aussi possible de générer un fichier Excel à partir d'outlook via vba. Mon idée serait que pour chaque ouverture d'un mail reçu les informations mentionnées précédemment soient stocké dans des variables et automatiquement exportées dans un classeur Excel sur une nouvelle ligne.

J'espère avoir était clair dans mon explication.

Encore merci pour votre réponse et bonne journée

[Oliv-]

c'est pas faux !

Il faut que tous les utilisateurs aient OUTLOOK (attention aux comptes sur SMARTPHONE) et qu'ils aient aussi la macro d'activée;

Sur la base de ce code
https://www.developpez.net/forums/bl...mails-outlook/
vous pouvez loguer, qui ouvre un Email ou le prévisualise et d'autres événements.

[Oliv-]

par exemple à la fermeture du mail on peut vérifié s'il est marqué comme non lu

Code :

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

1
2
3
4
5
Private Sub m_Mail_Close(Cancel As Boolean)
MsgBox m_Mail.UnRead, , "Non lu ?"
 
    CloseEmail
End Sub

[Hakhan]

Merci pour la réponse et pour le lien.
Pour la macro sur tous les postes et pour les smartphone ce n'est pas un soucis. J'ai accès aux postes de tous mes collègues et personne n'utilise de smartphone. Nous sommes sur un réseau local avec intranet donc pas de smartphone.
J'ai vite fait essayé de comprendre le code mais c'est un peu compliqué pour moi à comprendre. Je testerai lundi car à la maison je n'ai pas office.

Bon week-end

[Hakhan]

Bonjour

Je viens de regarder plus en détail le code que vous m'avez envoyé. J'ai essayé d'adapter à mon besoin mais je me suis vite rendu compte que j'étais complètement largué.
Pouvez vous s'il vous plaît m'expliquer comment m'y prendre.

Merci.

[Oliv-]

Bonjour,
Ce ne sera pas facile pour un débutant !

Il faut reprendre le code du lien au #4 et celui du #5 ensuite il te faut un code pour logger dans un fichier excel ou autre (un fichier csv serait mieux ).

Il faut déjà savoir ce que tu veux dans ton fichier de log ! où sera ce fichier,etc...

[Hakhan]

Et il n'y a pas moyens de faire quelque chose de plus simple sans passer par les modules de classe?
Dans le genre:
1-Je déclare la boîte qui est surveillée (les mails reçus sur les boîtes perso ne nous regarde pas)
2-Je récupère dans une variable l'identité de l'utilisateur
3-A l'ouverture du mail je récupère:
a-La date et l'heure du jour
b-L'emmeteur du mail
c-L'objet du mail
4-Je vais dans mon fichier Excel, je prends la dernière ligne non vide, je rajoute 1 et ensuite je colle mes informations.
5-J'enregistre et je ferme mon fichier.

[Oliv-]

Si ce sont les seules infos que ru as besoin oui on peut simplifier je tenverrai un exemple plus tard

[Hakhan]

Oui c'est tout ce dont j'ai besoin.
Merci pour l'exemple (à venir).

[Oliv-]

A METTRE DANS THISOUTLOOKSESSION

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
Public WithEvents AM As MailItem
 
Private Sub Application_ItemLoad(ByVal Item As Object)
'se déclenche à la selection du mail
' Vérifis que le formulaire est bien celui d'un MAIL
    If Item.Class <> olMail Then Exit Sub
    Set AM = Item
End Sub
 
 
Private Sub AM_Open(Cancel As Boolean)
' se déclenche à l'ouverture du Mail
dim user
  If InStr(1, AM.Parent.FolderPath, "\\BALPARTAGEE", vbTextCompare) > 0 Then
        user = Application.Session.CurrentUser.Name
        OuvertLe = Date & " " & time()
        ExpED = AM.Sender.Name
        Sujet = AM.Subject
        Du = AM.ReceivedTime
        ID = AM.EntryID
        MsgBox user & vbCr & OuvertLe & vbCr & ExpED & vbCr & Sujet & vbCr & Du & vbCr & ID
    End If
End Sub

[Hakhan]

Bonjour,

Merci pour le code. Il fonctionne bien.
Le seul problème c'est que maintenant lorsque je veux soit écrire un nouveau message, soit répondre ou soit transférer le mail reçu j'ai une erreur d'exécution 91 Variable objet ou variable de bloc Witherspoon non définie.
Cette erreur pointe vers la ligne ExpEd = am.Sender.Name
Comment faire pour ne plus avoir cette erreur?

[Oliv-]

salut,

rajoutes ce test avant le premier if

[CODE]'On test si c'est un Nouveau Mail / réponse / Transfert
If AM.Sent = False And AM.ReceivedByName = "" Then exit sub