Outlook mail rule to mark all received appointments as Private

I'm looking for a way to mark all received invites (and ideally all sent) as Private by default.

I can't see this on the normal rules menu so I'm guessing some VBA is required to execute under the 'run a script' option?
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Jian An LimSolutions ArchitectCommented:
for outgoing, you can do this http://www.msoutlook.info/question/677

for incoming, you need to run macro every few minutes
for example
SloppyAuthor Commented:
The problem I've got with running the macro to mark all, is that I will manually 'un private' some appointments and don't want these to be re-flagged as private all the time; this is why I was looking to do it once per appointment on receipt of the invite or change.
Jian An LimSolutions ArchitectCommented:
Just change the logic,
whenever you get the appointment, run a script (the script is not vb but macro in outlook, it is quite confusing)
and the macro should only apply to the received appointment, not as the whole

some example are located here

(i am not macro coder so I can't advice how to change the code )
 Dim myOlApp As New Outlook.Application
Public myOlItems As Outlook.Items
Public Sub MarkCalendarItemsAsPrivate()
#### you need to find the right code to mark for this message i guess. 
###########Set myOlItems = myOlApp.GetNamespace(“MAPI”).GetDefaultFolder(olFolderCalendar).Items
###########For Each Appointment In myOlItems
Appointment.Sensitivity = olPrivate
Next Appointment
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Applications

From novice to tech pro — start learning today.