PC Review


Reply
Thread Tools Rate Thread

Automatically Categorize Private Appointments

 
 
slapana
Guest
Posts: n/a
 
      23rd Sep 2009
Is there a way to have Outlook 2007 automatically assign an appointment to a
category based on wether or not it's marked private? I use categories to
color code my calendar and would like to save a step by having anything I
mark private automatically assigned to a specific category/color.

Thanks!
 
Reply With Quote
 
 
 
 
Melissa bone
Guest
Posts: n/a
 
      23rd Sep 2009
Hi

I'm no expert, but I recommend you try recording a macro to do this, then
the macro can have a short cut and you should be able to use the shortcut
whilst in your open appointment so instead of having to click the private
button the shortcut makes the appointment private and allocates the category
you previously recorded. I can't test the theory at the moment because the
macro option is locked down at work.

"slapana" wrote:

> Is there a way to have Outlook 2007 automatically assign an appointment to a
> category based on wether or not it's marked private? I use categories to
> color code my calendar and would like to save a step by having anything I
> mark private automatically assigned to a specific category/color.
>
> Thanks!

 
Reply With Quote
 
slapana
Guest
Posts: n/a
 
      23rd Sep 2009

Thanks! I'll give that a try, but that won't completely meet my needs. The
larger reason that I asked is because I manually sync my BlackBerry with
Outlook. I can mark appointments private on my BlackBerry, but can't assign
a category; I often end up with uncategorized private appointments because
they were originally created on my BlackBerry and I forget to update the
category in Outlook. I was hoping that there was a way to have Outlook
automatically categorize them for me, but maybe it's not an option...

"Melissa bone" wrote:

> Hi
>
> I'm no expert, but I recommend you try recording a macro to do this, then
> the macro can have a short cut and you should be able to use the shortcut
> whilst in your open appointment so instead of having to click the private
> button the shortcut makes the appointment private and allocates the category
> you previously recorded. I can't test the theory at the moment because the
> macro option is locked down at work.
>
> "slapana" wrote:
>
> > Is there a way to have Outlook 2007 automatically assign an appointment to a
> > category based on wether or not it's marked private? I use categories to
> > color code my calendar and would like to save a step by having anything I
> > mark private automatically assigned to a specific category/color.
> >
> > Thanks!

 
Reply With Quote
 
Michael Bauer [MVP - Outlook]
Guest
Posts: n/a
 
      23rd Sep 2009

Outlook has no macro recorder, but some fans who are even better...

This example might work for you; it does for me with my phone and
ActiveSync:
http://www.vboffice.net/sample.html?...owitem&lang=en

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Wed, 23 Sep 2009 07:44:01 -0700 schrieb slapana:

> Thanks! I'll give that a try, but that won't completely meet my needs.

The
> larger reason that I asked is because I manually sync my BlackBerry with
> Outlook. I can mark appointments private on my BlackBerry, but can't

assign
> a category; I often end up with uncategorized private appointments because
> they were originally created on my BlackBerry and I forget to update the
> category in Outlook. I was hoping that there was a way to have Outlook
> automatically categorize them for me, but maybe it's not an option...
>
> "Melissa bone" wrote:
>
>> Hi
>>
>> I'm no expert, but I recommend you try recording a macro to do this, then
>> the macro can have a short cut and you should be able to use the shortcut
>> whilst in your open appointment so instead of having to click the private
>> button the shortcut makes the appointment private and allocates the

category
>> you previously recorded. I can't test the theory at the moment because

the
>> macro option is locked down at work.
>>
>> "slapana" wrote:
>>
>>> Is there a way to have Outlook 2007 automatically assign an appointment

to a
>>> category based on wether or not it's marked private? I use categories

to
>>> color code my calendar and would like to save a step by having anything

I
>>> mark private automatically assigned to a specific category/color.
>>>
>>> Thanks!

 
Reply With Quote
 
slapana
Guest
Posts: n/a
 
      23rd Sep 2009
