Can appointments be Automarked?

  • Thread starter Thread starter MLD
  • Start date Start date
M

MLD

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
 
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
 
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 address removed))

Michael Bauer said:
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


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
Click to expand...
Click to expand...
 
Monica, please join "Set colItems=" and the next line into one line.

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


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 address removed))

Michael Bauer said:
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


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
Click to expand...
Click to expand...
Click to expand...
 
That did it - and making it Private.
Thank you thank you!

Michael Bauer said:
Monica, please join "Set colItems=" and the next line into one line.

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


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 address removed))

Michael Bauer said:
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
Click to expand...
Click to expand...
Click to expand...
 
Back
Top