Récupérer des entrées d'agenda Outlook depuis Notes

[mike76]

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.

[mike76]

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