Thanks, Michael!! This seems like it should do exactly what I need, but it
doesn't seem to be working. I opened a blank appointment to get to the
Developer tab and then clicked Visual Basic. I added and saved the following
to ThisOutlookSession (changed category name to Personal to match my existing
category):

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace

Set Ns = Application.GetNamespace("MAPI")
Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.AppointmentItem Then
AddCategoryToPrivateAppointment Item
End If
End Sub

Private Sub AddCategoryToPrivateAppointment(Appt As Outlook.AppointmentItem)
If Appt.Sensitivity = olPrivate Then
If Len(Appt.Categories) = 0 Then
Appt.Categories = "Personal"
Appt.Save
End If
End If
End Sub

I then closed Outlook and tried adding a private appointment, but it still
doesn't have a category. The same thing happened with a private appointment
that originated on my Blackberry.

What did I mess up?

"Michael Bauer [MVP - Outlook]" wrote:

>
> Outlook has no macro recorder, but some fans who are even better...
>
> This example might work for you; it does for me with my phone and
> ActiveSync:
> http://www.vboffice.net/sample.html?...owitem&lang=en
>
> --
> Best regards
> Michael Bauer - MVP Outlook
>
> : Outlook Categories? Category Manager Is Your Tool
> : VBOffice Reporter for Data Analysis & Reporting
> : <http://www.vboffice.net/product.html?pub=6&lang=en>
>
>
> Am Wed, 23 Sep 2009 07:44:01 -0700 schrieb slapana:
>
> > Thanks! I'll give that a try, but that won't completely meet my needs.

> The
> > larger reason that I asked is because I manually sync my BlackBerry with
> > Outlook. I can mark appointments private on my BlackBerry, but can't

> assign
> > a category; I often end up with uncategorized private appointments because
> > they were originally created on my BlackBerry and I forget to update the
> > category in Outlook. I was hoping that there was a way to have Outlook
> > automatically categorize them for me, but maybe it's not an option...
> >
> > "Melissa bone" wrote:
> >
> >> Hi
> >>
> >> I'm no expert, but I recommend you try recording a macro to do this, then
> >> the macro can have a short cut and you should be able to use the shortcut
> >> whilst in your open appointment so instead of having to click the private
> >> button the shortcut makes the appointment private and allocates the

> category
> >> you previously recorded. I can't test the theory at the moment because

> the
> >> macro option is locked down at work.
> >>
> >> "slapana" wrote:
> >>
> >>> Is there a way to have Outlook 2007 automatically assign an appointment

> to a
> >>> category based on wether or not it's marked private? I use categories

> to
> >>> color code my calendar and would like to save a step by having anything

> I
> >>> mark private automatically assigned to a specific category/color.
> >>>
> >>> Thanks!

>

 
Reply With Quote
 
Diane Poremsky [MVP]
Guest
Posts: n/a
 
      23rd Sep 2009
It may be related to how the appointment is handled by the sync process -
michael uses a windows mobile device which uses active sync. Blackberries
sync using the Desktop manager.

Do you need them categorized or just colored to match the category? if
Private = blue, you can use an automatic formatting rule in a view to color
everything blue that is private. Or, if they need a category, the automatic
formatting rule can color private items with no category so you can easily
identify the items that need a category.

Another option is to run the VBA from a toolbar button after doing the sync.


--
Diane Poremsky [MVP - Outlook]
Outlook Tips: http://www.outlook-tips.net/
Outlook & Exchange Solutions Center: http://www.slipstick.com

Outlook Tips by email:
mailto:dailytips-subscribe-(E-Mail Removed)

EMO - a weekly newsletter about Outlook and Exchange:
mailto:EMO-NEWSLETTER-SUBSCRIBE-(E-Mail Removed)

Do you keep Outlook open 24/7? Vote in our poll:
http://forums.slipstick.com/showthread.php?t=22205

"slapana" <(E-Mail Removed)> wrote in message
news:AF054828-A9F9-488A-8A34-(E-Mail Removed)...
> Thanks, Michael!! This seems like it should do exactly what I need, but
> it
> doesn't seem to be working. I opened a blank appointment to get to the
> Developer tab and then clicked Visual Basic. I added and saved the
> following
> to ThisOutlookSession (changed category name to Personal to match my
> existing
> category):
>
> Private WithEvents Items As Outlook.Items
>
> Private Sub Application_Startup()
> Dim Ns As Outlook.NameSpace
>
> Set Ns = Application.GetNamespace("MAPI")
> Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
> End Sub
>
> Private Sub Items_ItemAdd(ByVal Item As Object)
> If TypeOf Item Is Outlook.AppointmentItem Then
> AddCategoryToPrivateAppointment Item
> End If
> End Sub
>
> Private Sub AddCategoryToPrivateAppointment(Appt As
> Outlook.AppointmentItem)
> If Appt.Sensitivity = olPrivate Then
> If Len(Appt.Categories) = 0 Then
> Appt.Categories = "Personal"
> Appt.Save
> End If
> End If
> End Sub
>
> I then closed Outlook and tried adding a private appointment, but it still
> doesn't have a category. The same thing happened with a private
> appointment
> that originated on my Blackberry.
>
> What did I mess up?
>
> "Michael Bauer [MVP - Outlook]" wrote:
>
>>
>> Outlook has no macro recorder, but some fans who are even better...
>>
>> This example might work for you; it does for me with my phone and
>> ActiveSync:
>> http://www.vboffice.net/sample.html?...owitem&lang=en
>>
>> --
>> Best regards
>> Michael Bauer - MVP Outlook
>>
>> : Outlook Categories? Category Manager Is Your Tool
>> : VBOffice Reporter for Data Analysis & Reporting
>> : <http://www.vboffice.net/product.html?pub=6&lang=en>
>>
>>
>> Am Wed, 23 Sep 2009 07:44:01 -0700 schrieb slapana:
>>
>> > Thanks! I'll give that a try, but that won't completely meet my needs.

>> The
>> > larger reason that I asked is because I manually sync my BlackBerry
>> > with
>> > Outlook. I can mark appointments private on my BlackBerry, but can't

>> assign
>> > a category; I often end up with uncategorized private appointments
>> > because
>> > they were originally created on my BlackBerry and I forget to update
>> > the
>> > category in Outlook. I was hoping that there was a way to have Outlook
>> > automatically categorize them for me, but maybe it's not an option...
>> >
>> > "Melissa bone" wrote:
>> >
>> >> Hi
>> >>
>> >> I'm no expert, but I recommend you try recording a macro to do this,
>> >> then
>> >> the macro can have a short cut and you should be able to use the
>> >> shortcut
>> >> whilst in your open appointment so instead of having to click the
>> >> private
>> >> button the shortcut makes the appointment private and allocates the

>> category
>> >> you previously recorded. I can't test the theory at the moment because

>> the
>> >> macro option is locked down at work.
>> >>
>> >> "slapana" wrote:
>> >>
>> >>> Is there a way to have Outlook 2007 automatically assign an
>> >>> appointment

>> to a
>> >>> category based on wether or not it's marked private? I use
>> >>> categories

>> to
>> >>> color code my calendar and would like to save a step by having
>> >>> anything

>> I
>> >>> mark private automatically assigned to a specific category/color.
>> >>>
>> >>> Thanks!

>>

 
Reply With Quote
 
slapana
Guest
Posts: n/a
 
      23rd Sep 2009
It wasn't working on appointments that I created in Outlook, either, so I'm
not sure that the sync process is entirely to blame for it not working in my
case.

I was hoping there was a simple fix, but I think that I'll just set up
Autoformatting to color code private items without a category for now.

Thanks all for the help!

"Diane Poremsky [MVP]" wrote:

> It may be related to how the appointment is handled by the sync process -
> michael uses a windows mobile device which uses active sync. Blackberries
> sync using the Desktop manager.
>
> Do you need them categorized or just colored to match the category? if
> Private = blue, you can use an automatic formatting rule in a view to color
> everything blue that is private. Or, if they need a category, the automatic
> formatting rule can color private items with no category so you can easily
> identify the items that need a category.
>
> Another option is to run the VBA from a toolbar button after doing the sync.
>
>
> --
> Diane Poremsky [MVP - Outlook]
> Outlook Tips: http://www.outlook-tips.net/
> Outlook & Exchange Solutions Center: http://www.slipstick.com
>
> Outlook Tips by email:
> mailto:dailytips-subscribe-(E-Mail Removed)
>
> EMO - a weekly newsletter about Outlook and Exchange:
> mailto:EMO-NEWSLETTER-SUBSCRIBE-(E-Mail Removed)
>
> Do you keep Outlook open 24/7? Vote in our poll:
> http://forums.slipstick.com/showthread.php?t=22205
>
> "slapana" <(E-Mail Removed)> wrote in message
> news:AF054828-A9F9-488A-8A34-(E-Mail Removed)...
> > Thanks, Michael!! This seems like it should do exactly what I need, but
> > it
> > doesn't seem to be working. I opened a blank appointment to get to the
> > Developer tab and then clicked Visual Basic. I added and saved the
> > following
> > to ThisOutlookSession (changed category name to Personal to match my
> > existing
> > category):
> >
> > Private WithEvents Items As Outlook.Items
> >
> > Private Sub Application_Startup()
> > Dim Ns As Outlook.NameSpace
> >
> > Set Ns = Application.GetNamespace("MAPI")
> > Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
> > End Sub
> >
> > Private Sub Items_ItemAdd(ByVal Item As Object)
> > If TypeOf Item Is Outlook.AppointmentItem Then
> > AddCategoryToPrivateAppointment Item
> > End If
> > End Sub
> >
> > Private Sub AddCategoryToPrivateAppointment(Appt As
> > Outlook.AppointmentItem)
> > If Appt.Sensitivity = olPrivate Then
> > If Len(Appt.Categories) = 0 Then
> > Appt.Categories = "Personal"
> > Appt.Save
> > End If
> > End If
> > End Sub
> >
> > I then closed Outlook and tried adding a private appointment, but it still
> > doesn't have a category. The same thing happened with a private
> > appointment
> > that originated on my Blackberry.
> >
> > What did I mess up?
> >
> > "Michael Bauer [MVP - Outlook]" wrote:
> >
> >>
> >> Outlook has no macro recorder, but some fans who are even better...
> >>
> >> This example might work for you; it does for me with my phone and
> >> ActiveSync:
> >> http://www.vboffice.net/sample.html?...owitem&lang=en
> >>
> >> --
> >> Best regards
> >> Michael Bauer - MVP Outlook
> >>
> >> : Outlook Categories? Category Manager Is Your Tool
> >> : VBOffice Reporter for Data Analysis & Reporting
> >> : <http://www.vboffice.net/product.html?pub=6&lang=en>
> >>
> >>
> >> Am Wed, 23 Sep 2009 07:44:01 -0700 schrieb slapana:
> >>
> >> > Thanks! I'll give that a try, but that won't completely meet my needs.
> >> The
> >> > larger reason that I asked is because I manually sync my BlackBerry
> >> > with
> >> > Outlook. I can mark appointments private on my BlackBerry, but can't
> >> assign
> >> > a category; I often end up with uncategorized private appointments
> >> > because
> >> > they were originally created on my BlackBerry and I forget to update
> >> > the
> >> > category in Outlook. I was hoping that there was a way to have Outlook
> >> > automatically categorize them for me, but maybe it's not an option...
> >> >
> >> > "Melissa bone" wrote:
> >> >
> >> >> Hi
> >> >>
> >> >> I'm no expert, but I recommend you try recording a macro to do this,
> >> >> then
> >> >> the macro can have a short cut and you should be able to use the
> >> >> shortcut
> >> >> whilst in your open appointment so instead of having to click the
> >> >> private
> >> >> button the shortcut makes the appointment private and allocates the
> >> category
> >> >> you previously recorded. I can't test the theory at the moment because
> >> the
> >> >> macro option is locked down at work.
> >> >>
> >> >> "slapana" wrote:
> >> >>
> >> >>> Is there a way to have Outlook 2007 automatically assign an
> >> >>> appointment
> >> to a
> >> >>> category based on wether or not it's marked private? I use
> >> >>> categories
> >> to
> >> >>> color code my calendar and would like to save a step by having
> >> >>> anything
> >> I
> >> >>> mark private automatically assigned to a specific category/color.
> >> >>>
> >> >>> Thanks!
> >>

>

 
Reply With Quote
 
Diane Poremsky [MVP]
Guest
Posts: n/a
 
      23rd Sep 2009
It works here perfectly for appointments I create in the calendar so I'm
guessing it's something on your end. I pasted the code into
ThisOutlookSession, clicked in the Startup procedure to kick it in and
created a new appointment. Oh - what level of macro security do you have
enabled? I have it set to ask about running macros, which it does when I
start outlook.


--
Diane Poremsky [MVP - Outlook]
Outlook Tips: http://www.outlook-tips.net/
Outlook & Exchange Solutions Center: http://www.slipstick.com

Outlook Tips by email:
mailto:dailytips-subscribe-(E-Mail Removed)

EMO - a weekly newsletter about Outlook and Exchange:
mailto:EMO-NEWSLETTER-SUBSCRIBE-(E-Mail Removed)

Do you keep Outlook open 24/7? Vote in our poll:
http://forums.slipstick.com/showthread.php?t=22205

"slapana" <(E-Mail Removed)> wrote in message
news:93FABCFB-E490-4E5A-9BB4-(E-Mail Removed)...
> It wasn't working on appointments that I created in Outlook, either, so
> I'm
> not sure that the sync process is entirely to blame for it not working in
> my
> case.
>
> I was hoping there was a simple fix, but I think that I'll just set up
> Autoformatting to color code private items without a category for now.
>
> Thanks all for the help!
>
> "Diane Poremsky [MVP]" wrote:
>
>> It may be related to how the appointment is handled by the sync process -
>> michael uses a windows mobile device which uses active sync. Blackberries
>> sync using the Desktop manager.
>>
>> Do you need them categorized or just colored to match the category? if
>> Private = blue, you can use an automatic formatting rule in a view to
>> color
>> everything blue that is private. Or, if they need a category, the
>> automatic
>> formatting rule can color private items with no category so you can
>> easily
>> identify the items that need a category.
>>
>> Another option is to run the VBA from a toolbar button after doing the
>> sync.
>>
>>
>> --
>> Diane Poremsky [MVP - Outlook]
>> Outlook Tips: http://www.outlook-tips.net/
>> Outlook & Exchange Solutions Center: http://www.slipstick.com
>>
>> Outlook Tips by email:
>> mailto:dailytips-subscribe-(E-Mail Removed)
>>
>> EMO - a weekly newsletter about Outlook and Exchange:
>> mailto:EMO-NEWSLETTER-SUBSCRIBE-(E-Mail Removed)
>>
>> Do you keep Outlook open 24/7? Vote in our poll:
>> http://forums.slipstick.com/showthread.php?t=22205
>>
>> "slapana" <(E-Mail Removed)> wrote in message
>> news:AF054828-A9F9-488A-8A34-(E-Mail Removed)...
>> > Thanks, Michael!! This seems like it should do exactly what I need,
>> > but
>> > it
>> > doesn't seem to be working. I opened a blank appointment to get to the
>> > Developer tab and then clicked Visual Basic. I added and saved the
>> > following
>> > to ThisOutlookSession (changed category name to Personal to match my
>> > existing
>> > category):
>> >
>> > Private WithEvents Items As Outlook.Items
>> >
>> > Private Sub Application_Startup()
>> > Dim Ns As Outlook.NameSpace
>> >
>> > Set Ns = Application.GetNamespace("MAPI")
>> > Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
>> > End Sub
>> >
>> > Private Sub Items_ItemAdd(ByVal Item As Object)
>> > If TypeOf Item Is Outlook.AppointmentItem Then
>> > AddCategoryToPrivateAppointment Item
>> > End If
>> > End Sub
>> >
>> > Private Sub AddCategoryToPrivateAppointment(Appt As
>> > Outlook.AppointmentItem)
>> > If Appt.Sensitivity = olPrivate Then
>> > If Len(Appt.Categories) = 0 Then
>> > Appt.Categories = "Personal"
>> > Appt.Save
>> > End If
>> > End If
>> > End Sub
>> >
>> > I then closed Outlook and tried adding a private appointment, but it
>> > still
>> > doesn't have a category. The same thing happened with a private
>> > appointment
>> > that originated on my Blackberry.
>> >
>> > What did I mess up?
>> >
>> > "Michael Bauer [MVP - Outlook]" wrote:
>> >
>> >>
>> >> Outlook has no macro recorder, but some fans who are even better...
>> >>
>> >> This example might work for you; it does for me with my phone and
>> >> ActiveSync:
>> >> http://www.vboffice.net/sample.html?...owitem&lang=en
>> >>
>> >> --
>> >> Best regards
>> >> Michael Bauer - MVP Outlook
>> >>
>> >> : Outlook Categories? Category Manager Is Your Tool
>> >> : VBOffice Reporter for Data Analysis & Reporting
>> >> : <http://www.vboffice.net/product.html?pub=6&lang=en>
>> >>
>> >>
>> >> Am Wed, 23 Sep 2009 07:44:01 -0700 schrieb slapana:
>> >>
>> >> > Thanks! I'll give that a try, but that won't completely meet my
>> >> > needs.
>> >> The
>> >> > larger reason that I asked is because I manually sync my BlackBerry
>> >> > with
>> >> > Outlook. I can mark appointments private on my BlackBerry, but
>> >> > can't
>> >> assign
>> >> > a category; I often end up with uncategorized private appointments
>> >> > because
>> >> > they were originally created on my BlackBerry and I forget to update
>> >> > the
>> >> > category in Outlook. I was hoping that there was a way to have
>> >> > Outlook
>> >> > automatically categorize them for me, but maybe it's not an
>> >> > option...
>> >> >
>> >> > "Melissa bone" wrote:
>> >> >
>> >> >> Hi
>> >> >>
>> >> >> I'm no expert, but I recommend you try recording a macro to do
>> >> >> this,
>> >> >> then
>> >> >> the macro can have a short cut and you should be able to use the
>> >> >> shortcut
>> >> >> whilst in your open appointment so instead of having to click the
>> >> >> private
>> >> >> button the shortcut makes the appointment private and allocates the
>> >> category
>> >> >> you previously recorded. I can't test the theory at the moment
>> >> >> because
>> >> the
>> >> >> macro option is locked down at work.
>> >> >>
>> >> >> "slapana" wrote:
>> >> >>
>> >> >>> Is there a way to have Outlook 2007 automatically assign an
>> >> >>> appointment
>> >> to a
>> >> >>> category based on wether or not it's marked private? I use
>> >> >>> categories
>> >> to
>> >> >>> color code my calendar and would like to save a step by having
>> >> >>> anything
>> >> I
>> >> >>> mark private automatically assigned to a specific category/color.
>> >> >>>
>> >> >>> Thanks!
>> >>

>>

 
Reply With Quote
 
Michael Bauer [MVP - Outlook]
Guest
Posts: n/a
 
      24th Sep 2009


As Diane suggested, I guess it's due to the macro security. In Outlook (not
VBA environment) click Tools/Macros/Security. You need to set it to one of
the two lower options in order to get it running without a certificate.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Wed, 23 Sep 2009 11:14:02 -0700 schrieb slapana:

> Thanks, Michael!! This seems like it should do exactly what I need, but

it
> doesn't seem to be working. I opened a blank appointment to get to the
> Developer tab and then clicked Visual Basic. I added and saved the

following
> to ThisOutlookSession (changed category name to Personal to match my

existing
> category):
>
> Private WithEvents Items As Outlook.Items
>
> Private Sub Application_Startup()
> Dim Ns As Outlook.NameSpace
>
> Set Ns = Application.GetNamespace("MAPI")
> Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
> End Sub
>
> Private Sub Items_ItemAdd(ByVal Item As Object)
> If TypeOf Item Is Outlook.AppointmentItem Then
> AddCategoryToPrivateAppointment Item
> End If
> End Sub
>
> Private Sub AddCategoryToPrivateAppointment(Appt As

Outlook.AppointmentItem)
> If Appt.Sensitivity = olPrivate Then
> If Len(Appt.Categories) = 0 Then
> Appt.Categories = "Personal"
> Appt.Save
> End If
> End If
> End Sub
>
> I then closed Outlook and tried adding a private appointment, but it still
> doesn't have a category. The same thing happened with a private

