Y
yajiv.vijay
I want to move a message to a specified folder once its flagged. How
can I detect that flagging event from vba?
can I detect that flagging event from vba?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
K
Ken Slovak - [MVP - Outlook]
You'd have to handle the ItemChange event of the Items collection and check
to see what was changed. An alternative would be to instantiate event
handlers for any selected or open item and handle the item.PropertyChange
event but that wouldn't get you items flagged from the context menu since
those might not be selected.
to see what was changed. An alternative would be to instantiate event
handlers for any selected or open item and handle the item.PropertyChange
event but that wouldn't get you items flagged from the context menu since
those might not be selected.
Y
yajiv.vijay
I dont see any itemchange event in thisoutlooksession. Can you
explain with example?
explain with example?
K
Ken Slovak - [MVP - Outlook]
It's the ItemChange event of the Items collection of the folder, as I said
originally. Look in the Object Browser for the Items collection and look at
its events.
originally. Look in the Object Browser for the Items collection and look at
its events.
Y
yajiv.vijay
It's the ItemChange event of the Items collection of the folder, as I said
originally. Look in the Object Browser for the Items collection and look at
its events.
--
Ken Slovak
[MVP - Outlook]http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Optionshttp://www.slovaktech.com/products.htm
I dont see any itemchange event in thisoutlooksession. Can you
explain with example?
- Show quoted text -
I just don't get how to activate that event. for example i want to
show a message box once a mail is flagged.
can you show me how?
K
Ken Slovak - [MVP - Outlook]
Well, you didn't mention what types of items were being flagged or in what
folder or folders, but this would work for mail items in the Inbox. This
code would be in ThisOutlookSession:
Dim WithEvents colItems As Outlook.Items
Dim oFolder As Outlook.MAPIFolder
Private Sub Application_Startup()
Dim oNS As Outlook.NameSpace
Set oNS = Application.GetNameSpace("MAPI")
Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
Set colItems = oFolder.Items
End Sub
Private Sub colItems_ItemChange(Item As Object)
If Item.FlagStatus = OlFlagStatus.olFlagMarked Then
' show MsgBox here or whatever
End If
End Sub
<snip>
I just don't get how to activate that event. for example i want to
show a message box once a mail is flagged.
can you show me how?
folder or folders, but this would work for mail items in the Inbox. This
code would be in ThisOutlookSession:
Dim WithEvents colItems As Outlook.Items
Dim oFolder As Outlook.MAPIFolder
Private Sub Application_Startup()
Dim oNS As Outlook.NameSpace
Set oNS = Application.GetNameSpace("MAPI")
Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
Set colItems = oFolder.Items
End Sub
Private Sub colItems_ItemChange(Item As Object)
If Item.FlagStatus = OlFlagStatus.olFlagMarked Then
' show MsgBox here or whatever
End If
End Sub
<snip>
I just don't get how to activate that event. for example i want to
show a message box once a mail is flagged.
can you show me how?