Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Make all past appointments private

Posted on 2006-11-17
7
Medium Priority
?
843 Views
Last Modified: 2012-06-27
Hi All,

We're migrating to an exchange server in the future at which point we'll all being sharing calendars.  Is there an easy way to mark all of my past appointments as Private?

Thanks, Ron
0
Comment
Question by:larkinstreetyouth
  • 4
  • 3
7 Comments
 
LVL 76

Accepted Solution

by:
David Lee earned 800 total points
ID: 17971333
Hi larkinstreetyouth,

Assuming that by "all of my past appointments" you mean all the appointments currently on your calendar, then the script below will get the job done.  Follow these instructions to use this.

1.  Start Outlook.
2.  Click Tools->Macro->Visual Basic Editor.
3.  If not already expanded, expand Modules and click on Module1.
4.  Copy the code below and paste it into the right-hand pane of the VB Editor.
5.  Edit the code as needed.  I placed comment lines where things need to change.
6.  Click the diskette icon on the toolbar to save the changes.
7.  Close the VB Editor.
8.  Click Tools->Macro->Security.
9.  Change the Security Level setting to Medium.
10.  Switch to your calendar.
11.  Run the macro.

Sub MakeAllAppointmentsPrivate()
    Dim olkAppt As Outlook.AppointmentItem
    For Each olkAppt In Application.ActiveExplorer.CurrentFolder.Items
        olkAppt.Sensitivity = olPrivate
        olkAppt.Save
    Next
    Set olkAppt = Nothing
    MsgBox "All done!"
End Sub

Cheers!
0
 

Author Comment

by:larkinstreetyouth
ID: 17981636
Looks great!  I have no prior knowledge of Visaul Basic so...

I'm not sure which are the copmment lines and what data i need to change.

Thanks!
~Ron
0
 
LVL 76

Expert Comment

by:David Lee
ID: 17982827
Hi, Ron.  

Comment lines would appear in green in Outlook's VB editor.  In this case there aren't any comment lines.  Sorry for the confusion, that's a generic set of instructions I use.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:larkinstreetyouth
ID: 17982908
When I try to run it, I get a run-time error 13 type mismatch. When I debug it stops at the following line:  For Each olkAppt In Application.ActiveExplorer.CurrentFolder.Items
0
 
LVL 76

Expert Comment

by:David Lee
ID: 17983044
Did you select the calendar folder?
0
 

Author Comment

by:larkinstreetyouth
ID: 17983348
Ahhh, way cool. Thank you so much!

~Ron
0
 
LVL 76

Expert Comment

by:David Lee
ID: 17983393
You're welcome.
0

Featured Post

[Webinar On Demand] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article will help to fix the below error for MS Exchange server 2010 I. Out Of office not working II. Certificate error "name on the security certificate is invalid or does not match the name of the site" III. Make Internal URLs and External…
Are you looking for the options available for exporting EDB files to PST? You may be confused as they are different in different Exchange versions. Here, I will discuss some options available.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
As many of you are aware about Scanpst.exe utility which is owned by Microsoft itself to repair inaccessible or damaged PST files, but the question is do you really think Scanpst.exe is capable to repair all sorts of PST related corruption issues?
Suggested Courses

571 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question