Outlook Macro problem

  • Thread starter Thread starter Victor Delta
  • Start date Start date
V

Victor Delta

Hi

I need to set a large number of Outlook calendar appointments to:

Show Time as: Free, and
Sensitivity: Private

I am having difficulty working out how to write a macro to do this, although
I'm sure there must be a way.

Can anyone help please?

Thanks

V
 
dim obj as object
dim appt as Outlook.AppointmentItem
dim Folder as Outlook.Mapifolder

Set Folder=Application.Session.Pickfolder
If not Folder is Nothing Then
for each obj in Folder.Items
If TypeOf obj is Outlook.AppointmentItem then
with appt
.BusyStatus=0
.Sensitivity=olPrivate
.Save
End with
Endif
Next
Endif

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

Am Tue, 5 Dec 2006 20:52:38 -0000 schrieb Victor Delta:
 
Michael Bauer said:
dim obj as object
dim appt as Outlook.AppointmentItem
dim Folder as Outlook.Mapifolder

Set Folder=Application.Session.Pickfolder
If not Folder is Nothing Then
for each obj in Folder.Items
If TypeOf obj is Outlook.AppointmentItem then
with appt
.BusyStatus=0
.Sensitivity=olPrivate
.Save
End with
Endif
Next
Endif
Click to expand...
Many thanks, I'll give it a go.

V
 
Back
Top