DominoArea.org [Archive]

Bonjour,

Je dois créer un agent schédulé dans une réplique locale de ma base courrier Notes pour aller récupérer les entrées d'agenda dans outlook.
Avez-vous des pistes pour faire ce genre de chose ??

Précision, ce n'est pas une migration de outlook vers Notes, l'agent doit tourner toutes les heures.

J'ai trouvé, si ça peut intéresser d'autres personnes voici un extrait du code :

Code : Tout sélectionner

Sub Initialize
   Dim outlook As Variant
   Dim nameSpace As Variant
   Dim folder As Variant
   Dim myItems As Variant
   Dim startDate As Variant
   Dim filterString As String
      
   Set outlook= CreateObject("Outlook.Application")
   Set nameSpace = outlook.GetNameSpace("MAPI")
   Set folder = nameSpace.GetDefaultFolder(9)
      
   startDate = DateSerial(Year(Now), Month(Now), Day(Now) - Weekday(Now) + 2)
   filterString = "[end] >=" & " '" & CStr(StartDate) & "' and" & "[start] < '" & CStr(StartDate + 3) & "'"
   Set myItems = folder.Items
      
   Forall c In myItems.Restrict(filterString)
      MsgBox c.Start
      MsgBox c.Duration
      MsgBox c.Subject
   End ForAll

   Set folder=Nothing
   Set nameSpace=Nothing
   Set outlook=Nothing
   
End Sub