programming outlook 2000 from excel

D

david lindstrom

When making an appointment in Outlook 2000 from Excel can you set categories to business or personal for example) or make an appointment private?
 
M

Mirsten Choiple

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

Top