Discussion :

[Anonymee]

Bonjour,

Je voudrais savoir comment garder un mail non-lu alors que via ma macro il devient lu.
La macro que j'ai crée permet d'envoyer un mail que j'ai reçue dans ma boîte mail ,qui a été justement repéré par cette macro au préalable, dans un dossier public qui regroupera ce type de mail. Mais le problème c'est que je veux garder ses mails en mails non-lus alors que automatiquement le logiciel me les comptes comme si je l'ais avez lus.

Mes remerciements d'avance.

[Jean-Philippe André]

Bonjour,

Est-ce bien une demande par macro ?

Code :

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

myitem.UnRead=True

[Anonymee]

Bonjour,

Est-ce bien une demande par macro ?

Bonjour,

Oui c'est bien un code par macro voila le code en question :

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
Sub FindFolder(oMailItem As Outlook.MailItem, CodeAffaire As String)
    Dim Dossier As String
    Dim CodeAffaireDossier As String
 
    Dim DossierTrouve As Boolean
 
    Dim oFolders As Outlook.Folders
    Dim oFolder As Outlook.Folder
 
    Dossier = "Test_Macro"
 
    Set oFolders = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item(Dossier).Folders
    For i = 1 To oFolders.Count
        CodeAffaireDossier = Left(oFolders.Item(i).Name, 8)
        Set oFolder = oFolders.Item(i)
        If CodeAffaireDossier = CodeAffaire Then
            MsgBox ("J'ai trouvé le numéro d'affaire : " & CodeAffaireDossier)
            DossierTrouve = True
            oMailItem.Move oFolder
            Debug.Print oMailItem.UnRead
            oMailItem.UnRead = True
        End If
    Next i
    If Not DossierTrouve Then
        MsgBox (CodeAffaire + " non trouvé")
    End If
 End Sub

Mais dès que sa arrive dans le dossier souhaité le mail est automatiquement lu alors que je ne veut pas qu'il le soit