Hi All (Again) :)
I need some help, this time it is with Outlook.
I am using VB6 & outlook 2003, My program will be sending appointments & tasks to different people within the company, I can get VB to do this for myself.
The bit I am stuck on is the sending this to other people, I have a Public Calender and the personal Calendar I need to send Appointments to & personal Tasks I need to send. I am using this code below to send to myself


' Create a new appointment.
Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)

' Set start time for 5-minutes from now...
olAppt.Start = Now() + (5# / 24# / 60#)

' Setup other appointment information...
With olAppt
.Duration = 60
.Subject = "Coffee"
.Body = "Time for a Coffee."
.Location = "In The Kitchen"
.ReminderMinutesBeforeStart = 5
.ReminderSet = True
End With

' Save Appointment...
olAppt.Save

Dim olTask As Outlook.TaskItem
Set olTask = olApp.CreateItem(olTaskItem)
Dim Recip As Variant

Recip = "stores@lci.gb.com;"

With olTask
.Subject = "Coffee"
.Body = "Coffee Time"
.ReminderSet = True
.StartDate = Format(Now() + 1, "dd/mm/yyyy")
.Importance = olImportanceHigh
End With

olTask.Sav

I have tried using the olTask.Send command but I get getting an error

Please help some one as I need a Coffee

Thanks all

Chris