Afficher les rendez vous par date

[Romantic_a]

Salut , je suis en VB.NET 2005 et je veux savoir comment je peut afficher mes rendez vous qui sont enregistrés en outlook 2007 d'une date précise dans une form

[Oliv-]

Salut,
en utilisant "restrict" voir l'aide VBE de OUTLOOK.
puis en parcourant la collection.

[Romantic_a]

s'il vous plait
si vous pouvez me donnez la syntax

[Oliv-]

Ca doit donner cela en VBA

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub DateDansCalendrier()
 
    Dim myolApp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myITEMS As Outlook.Items
    Dim myItem As Object
    MaDate = "15/05/2008"
    Set myolApp = CreateObject("Outlook.Application")
    Set myNameSpace = myolApp.GetNamespace("MAPI")
    Set myITEMS = myNameSpace.GetDefaultFolder(olFolderCalendar).Items
    strWhere = "[Start] >'" & MaDate & "' and [Start] <='" & CStr(DateAdd("d", 1, MaDate)) & "'"
 
    Set myITEMS = myITEMS.Restrict(strWhere)
    For Each myItem In myITEMS
 
        If (myItem.Class = 26) Then
            MsgBox myItem & vbCr & myItem.Start
        End If
    Next
End Sub

[Romantic_a]

MaDate = "15/05/2008"

comment faire pour que ce soit la date du jour , j'ai essayé :
today.date
now.today
now.today.date
date.today
mais rien

[Oliv-]

en vba
MaDate = CStr(Date)