Default category

[Guest]

How do i select a default catagory to automatically appear when a new meeting
is created? This will be so that all new meetings and appointments have a
default category.

 

[ProfDD]

It would involve creating a custom form.

 

[Sue Mosher [MVP-Outlook]]

If this is for your personal use, it's not difficult to do in VBA code in the built-in ThisOutlookSession module:

Dim WithEvents colInsp As Outlook.Inspectors

Private Sub Application_Startup()
Set colInsp = Application.Inspectors
End Sub

Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)
Dim objAppt As Outlook.AppointmentItem

If Inspector.CurrentItem.Class = olAppointment Then
Set objAppt = Inspector.CurrentItem
With objAppt
If .Size = 0 Then
.Categories = "My Default Category"
End If
End With
End If
End Sub

The one oddity is that when the appointment opens, you won't see "My Default Category" in the Categories box at lower right, but if you click the Categories box, it definitely will appear there. I don't know of a workaround for that problem, but again if this is for your personal use, you can get used to it.

 

[Sue Mosher [MVP-Outlook]]

Check your macro security settings with Tools | Macro | Security . They need to be Medium or Low. *(I l keep mine at Medium.) Restart Outlook if you change the security level.

If you're new to Outlook VBA macros, these web pages should help you get started:

http://www.winnetmag.com/Articles/Index.cfm?ArticleID=21522&pg=1
http://www.outlookcode.com/d/vb.htm


--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers