Markeringstatus vlag groen kleuren

[adsl282044]

Ik heb een code geschreven in VBA voor Outlook 2003 waarbij op basis van de naam van de bijlage het item er bij wordt gezocht. Nu wil ik indien het item gevonden is de markeringsstatus vlag groen kleuren, wil echter verder niks doen qua opvolging. Wie kan mij helpen aan de juiste code?

Dit is wat ik nu heb

Sub saving_email_as_text()

Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim Bijlage1 As Variant
Dim Bijlage As Variant
 
Bijlage = "Test.doc"
Set Inbox = Outlook.Application.GetNamespace("MAPI").Folders("Persoonlijke mappen").Folders("Postvak IN")

If Inbox.Items.Count = 0 Then
MsgBox "There are no messages in the Inbox.", vbInformation, _
"Nothing Found"
Exit Sub
End If

For Each Item In Inbox.Items

If Item.Attachments.Count >= 1 Then
Bijlage1 = ""
Bijlage1 = Item.Attachments.Item(1).DisplayName

If Bijlage1 = Bijlage 
'Item.Display
' ik zou graag de vlag bij dit item groen willen laten kleuren.
Naam = Item.Body
afzender = Item.SenderEmailAddress
Tijd = Item.ReceivedTime
End If

End If

Next Item

End Sub

Heb uiteindelijk zelf de juiste code gevonden

Item.FlagIcon = olGreenFlagIcon
Item.Save

Indien je het item niet opslaat dan gebeurd er verder niks.