![]() ![]() Set propertyAccessor = objVariant.propertyAccessor Because Reply, Reply all, and Forward values are 102, 103, and 104, and to the best of my knowledge, those are the only possible values, we can leave the lastaction value at 7 (was intDateDiff in the original macro). ![]() and objVariant.Move lines with the code block below. Using the first macro on this page as the base, replace the code block between the If objVariant.Class. With a few simple changes, you can convert the macro above to move messages that were replied to or forwarded.īegin by adding these lines to the top of the macro with the other Dim statements.ĭim propertyAccessor As Outlook.propertyAccessor Set objDestFolder = GetFolderPath("my-data-file-name\Inbox") When I add a macro that uses a function, I can easily see if I have that function already. Tip: A function can be used by any macro, so I keep the functions together in a separate module. That line is the only change needed to use a different data file (well, that line and the function). If you want to move the messages to a new data file, you need to change the destination folder path: Set objDestFolder = to use the GetFolderPath function: Set objDestFolder = GetFolderPath("new-pst-file\folder-name"). MsgBox "Moved "
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |