"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