appointment
> that originated on my Blackberry.
>
> What did I mess up?
>
> "Michael Bauer [MVP - Outlook]" wrote:
>
>>
>> Outlook has no macro recorder, but some fans who are even better...
>>
>> This example might work for you; it does for me with my phone and
>> ActiveSync:
>>

http://www.vboffice.net/sample.html?...owitem&lang=en
>>
>> --
>> Best regards
>> Michael Bauer - MVP Outlook
>>
>> : Outlook Categories? Category Manager Is Your Tool
>> : VBOffice Reporter for Data Analysis & Reporting
>> : <http://www.vboffice.net/product.html?pub=6&lang=en>
>>
>>
>> Am Wed, 23 Sep 2009 07:44:01 -0700 schrieb slapana:
>>
>>> Thanks! I'll give that a try, but that won't completely meet my needs.

>> The
>>> larger reason that I asked is because I manually sync my BlackBerry with
>>> Outlook. I can mark appointments private on my BlackBerry, but can't

>> assign
>>> a category; I often end up with uncategorized private appointments

because
>>> they were originally created on my BlackBerry and I forget to update the
>>> category in Outlook. I was hoping that there was a way to have Outlook
>>> automatically categorize them for me, but maybe it's not an option...
>>>
>>> "Melissa bone" wrote:
>>>
>>>> Hi
>>>>
>>>> I'm no expert, but I recommend you try recording a macro to do this,

then
>>>> the macro can have a short cut and you should be able to use the

shortcut
>>>> whilst in your open appointment so instead of having to click the

private
>>>> button the shortcut makes the appointment private and allocates the

>> category
>>>> you previously recorded. I can't test the theory at the moment because

>> the
>>>> macro option is locked down at work.
>>>>
>>>> "slapana" wrote:
>>>>
>>>>> Is there a way to have Outlook 2007 automatically assign an

appointment
>> to a
>>>>> category based on wether or not it's marked private? I use categories

>> to
>>>>> color code my calendar and would like to save a step by having

anything
>> I
>>>>> mark private automatically assigned to a specific category/color.
>>>>>
>>>>> Thanks!

>>

 
Reply With Quote
 
slapana
Guest
Posts: n/a
 
      24th Sep 2009
Macro security was the culprit. It's working now. Thanks so, so much to you
both!

"Michael Bauer [MVP - Outlook]" wrote:

>
>
> As Diane suggested, I guess it's due to the macro security. In Outlook (not
> VBA environment) click Tools/Macros/Security. You need to set it to one of
> the two lower options in order to get it running without a certificate.
>
> --
> Best regards
> Michael Bauer - MVP Outlook
>
> : Outlook Categories? Category Manager Is Your Tool
> : VBOffice Reporter for Data Analysis & Reporting
> : <http://www.vboffice.net/product.html?pub=6&lang=en>
>
>
> Am Wed, 23 Sep 2009 11:14:02 -0700 schrieb slapana:
>
> > Thanks, Michael!! This seems like it should do exactly what I need, but

> it
> > doesn't seem to be working. I opened a blank appointment to get to the
> > Developer tab and then clicked Visual Basic. I added and saved the

> following
> > to ThisOutlookSession (changed category name to Personal to match my

> existing
> > category):
> >
> > Private WithEvents Items As Outlook.Items
> >
> > Private Sub Application_Startup()
> > Dim Ns As Outlook.NameSpace
> >
> > Set Ns = Application.GetNamespace("MAPI")
> > Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items
> > End Sub
> >
> > Private Sub Items_ItemAdd(ByVal Item As Object)
> > If TypeOf Item Is Outlook.AppointmentItem Then
> > AddCategoryToPrivateAppointment Item
> > End If
> > End Sub
> >
> > Private Sub AddCategoryToPrivateAppointment(Appt As

> Outlook.AppointmentItem)
> > If Appt.Sensitivity = olPrivate Then
> > If Len(Appt.Categories) = 0 Then
> > Appt.Categories = "Personal"
> > Appt.Save
> > End If
> > End If
> > End Sub
> >
> > I then closed Outlook and tried adding a private appointment, but it still
> > doesn't have a category. The same thing happened with a private

> appointment
> > that originated on my Blackberry.
> >
> > What did I mess up?
> >
> > "Michael Bauer [MVP - Outlook]" wrote:
> >
> >>
> >> Outlook has no macro recorder, but some fans who are even better...
> >>
> >> This example might work for you; it does for me with my phone and
> >> ActiveSync:
> >>

> http://www.vboffice.net/sample.html?...owitem&lang=en
> >>
> >> --
> >> Best regards
> >> Michael Bauer - MVP Outlook
> >>
> >> : Outlook Categories? Category Manager Is Your Tool
> >> : VBOffice Reporter for Data Analysis & Reporting
> >> : <http://www.vboffice.net/product.html?pub=6&lang=en>
> >>
> >>
> >> Am Wed, 23 Sep 2009 07:44:01 -0700 schrieb slapana:
> >>
> >>> Thanks! I'll give that a try, but that won't completely meet my needs.
> >> The
> >>> larger reason that I asked is because I manually sync my BlackBerry with
> >>> Outlook. I can mark appointments private on my BlackBerry, but can't
> >> assign
> >>> a category; I often end up with uncategorized private appointments

> because
> >>> they were originally created on my BlackBerry and I forget to update the
> >>> category in Outlook. I was hoping that there was a way to have Outlook
> >>> automatically categorize them for me, but maybe it's not an option...
> >>>
> >>> "Melissa bone" wrote:
> >>>
> >>>> Hi
> >>>>
> >>>> I'm no expert, but I recommend you try recording a macro to do this,

> then
> >>>> the macro can have a short cut and you should be able to use the

> shortcut
> >>>> whilst in your open appointment so instead of having to click the

> private
> >>>> button the shortcut makes the appointment private and allocates the
> >> category
> >>>> you previously recorded. I can't test the theory at the moment because
> >> the
> >>>> macro option is locked down at work.
> >>>>
> >>>> "slapana" wrote:
> >>>>
> >>>>> Is there a way to have Outlook 2007 automatically assign an

> appointment
> >> to a
> >>>>> category based on wether or not it's marked private? I use categories
> >> to
> >>>>> color code my calendar and would like to save a step by having

> anything
> >> I
> >>>>> mark private automatically assigned to a specific category/color.
> >>>>>
> >>>>> Thanks!
> >>

>

 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Automatically Categorize journal entries? Webtechie Microsoft Outlook Discussion 1 24th Aug 2009 07:26 PM
Automatically categorize files in Journal?! Webtechie Microsoft Outlook Discussion 0 24th Aug 2009 04:16 PM
Is it possible to automatically categorize items (not just color)? =?Utf-8?B?d3VzZXJ2aWNlcw==?= Microsoft Outlook Calendar 0 19th Jul 2006 09:59 AM
Re: automatically categorize items in folders Tim Microsoft Outlook 2 29th May 2006 04:35 AM
private appointments are not returned when getting appointments from another calendar Stephan Schlatter Microsoft Outlook VBA Programming 0 3rd Feb 2005 12:47 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 01:03 AM.