Discussion :

[/* jerome */]

Bonjour,

J'ai développé une interface en delphi entre un applicatif metier et outlook, afin de synchroniser les rendez-vous entre les 2 applications.
Tout fonctionne plutot bien, j'exporte et je met a jour mes rendez-vous dans les 2 sens. 8)

Il me reste une propriété que je n'arrive pas à exploiter dans outlook : "Catégorie du calendrier"
Cette propriété permet de changer la couleur du RDV, en fonction de sa catégorie (Important, Bureau, Personnel, Congé, ...).
Je voudrais pouvoir lire/ecrire cette info mais je n'y arrive pas.
J'ai trouvé des articles mais seulement en VB et je n'arrive pas à adapter.
Quelqu'un à une idée ? :

Merci

[Laurent Dardenne]

J'ai trouvé des articles mais seulement en VB et je n'arrive pas à adapter.

Communique nous le code on verra si on peut le traduire.
Quel est le nom de la propriété en question ?

[/* jerome */]

En fait il n'y a pas de nom de proprieté à proprement parler (enfin si j'ai bien tout compris). Il faut passer par le "code" '0x8214' qui doit etre une propriété étendue ou quelque chose comme ca ?!?

Un résumé de code que j'ai trouvé :

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
26
27
28
29
30
31
32
33
 
Dim objItem As Object
Dim objAppt As AppointmentItem
Dim intColor As Integer
Const CdoPropSetID1 = "0220060000000000C000000000000046"
Const CdoAppt_Colors = "0x8214"
Dim objCDO As MAPI.Session
Dim objMsg As MAPI.Message
Dim colFields As MAPI.Fields
Dim objField As MAPI.Field
 
intColor=3
 
Set objItem = Application.ActiveExplorer.Selection(1)
If objItem.Class = olAppointment Then
    Set objAppt = objItem
 
    Set objCDO = CreateObject("MAPI.Session")
    objCDO.Logon "", "", False, False
    If Not objAppt.EntryID = "" Then
        Set objMsg = objCDO.GetMessage(objAppt.EntryID, _
                                   objAppt.Parent.StoreID)
        Set colFields = objMsg.Fields
        Set objField = colFields.Item(CdoAppt_Colors, CdoPropSetID1)
        If objField Is Nothing Then
            Set objField = colFields.Add(CdoAppt_Colors, vbLong, intColor, CdoPropSetID1)
        Else
            objField.Value = intColor
        End If
        objMsg.Update True, True
    End If
 
End If

Le code complet ici


Dans un autre genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
CDO.Appointment iAppt = new CDO.Appointment();
iAppt.Fields["http://schemas.microsoft.com/mapi/id/{00062002-0000-0000-C000-000000000046}/0x8214"].Value = Int32.Parse(un nombre de 1 à 11);
iAppt.Fields.Update();

J'ai trouvé encore d'autres exemples, mais on en revient toujours a cette propriété "Fields" que je n'ai pas. J'ai essayé des tas de syntaxes mais rien n'y fait. Je ne trouve pas d'info claire ni dans MSDN ni dans les forums, ni google/yahoo

Pour l'instant j'ai laissé tomber, mais n'importe quelle piste qui pourrait me permettre d'avancer est la bienvenue

Merci d'avance.

[Laurent Dardenne]

Je ne trouve pas d'info claire ni dans MSDN ni dans les forums, ni google/yahoo

Tu travailles avec Exchange ?
Car à prioris il s'agit d'objet en relation avec Exchange
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/ee47abb0-5b59-4ade-bd42-654cf03c4759.asp?frame=true

[/* jerome */]

Arf non, j'interface outlook.
J'avais pas fait gaffe a ca, a force de chercher des exemples de tout le coté j'ai du melanger un peu
J'avais espoir de pouvoir adapter ce code, mais je crois que ca va etre difficile.
Tant pis, ce sera pas en couleur (dommage).