Discussion :

[benibur]

Bonjour,

Je voudrais qu'à la création d'une réunion un script rajoute automatiquement une liste de salles.
Je pensais utiliser

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Application_ItemLoad(ByVal Item As Object)
  If Item.Class = olAppointment Then
    If Item.Subject = "" Then
      ' actions pour modifier Item qui est une réunion sans objet
      ' ...
      ' or Item.Subject retourne une erreur...
    End If
  End If
End Sub

Or la pluspart des attributs et méthodes de L'item ne sont pas utilisables, vba retourne le message d'erreur :

"impossible d'utiliser les propriétés et méthodes dans cette procédure évènementielle"

=> une idée pour modifier une réunion dans l'évènement ItemLoad ? prévilégier une autre aproche (par ex utiliser une macro qui créé la réunion puis l'ouvre en modification).

thank's !

[echaplet]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim WithEvents m_objApp As Outlook.AppointmentItem
 
Private Sub m_objApp_Open(Cancel As Boolean)
    m_objApp.Resources = "salle_par_defaut@domaine.org"
 End Sub
 
Private Sub Application_ItemLoad(ByVal Item As Object)
   If (Item.Class = olAppointment) Then
        Set m_objApp = Item
    End If
 
End Sub