I'm helping a new user dump their calendar from a Palm Pilot, but they want
everythign to come into OLK 2003 marked as "Private". (The little check box
inthe lower right corner of the appointment window)
there are over 4300 items for 2005 alone! Is there a way for me to do
something, run something or write something that will automatically mark the
selected items? I have already discovered that this "Private" checkbox is
not a field that can be added to the View, nor can it be filtered or
searched by.

I really need help on this one!!
Thanks,
-Monica

Actually, you *can* filter or search either Private or non-Private
appointments.

I'd start with a list view like By Category because it lets you go through
all the appointments sequentially. To change the view, it's View, Arrange
By, Current View, By Category. (To return to the default view, it's View,
Arrange By, Current View, Day/Week/Month)

From there, click the Options button and select Advanced Find.
Make sure you're looking for Appointments and Meetings and looking in the
Calendar.
Select the Advanced tab.
In the section that says Define More Criteria, click the Field button, then
the All Appointment Fields category, then select Sensitivity.
Equals should be your default Condition (though you can change it to Not
Equal To if you want only non-private appointments to appear), then change
the Value to Private.

I tried that with both a filter and a search and it worked.

Good luck!

tbgg
TrueBlueGeekGirl



"MLD" wrote:

> I'm helping a new user dump their calendar from a Palm Pilot, but they want
> everythign to come into OLK 2003 marked as "Private". (The little check box
> inthe lower right corner of the appointment window)
> there are over 4300 items for 2005 alone! Is there a way for me to do
> something, run something or write something that will automatically mark the
> selected items? I have already discovered that this "Private" checkbox is
> not a field that can be added to the View, nor can it be filtered or
> searched by.
>
> I really need help on this one!!
> Thanks,
> -Monica
>
>
>

Hi Monica,

after you´ve imported your appointments you can use this sample. It
searches for all non-private items in the standard calendar and makes
them private.

Public Function MakeAllAppointmentsPrivate()
Dim colItems As Outlook.Items
Dim sFilter As String
Dim obj As Object

sFilter = "[Sensitivity]<>2"
Set colItems =
Application.Session.GetDefaultFolder(olFolderCalendar).Items
Set colItems = colItems.Restrict(sFilter)
For Each obj In colItems
If TypeOf obj Is Outlook.AppointmentItem Then
With obj
.Sensitivity = olPrivate
.Save
End With
End If
Next
End Function


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook



MLD wrote:
> I'm helping a new user dump their calendar from a Palm Pilot, but
> they want everythign to come into OLK 2003 marked as "Private". (The
> little check box inthe lower right corner of the appointment window)
> there are over 4300 items for 2005 alone! Is there a way for me to do
> something, run something or write something that will automatically
> mark the selected items? I have already discovered that this
> "Private" checkbox is not a field that can be added to the View, nor
> can it be filtered or searched by.
>
> I really need help on this one!!
> Thanks,
> -Monica

Michael - thank you so much!
One small proble, I am getting a syntax error at the line "Set colItems=" ??
I directly copie dand pasted your text into the module window, so i know I
didn't mess it up that way.
Please advise?
-Monica
(Direct: (E-Mail Removed))

"Michael Bauer" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi Monica,
>
> after you´ve imported your appointments you can use this sample. It
> searches for all non-private items in the standard calendar and makes
> them private.
>
> Public Function MakeAllAppointmentsPrivate()
> Dim colItems As Outlook.Items
> Dim sFilter As String
> Dim obj As Object
>
> sFilter = "[Sensitivity]<>2"
> Set colItems =
> Application.Session.GetDefaultFolder(olFolderCalendar).Items
> Set colItems = colItems.Restrict(sFilter)
> For Each obj In colItems
> If TypeOf obj Is Outlook.AppointmentItem Then
> With obj
> .Sensitivity = olPrivate
> .Save
> End With
> End If
> Next
> End Function
>
>
> --
> Viele Gruesse / Best regards
> Michael Bauer - MVP Outlook
>
>
>
> MLD wrote:
> > I'm helping a new user dump their calendar from a Palm Pilot, but
> > they want everythign to come into OLK 2003 marked as "Private". (The
> > little check box inthe lower right corner of the appointment window)
> > there are over 4300 items for 2005 alone! Is there a way for me to do
> > something, run something or write something that will automatically
> > mark the selected items? I have already discovered that this
> > "Private" checkbox is not a field that can be added to the View, nor
> > can it be filtered or searched by.
> >
> > I really need help on this one!!
> > Thanks,
> > -Monica
>

