I have some macros I would like to create to automate the movement of
emails. But I am not that good with Outlook VBA. Here is what I'd
like to do.

Move Certain Sent Items to Personal Folder (When I start Outlook)

- I want it move all of the Sent Items in my Sent Folder, that are over
7 days old, and have a read receipt that's been processed, to my
personal folders. (I do know how to use a macro to get the folder ID)
- Move all Sent Items from my Sent folder, that are over 21 days old to
my personal folders.


Any help would be appreciated.

Moving e-mails from the Sent Items folder if the corresponding recipient has
released a read receipt you have received is too difficult to write quickly,
but it is possible.

You can start by using the Application_Startup event in the
ThisOutlookSession module. Call your procedure from there to automatically
process items in your Sent Items folder. If you have the folder ID, you can
use the MAPIFolder.Items property to return an Items collection object that
you can call the Restrict method on, using a filter as an argument to that
method:

E.g. To filter for items received after January 15, 1999 at 3:30 P.M.:

sFilter = "[ReceivedTime] '" & Format("1/15/99 3:30pm", "ddddd h:nn AMPM")
& "'"

You'll need to use some DateDiff functions to customize the filter to look
for X days beforehand. You can then iterate through the Items collection and
call Item.Move(DestFolder).

To take it all the way, use the ItemAdd event for an Items object retrieved
from the Inbox's MAPIFolder object (use NameSpace.GetDefaultFolder) declared
WithEvents. You can use the Item argument in that event to look for read
receipts and compare the subject or recipient or message body against
messages in the Sent Items folder.

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Murphybp2" wrote:

I have some macros I would like to create to automate the movement of
emails. But I am not that good with Outlook VBA. Here is what I'd
like to do.

Move Certain Sent Items to Personal Folder (When I start Outlook)

- I want it move all of the Sent Items in my Sent Folder, that are over
7 days old, and have a read receipt that's been processed, to my
personal folders. (I do know how to use a macro to get the folder ID)
- Move all Sent Items from my Sent folder, that are over 21 days old to
my personal folders.


Any help would be appreciated.