<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Document sans titre
<%
Sub SendMeetingRequest()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olAppointmentItem)
With objAppt
.Subject = "My Test Appointment"
.Start = Now + 1
.End = DateAdd("h", 1, .Start)
' make it a meeting request
.MeetingStatus = olMeeting
.RequiredAttendees = "alain.franquinet@eurobrevets.be"
.Send
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub
SendMeetingRequest()
%>
Invitation evoyée.