Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Outlook / Programming VBA / March 2006

Tip: Looking for answers? Try searching our database.

Marking as do not archive

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Jordan - 01 Mar 2006 23:01 GMT
Can any one help me with writing a macro that will mark the item that is open
or highlighted (ie: email, task, sent item) to not be auto archived.

Right now we have to open the time, click file/properties and then click
dont archive, ok and then save and close.  Not a big deal but would save some
time.

I only know how to write macros in the record mode, so I am totally lost in
Outlook.  Any help will be greatly appreciated.
Michael Bauer - 02 Mar 2006 07:08 GMT
Am Wed, 1 Mar 2006 15:01:28 -0800 schrieb Jordan:

Jordan,  first create a Public Sub, please. That could be started with F8,
or you could create a button manually for it.

The currently selected item is accessabe by
Application.ActiveExplorer.Selection(1), the opened one by
Application.ActiveInspector.CurrentItem.

Then set the item´s NoAging Property = True and save the item.

Signature

Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
 -- www.vbOffice.net --

> Can any one help me with writing a macro that will mark the item that is open
> or highlighted (ie: email, task, sent item) to not be auto archived.
[quoted text clipped - 5 lines]
> I only know how to write macros in the record mode, so I am totally lost in
> Outlook.  Any help will be greatly appreciated.
Jordan - 02 Mar 2006 17:14 GMT
Michael, Thanks for the information.  I got the macro running and was
wondering if there is a way to "unmark" it if it is already marked.  In other
words; if it is not checked it would check it and if it is checked it would
uncheck it.

Lots of checks!

Thanks for the help.

> Am Wed, 1 Mar 2006 15:01:28 -0800 schrieb Jordan:
>
[quoted text clipped - 19 lines]
> in
> > Outlook.  Any help will be greatly appreciated.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2009 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.