Re : VBA - Invitation Outlook via excel - Date et heure
Et voilà... Je galère juste pour indiquer la date et l'heure (Sinon, je les ai dans deux colonnes mais je n'arrive à placer que la date avec range("B3") (l'heure est en C3)
Sub Invitcoord1()
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(olMeeting) 'olAppointmentItem
With objAppt
.Display
.Subject = "Coordination"
.Start = Now + 1
.End = DateAdd("n", 90, .Start)
.Location = Range("E3")
.BusyStatus = olBusy
.Categories = ""
.ReminderSet = True
.ReminderMinutesBeforeStart = 30
' make it a meeting request
.MeetingStatus = olMeeting
.RequiredAttendees = Range("B19") 'participant obligatoire
.OptionalAttendees = Range("B20") 'participants optionnel à la réunion
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub