| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The following code demonstrates how to create an outlook meeting request. \par \par 'Purpose : Creates an outlook appointment. \par 'Inputs : sAttendees A comma seperated list of attendees. \par ' sSubject The subject of the request. \par ' dtStart The start date of the meeting. \par ' lDuration The duration of the meeting. \par ' [sLocation] The meeting location. \par 'Outputs : Returns True on success \par 'Author : Andrew Baker \par 'Date : 25/03/2000 \par 'Notes : \par \par Function OutlookAppointment(sAttendees As String, sSubject As String, dtStart As Date, lDuration As Long, sLocation As String) As Boolean \par Dim oAppointment As Outlook.AppointmentItem \par Dim oOutlook As Outlook.Application \par Dim asAttendees() As String, lThisAttendee As Long \par \par On Error GoTo ErrFailed \par 'Instantiate objects \par Set oOutlook = New Outlook.Application \par Set oAppointment = Outlook.CreateItem(olAppointmentItem) \par \par 'Set meeting parameters \par oAppointment.Duration = lDuration '(in minutes) \par oAppointment.Location = sLocation \par oAppointment.MeetingStatus = olMeeting \par oAppointment.Start = dtStart \par oAppointment.Subject = sSubject \par \par 'Add attendees \par asAttendees = Split(sAttendees, ",") \par For lThisAttendee = 0 To UBound(asAttendees) \par With oAppointment.Recipients.Add(asAttendees(lThisAttendee)) \par .Type = 1 '1 = Required, 2 = Optional \par End With \par Next \par 'Send the appointment \par oAppointment.Send \par \par Set oAppointment = Nothing \par Set oOutlook = Nothing \par OutlookAppointment = True \par \par Exit Function \par \par ErrFailed: \par Debug.Print "Error in OutlookAppointment: " & Err.Description \par OutlookAppointment = False \par End Function \par \par 'Demonstration routine \par Sub Test() \par 'Add an appointment to go on holiday for 5 days \par OutlookAppointment "andrew baker", "On Holiday", Date, DateDiff("n", Date, Date + 5), "At home" \par End Sub \par } |
Create an Outlook Appointment (or Meeting Request) |
India web developer web development India | India web development company India ecommerce web developer