Visual Basic Programming Code Examples Visual Basic > Internet Web Mail Stuff Code Examples Create an Outlook Appointment (or Meeting Request) Create an Outlook Appointment (or Meeting Request) 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 '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 "red", "On Holiday", Date, DateDiff("n", Date, Date + 5), "At home" End Sub