Finding messages by conversation macro

[Nagua]

I am familiar with some VBA macro writing in Word but no nothing for how to

do this in Outlook. I am trying to accomplish the following:

Find all email messages, by conversation, after I reply to a message with a

certain phrase and move it to Folder named Completed Work.

I attempted to run a rule, but I need to run a script within the rule to

complete the "find messages by conversation" part.

Can this be accomplished and how?

Thanks!

 

[Ken Slovak - [MVP - Outlook]]

You would use a Find or Restrict on the Items collection of each folder

where you wanted to find those related items. The property to filter on is

the ConversationTopic property.

How you get a folder reference for something like Completed Work depends on

where it's located in the folder tree. Let's say the filter is just for

Inbox, code would look something like this:

Sub GetConversationItems(Item As MailItem)

Dim oFolder As Outlook.MAPIFolder

Dim colItems As Outlook.Items

Dim colFiltered As Outlook.Items

Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox)

Set colItems = oFolder.Items

Set colFiltered = colItems.Restrict("[ConversationTopic]='" &

Item.ConversationTopic & "'")

' now you have the items in that conversation, do something with them

End Sub

"Nagua" <Nagua> wrote in message

news:4A25F6C3-AB37-4D6F-910B-5736FCFE1FB5@microsoft.com...
> I am familiar with some VBA macro writing in Word but no nothing for how to
> do this in Outlook. I am trying to accomplish the following:

> Find all email messages, by conversation, after I reply to a message with
> a
> certain phrase and move it to Folder named Completed Work.

> I attempted to run a rule, but I need to run a script within the rule to
> complete the "find messages by conversation" part.

> Can this be accomplished and how?

> Thanks!

>