Which is a good indication that the MarkAsRead sub does not even get called,
right?

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"mkboynton via OfficeKB.com" u10467@uwe wrote in message
news:97bfa27ab6127@uwe...
Dmitry Streblechenko wrote:
What is the relevant snippet of your code? Do you call MailItem.Save?

Have you tried to set teh Unread property to false?
Do not loop through all the messages in a folder. Use
Items.Find/FindNext
[quoted text clipped - 9 lines]
but
it seems to ignore the onclick since I have a a href


Here is what I have so far...it doen's even fire the MsgBox.
Sub MarkAsRead()
Dim theApp
Dim theOLNS

Set theApp = window.external.OutlookApplication
Set theOLNS = theApp.ActiveExplorer.Selection(1)

MsgBox "Marking as read"

If theOLNS.UnRead = True then
theOLNS.UnRead = False
theOLNS.Save
End If

Set theApp = Nothing
Set theOLNS = Nothing

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...g-vba/200906/1