Discussion :

[Feliperennes]

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 ?

[Feliperennes]

Finalement j'ai trouvé tout seul comme un grand
Il suffit de créer des catégories d'évènements dans Outlook en leur affectant une couleur et ensuite d'ajouter .Categories dans le code et d'y insérer le nom de la catégorie défini dans Outlook

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
 
With newAppointment
            .Start = CDate(DateDébutA)
            .[End] = CDate(DateFinA)
            .Subject = Trim(MonDataSet.Tables("Agenda")(RowNumber)("Objet").ToString)
            .Location = Trim(MonDataSet.Tables("Agenda")(RowNumber)("Lieu").ToString)
            .Body = Trim(MonDataSet.Tables("Agenda")(RowNumber)("Description").ToString)
            .Categories = Trim(MonDataSet.Tables("Agenda")(RowNumber)("Qui").ToString)
            .AllDayEvent = False
            .ReminderMinutesBeforeStart = 15
            .ReminderSet = True
            .BillingInformation = Trim(MonDataSet.Tables("Agenda")(RowNumber)("ID").ToString)
            .Save()
            '.Display(False)
End With