VBA Outlook mailitem sluiten

[adsl282044]

Ik in Outlook een code geprogrameerd die een item zoekt opbasis van de bijlage. Nu
laat ik het mailbericht zien met de code :
Item.Display
Nu wil ik het item door middel van de code weer laten sluiten. Hoe doe ik dit ??

 

[ReneDirks]

Wellicht

item.Close

 

[adsl282044]

Toch nog een vraag

Als ik onder "Item.Display" in de code "Item.Close" toevoeg dan komt hij met een foutmelding aanzetten "Compileerfout: Het argument is niet optioneel" waarbij hij verwijst naar Close. Hier onder een deel van mij code, wat doe ik fout ??

Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim FileName As String
Dim Teller As Integer
Dim Nummer As Integer
Dim Gevonden As Integer
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
Nummer = Nummer + 1

If Item.Attachments.Count >= 1 Then
Bijlage1 = ""
Bijlage1 = Item.Attachments.Item(1).DisplayName
If Bijlage1 = Bijlage Then
Item.Display
...
...
Item.Close
Gevonden = Nummer
Teller = Teller + 1
Naam = Item.Body
afzender = Item.SenderEmailAddress
Tijd = Item.ReceivedTime
End If
End If

Next Item



...

 

[ReneDirks]

Als ik onder "Item.Display" in de code "Item.Close" toevoeg dan komt hij met een foutmelding aanzetten "Compileerfout: Het argument is niet optioneel" waarbij hij verwijst naar Close.

Je moet bij Close nog een argument meegeven, nl SaveMode:

    Item.Close olDiscard
    Item.Close olPromptForSave
    Item.Close olSave