Bonjour à tous,
J'ai créé un code pour saisir automatiquement des évènements dans le calendrier d'Outlook à partir d'une appli VB.net
Pour aller plus loin je souhaiterais pouvoir affecter automatiquement une couleur aux évènements en fonction de la nature de ceux-ci.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
        Dim OutlookObjet As New Outlook.Application
        Dim newAppointment As Outlook.AppointmentItem = OutlookObjet.CreateItem(Outlook.OlItemType.olAppointmentItem)
        Dim MonNameSpace = OutlookObjet.GetNamespace("MAPI")
        Dim MonDoss = Outlook.OlDefaultFolders.olFolderCalendar
        Dim Calendar = MonNameSpace.GetDefaultFolder(MonDoss)
 
        HeureDébut = MonDataSet.Tables("Agenda")(RowNumber)("HeureDébut").ToString
        HeureFin = MonDataSet.Tables("Agenda")(RowNumber)("HeureFin").ToString
 
        DateDébutA = Mid(Trim(MonDataSet.Tables("Agenda")(RowNumber)("DateDébut").ToString), 1, 11) + HeureDébut
        DateFinA = Mid(Trim(MonDataSet.Tables("Agenda")(RowNumber)("DateFin").ToString), 1, 11) + HeureFin
 
        With newAppointment
            .Start = CDate(DateDébutA)
            .[End] = CDate(DateFinA)
            .Location = Trim(MonDataSet.Tables("Agenda")(RowNumber)("Lieu").ToString)
            .Body = Trim(MonDataSet.Tables("Agenda")(RowNumber)("Description").ToString)
            .AllDayEvent = False
            .Subject = Trim(MonDataSet.Tables("Agenda")(RowNumber)("Objet").ToString)
            .ReminderMinutesBeforeStart = 15
            .ReminderSet = True
            .BillingInformation = Trim(MonDataSet.Tables("Agenda")(RowNumber)("ID").ToString)
            .Save()
        End With
Quelqu'un aurait-il une idée pour affecter cette couleur ?