DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Accessing a specific calander when calling outlook.application

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jun 2007

Posts: 1

Reputation: joshnya is an unknown quantity at this point

Solved Threads: 0

joshnya

Offline

Newbie Poster

Accessing a specific calander when calling outlook.application

Jun 7th, 2007

I first touched VBscript 4 days ago and so far so good except for one issue I am having.

I have written a scheduling form for Outlook that takes 4 names and then sends out about 20 meeting invites. The problem I am having is directing the program to schedule the meetings on a public calendar and sending the invites to the various attendees from that calendar and not my own calendar.

I have figured out how to do it in VBA but the solution in VBscript has eluded me.

This is a code snippet of one of the objects I am creating. I need this to send from a public calendar and not my personal calander when it is run.

Help with Code Tags

(Toggle Plain Text)

Dim StartTime As ValueType
Dim EndTime As ValueType
StartTime = DateTimePicker1.Value
EndTime = DateTimePicker1.Value.AddHours(9)
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1
objOL = CreateObject("Outlook.Application")
objAppt = objOL.CreateItem(olAppointmentItem)
'Dim Counter As Integer
'Counter = 0
'Do While Counter < 5
'This is the appointment for the first task
With objAppt
.Subject = ((Label1.Text) & "(" & (TextBox1.Text) & ")")
.start = StartTime
.End = EndTime
'MsgBox(EndTime)
' make it a meeting request
.MeetingStatus = olMeeting
.RequiredAttendees = TextBox1.Text
.Send()
End With