Russ Green
2009-01-16 19:10:04 UTC
I have an outlook 2007 adding and I want to detect when an email in my inbox
has been read, Once read I want to trigger a dialog to assist in filing the
message and attachments.
At the moment I am watching for when a mailitem in the inbox has changed and
checking it is unread which almost does the job expect the event fires more
often that I would like. Whats the best method of dealing with this?
Private Sub InboxItemsItemChange(ByVal changedItem As Object)
If TypeOf changedItem Is Outlook.MailItem Then
If DirectCast(changedItem, Outlook.MailItem).UnRead = False Then
Dim frmMain As New frmMain(New Outlook.Application,
changedItem)
frmMain.ShowDialog()
frmMain.Dispose()
End If
End If
End Sub
TIA
Russ Green
has been read, Once read I want to trigger a dialog to assist in filing the
message and attachments.
At the moment I am watching for when a mailitem in the inbox has changed and
checking it is unread which almost does the job expect the event fires more
often that I would like. Whats the best method of dealing with this?
Private Sub InboxItemsItemChange(ByVal changedItem As Object)
If TypeOf changedItem Is Outlook.MailItem Then
If DirectCast(changedItem, Outlook.MailItem).UnRead = False Then
Dim frmMain As New frmMain(New Outlook.Application,
changedItem)
frmMain.ShowDialog()
frmMain.Dispose()
End If
End If
End Sub
TIA
Russ Green