making an appointment in Outlook 2000 from Excel - categories - private

  • Thread starter Thread starter david lindstrom
  • Start date Start date
D

david lindstrom

When making an appointment in Outlook 2000 from Excel can you set categories or make an appointment private?
 
Sub SetAppointment()

Dim olApp As Outlook.Application
Dim olApt As AppointmentItem

Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)

With olApt
.Start = DateSerial(2003, 7, 12) + TimeSerial(10, 0, 0)
.End = DateSerial(2003, 7, 12) + TimeSerial(18, 0, 0)
.Subject = Range("A2")
.Location = Range("B2")
.Body = Range("C2")
.Categories = "Business"
.Sensitivity = olPrivate
.BusyStatus = olFree
.ReminderMinutesBeforeStart = 240
.ReminderSet = True
.Save
End With

Set olApt = Nothing
Set olApp = Nothing

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Recurring Appointment Category Colour 1
Excel Worksheet_BeforeDelete code not working as expected. 1
Outlook Outlook To-Do Bar Not Showing 7-days Appointments 0
Fields and custom fields 0
Standard category in new appointment 2
Losing colour category upon saving appointment 0
vba code to change all private appointments to public 0
Outlook too many appointments on a same day in Outlook 2

Back
Top