outlook object library - choose a category

[MyWaterloo]

I am using the following code I found online to send an appointment to Outlook:

Private Sub AddAppt_Click()
' Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
' Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment already added to Microsoft Outlook"
Exit Sub
' Add a new appointment.
Else
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = _
Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If
.Save
End With
End If
' Release the Outlook object variable.
Set outobj = Nothing
' Set the AddedToOutlook flag, save the record, display a message.
Me!AddedToOutlook = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Appointment Added!"
Exit Sub
AddAppt_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub

What do I need to add to be able to set the category (or categorize) the appointment? I need to be able to categorize the appointment as "Important"... Ideas?

Thanks

[patjones]

In the section where Start, Duration and Subject are assigned you should also be able to do .Importance = ...

There are a large number of different properties that you can assign to an Outlook object. See the MS support page here for a list of all the object members.

Also bear in mind that you will need to set the reference to the Microsoft Outlook object library in order to use this code. Go to Tools > References...

Pat

[MyWaterloo]

Pat, thank you for the reply. I am currently using this code with success I am just not familiar enough with using the Microsoft Outlook object library to know what was need to add this additional feature. Thanks again and I'll give it a try!

[MyWaterloo]

OK,I need the .Categories as apposed to .Importance. What do I put after this?

.Categories = ???

I would like my new appointment to be "categorized" as "Important" which then makes the appointment red on my calendar in Outlook. Do I just insert the word or is it a number?

'example:
.categories = Important
'or
.categories = 3 

Help?

[patjones]

I think there are a couple of different things you can do. One is to bring up the dialog that will allow you to pick the category, using outappt.ShowCategoriesDialog.

Otherwise, I think you need to pick the color(s) by saying .Categories = "Red Category".

Pat

[MyWaterloo]

That did it! I used .Categories = "Important" where "Important" is the name of a category I created in outlook already. Thanks so much!

[patjones]

@MyWaterloo
You're welcome!