Search results

P.S. I would preffer one macro with 50 folders listed, but how can I do that?..

Thank you Diane! I choose to copy 50 macros then. But how do I get this macro work? I have: Sub Mark_as_read() End Sub At "module 1" to have this macro a name and possibility to run and: Private Sub Application_Startup() Set Items =...

Thank you once again! I hope to hear the result if any from your other specialists. Thanks in advance!

Dear Diane, Thank you, but I am still going crazy over here.. What I have now is: Private WithEvents Items As Outlook.Items Private Sub Application_Startup() Set Items = Session.GetDefaultFolder(olFolderInbox).Folders("TEXT").Items End Sub Private Sub Items_ItemAdd(ByVal...

I now see more explanations you gaved, but I am still confused. 1.) You write that I don't need all the code from the page.. you mean that I don't need that function and just this? Sub Whatever() Dim Ns As Outlook.NameSpace Set Ns = Application.GetNamespace("MAPI") 'use the default...

Yes, I have seen that and have tried to put that in use for several times, but it have not worked so far. Maybe I do something wrong with that function. (Also it keeps pointing at "Private WithEvents Items As Outlook.Items" as compiling error). Besides, if I read correctly it is for "Use a...

Dear Diane Poremsky, I have a year old problem and hopefully with your help I can solve it. I have created rules to move a copy of every message I sent to a specific Inbox folder. It works fine, but every moved copy shows up as "unread". It takes time to go through all folders and click...