Search Inbox for a word. Send to Specified Folder

[Citanaf]

Hello All,

I'm sure this topic has been asked before, but I was receiving the below error message when using this forums search function.

header('HTTP/1.1 503 Service Temporarily Unavailable'); header('Status: 503 Service Temporarily Unavailable'); header('Retry-After: 17200'); // in seconds print "TEST123";

I would like to create a macro that, when executed, would search my current inbox for any emails with the keyword in either the body or subject (from sender would also be great), and move them to the specified folder. Below is the code which somewhat works. There are a few issues that need to be resolved.

• The macro must be executed each time in order to move a single email from the inbox to the destination folder. The goal is to have this macro move all items that fit the specified criteria be moved in a single keystroke (click).
• The macro does not move items with the keyword in the subject, only emails with the keyword in the body will get moved to the destination folder.

If there is a better method for moving folders than using an InStr, I would be happy to use that as well. This code is far from optimal as my limited experience with VBA is from excel, not outlook. The below code has been copied from different sources to fit my needs.

Thank you for your time

Please Login or Register  to view this content.

[skatonni]

Remove Exit For.

The code for Subject appears to work fine.

[Citanaf]

Wow, silly I missed that.

Ok so it seems to be working pretty well. It does move the emails all at once. Although it requires me to click twice or three times. Not sure what is hanging up the For statement. As far as the SenderEmailAddress property goes, is my syntax on this correct? Do I need an @ sign or perhaps a different property would be appropriate?

Thank you

Please Login or Register  to view this content.

[skatonni]

For Each works like For i = 1 to item.count. When For Each does not work, the reason is as follows.

On a move or delete, when item one is removed from the collection, item two moves into position one but processing moves on to position two which now contains item three, skipping item two.

One alternative is:

Please Login or Register  to view this content.

Try Debug.Print myTasks(i).SenderEmailAddress to see exactly what you should be looking for. There is as well myTasks(i).Sender but it should not matter.

[Citanaf]

Code was perfect.

thank you for the explanation. I appreciate that.

Marking thread as solved.