Édition : OLDureeCategorie

Public Sub CRAB() 👩

' FVA 20060303
' Listage des RDV et de leurs propriétés

' A faire
' * Demander la/les catégorie(s) à filtrer (cf ShowCategoriesDialog)
' * Demander une plage de date
' * Afficher : le nombre de RDV
' * Afficher : la durée des heures pour chaque catégorie
' * Afficher : la durée totale des RDV

Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myAppts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Outlook.AppointmentItem

Dim sSEP    As String

    sSEP = ";"

    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myItems = myNamespace.GetDefaultFolder(olFolderCalendar).Items
'    Set myItems = myAppts.Restrict("[LastModificationTime] > '01/1/2003'")
'    Set myItems = myItems.Restrict("[Start] = '03/03/2003'")
    For Each myItem In myItems
        Debug.Print myItem.Start & sSEP & myItem.End & sSEP & DateDiff("n", myItem.Start, myItem.End) & sSEP & myItem.Categories
'        myItem.ShowCategoriesDialog
    
    Next

End Sub

Règles de formatage

_texte_
Faire une emphase (italique)
__texte__
Faire une emphase forte (gras)
@@texte@@
Faire un petit code
''texte|langue|source''
Faire une petite citation
>texte
Faire un paragraphe de citation
[texte|URI|langue|titre]
Faire un lien vers une page, les paramètres sont optionnels
((image|texte alternatif|alignement))
Ajouter une image, alignement peut valoir G(auche), D(roite) ou C(entre)
texte
Tout texte écrit simplement sera transformé en paragraphes.
!titre1, !!titre2, !!!titre3, etc.
Créer un titre d'un niveau égal au nombre de !
-texte ou *texte
Faire une liste d'éléments non numérotés
#texte
Faire une liste d'éléments numérotés
;titre:définition
Faire une définition/liste de définitions
??acronyme|titre??
Faire un acronyme
[ESPACE]texte ou {{{texte}}}
Le texte sera préformaté, utile pour écrire des bouts de code
==== ou ---- (au moins 4)
Une ligne de séparation horizontale
\
Si vous ne voulez pas que la syntaxe wiki s'applique, faites précéder les caractères spéciaux par des anti-slashs.