Mark read mails to unread

[TheOne23]

Hi MVPs and Experts,

I would like to have your kind assistance to check what is wrong with below code. The below code is to mark all read mails in the specified folder as unread.

Your help will be greatly appreciated.

 

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

$aItems = _OL_ItemFind($oOutlook, "ronald.paggao@infosys.com\Inbox\!!! IJP\", $olMail, "[UnRead]=false", "", "", "EntryID,Subject,Body,SenderEmailAddress", "", 1)
;_ArrayDisplay($aItems)
$iRows = (UBound($aItems, $UBOUND_ROWS))-1
;MsgBox(0,"count: ",$iRows)

For $i=1 To $iRows Step 1
    _OL_ItemModify($oOutlook,$aItems[$i][0], Default, "Unread=True")
Next

 

[water]

What's the value of @error after _OL_ItemFind and after _OL_ItemModify?

[Nine]

Try : 

Global $oItem = _OL_ItemGet($oOutlook, $aItems[1][0], Default, -1)
$oItem.Unread = True

Where $aItems[n][0] is EntryID.  Works for me...

[TheOne23]

Hi Water,

I got @error = 100

Thanks

[TheOne23]

Hi Nine,

 

I will check your script.

Thank you.

[water]

4 minutes ago, TheOne23 said:

I got @error = 100

returned from _OL_ItemFind or _OL_ItemModify?

[TheOne23]

Hi Water,

returned from _OL_ItemModify

 

 

[TheOne23]

Hi Water,

there is no error return for _OL_ItemFind.

With _OL_ItemFind  it is working and i check it with _arraydisplay()

 

[TheOne23]

Hi Nine,

does't work for me. But has no error at all.

Tried below to check if any error is registered in @error but none.

For $i=1 To $iRows Step 1
    Global $oItem = _OL_ItemGet($oOutlook, $aItems[$i][0], Default, -1)
    if @error then MsgBox(0,"Error: ", @error)
    $oItem.Unread = true
Next

By the way what does "-1" means?

[TheOne23]

Hi Guys,

I finally made it work now. Below is my code.

Thank you so much for your time and help on this.

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

$aItems = _OL_ItemFind($oOutlook, "ronald.paggao@infosys.com\Inbox\!!! IJP\", $olMail, "[UnRead]=false", "", "", "EntryID,Subject,Body,SenderEmailAddress", "", 1)
;_ArrayDisplay($aItems)
if @error then MsgBox(0,"Error: ", @error)
$iRows = (UBound($aItems, $UBOUND_ROWS))-1

For $i=1 To $iRows Step 1
    _OL_ItemModify($oOutlook,$aItems[$i][0], Default, "UnRead=true")
    if @error then MsgBox(0,"Error: ", @error)
Next

Thanks Water!

[water]