Re : Exporter de excel vers outlook
Bonjour,
avec ça, tu devrais t'en sortir :
Public Sub Add_Outlook_()
Dim OutlookApp As Object
Const olMailItem = 0
Const olAppointmentItem = 1
Const olContactItem = 2
Const olTaskItem = 3
Const olJournalItem = 4
Const olNoteItem = 5
Const olPostItem = 6
Const olPink = 2
Set OutlookApp = CreateObject("Outlook.Application")
With OutlookApp.CreateItem(olAppointmentItem)
.MeetingStatus = olMeeting
.Start = Date & " 2:00 pm"
.End = Date & " 3:00 pm"
'.Duration = 30 'minutes
.Subject = "Meet with staff re Outlook object model."
.Location = "piece xx"
.Save
End With
End Sub
