View Single Post
  #3  
Old December 9th 06, 07:12 PM posted to microsoft.public.outlook.program_vba
Victor Delta
external usenet poster
 
Posts: 9
Default Outlook Macro problem


"Michael Bauer [MVP - Outlook]" wrote in message
.. .


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 --

Many thanks, I'll give it a go.

V


Ads