VB and VBA Users Source Code: Create an Outlook Appointment (or Meeting Request)
[
Home
|
Contents
|
Search
|
Reply
| Previous | Next ]
VB/VBA Source Code
Create an Outlook Appointment (or Meeting Request)
By:
Andrew Baker
Email (spam proof):
Email the originator of this post
Date:
Friday, December 14, 2001
Hits:
2445
Category:
Office
Article:
The following code demonstrates how to create an outlook meeting request. 'Purpose : Creates an outlook appointment. 'Inputs : sAttendees A comma seperated list of attendees. ' sSubject The subject of the request. ' dtStart The start date of the meeting. ' lDuration The duration of the meeting. ' [sLocation] The meeting location. 'Outputs : Returns True on success 'Author : Andrew Baker 'Date : 25/03/2000 'Notes : Function OutlookAppointment(sAttendees As String, sSubject As String, dtStart As Date, lDuration As Long, sLocation As String) As Boolean Dim oAppointment As Outlook.AppointmentItem Dim oOutlook As Outlook.Application Dim asAttendees() As String, lThisAttendee As Long On Error GoTo ErrFailed 'Instantiate objects Set oOutlook = New Outlook.Application Set oAppointment = Outlook.CreateItem(olAppointmentItem) 'Set meeting parameters oAppointment.Duration = lDuration '(in minutes) oAppointment.Location = sLocation oAppointment.MeetingStatus = olMeeting oAppointment.Start = dtStart oAppointment.Subject = sSubject 'Add attendees asAttendees = Split(sAttendees, ",") For lThisAttendee = 0 To UBound(asAttendees) With oAppointment.Recipients.Add(asAttendees(lThisAttendee)) .Type = 1 '1 = Required, 2 = Optional End With Next 'Send the appointment oAppointment.Send Set oAppointment = Nothing Set oOutlook = Nothing OutlookAppointment = True Exit Function ErrFailed: Debug.Print "Error in OutlookAppointment: " & Err.Description OutlookAppointment = False End Function 'Demonstration routine Sub Test() 'Add an appointment to go on holiday for 5 days OutlookAppointment "andrew baker", "On Holiday", Date, DateDiff("n", Date, Date + 5), "At home" End Sub
Terms and Conditions
Support this site
Download a trial version of the Excel Workbook Rebuilder