Monica, please join "Set colItems=" and the next line into one line.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook



MLD wrote:
> Michael - thank you so much!
> One small proble, I am getting a syntax error at the line "Set
> colItems=" ?? I directly copie dand pasted your text into the module
> window, so i know I didn't mess it up that way.
> Please advise?
> -Monica
> (Direct: (E-Mail Removed))
>
> "Michael Bauer" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Hi Monica,
>>
>> after you´ve imported your appointments you can use this sample. It
>> searches for all non-private items in the standard calendar and makes
>> them private.
>>
>> Public Function MakeAllAppointmentsPrivate()
>> Dim colItems As Outlook.Items
>> Dim sFilter As String
>> Dim obj As Object
>>
>> sFilter = "[Sensitivity]<>2"
>> Set colItems =
>> Application.Session.GetDefaultFolder(olFolderCalendar).Items
>> Set colItems = colItems.Restrict(sFilter)
>> For Each obj In colItems
>> If TypeOf obj Is Outlook.AppointmentItem Then
>> With obj
>> .Sensitivity = olPrivate
>> .Save
>> End With
>> End If
>> Next
>> End Function
>>
>>
>> --
>> Viele Gruesse / Best regards
>> Michael Bauer - MVP Outlook
>>
>>
>>
>> MLD wrote:
>>> I'm helping a new user dump their calendar from a Palm Pilot, but
>>> they want everythign to come into OLK 2003 marked as "Private". (The
>>> little check box inthe lower right corner of the appointment window)
>>> there are over 4300 items for 2005 alone! Is there a way for me to
>>> do something, run something or write something that will
>>> automatically mark the selected items? I have already discovered
>>> that this "Private" checkbox is not a field that can be added to
>>> the View, nor can it be filtered or searched by.
>>>
>>> I really need help on this one!!
>>> Thanks,
>>> -Monica

That did it - and making it Private.
Thank you thank you!

"Michael Bauer" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Monica, please join "Set colItems=" and the next line into one line.
>
> --
> Viele Gruesse / Best regards
> Michael Bauer - MVP Outlook
>
>
>
> MLD wrote:
> > Michael - thank you so much!
> > One small proble, I am getting a syntax error at the line "Set
> > colItems=" ?? I directly copie dand pasted your text into the module
> > window, so i know I didn't mess it up that way.
> > Please advise?
> > -Monica
> > (Direct: (E-Mail Removed))
> >
> > "Michael Bauer" <(E-Mail Removed)> wrote in message
> > news:(E-Mail Removed)...
> >> Hi Monica,
> >>
> >> after you´ve imported your appointments you can use this sample. It
> >> searches for all non-private items in the standard calendar and makes
> >> them private.
> >>
> >> Public Function MakeAllAppointmentsPrivate()
> >> Dim colItems As Outlook.Items
> >> Dim sFilter As String
> >> Dim obj As Object
> >>
> >> sFilter = "[Sensitivity]<>2"
> >> Set colItems =
> >> Application.Session.GetDefaultFolder(olFolderCalendar).Items
> >> Set colItems = colItems.Restrict(sFilter)
> >> For Each obj In colItems
> >> If TypeOf obj Is Outlook.AppointmentItem Then
> >> With obj
> >> .Sensitivity = olPrivate
> >> .Save
> >> End With
> >> End If
> >> Next
> >> End Function
> >>
> >>
> >> --
> >> Viele Gruesse / Best regards
> >> Michael Bauer - MVP Outlook
> >>
> >>
> >>
> >> MLD wrote:
> >>> I'm helping a new user dump their calendar from a Palm Pilot, but
> >>> they want everythign to come into OLK 2003 marked as "Private". (The
> >>> little check box inthe lower right corner of the appointment window)
> >>> there are over 4300 items for 2005 alone! Is there a way for me to
> >>> do something, run something or write something that will
> >>> automatically mark the selected items? I have already discovered
> >>> that this "Private" checkbox is not a field that can be added to
> >>> the View, nor can it be filtered or searched by.
> >>>
> >>> I really need help on this one!!
> >>> Thanks,
> >>> -Monica
>