Bonjour,
Je rencontre un problème pour lequel votre aide est attendue.
Je développe une petite appli en vba pour récupérer des rendez vous
saisis dans mon calendrier en fonction de la catégorie assignée(sans
utilisation d'un serveur).
J'arrive à sélectionner sans problème l'objet (subject), le lieu
(location).... mais pas les categories (categories) que je saisi en
fonction des rendez vous.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Spectre
J'ai oublié d'ajouter le code....
Function rechercheCal() '
Dim myApp As New Outlook.Application Dim MySpace As NameSpace Dim myFolder As MAPIFolder 'Outlooks MAPI Dim myItems As Items Dim MyItem As AppointmentItem 'rdv Dim intCompteur As Integer
Set MySpace = myApp.GetNamespace("MAPI") 'get a namespace for the data items in the MAPI Set myFolder = MySpace.GetDefaultFolder(olFolderCalendar) 'set the folder as the calendar Set myItems = myFolder.Items ' set the myItems to be each of the appointments in the calendar data space 'On Error Resume Next For intCompteur = 2 To myItems.Count ' Loop through all the appointments in the calendar
zzz = myItems(intCompteur).Subject ses = myItems(intCompteur).Location cat = "categ" & myItems(intCompteur).Categories Debug.Print cat 'Debug.Print zzz Next intCompteur ' Iterate through to the next appointment item
Set MySpace = Nothing Set myFolder = Nothing Set myItems = Nothing Set MyItem = Nothing End Function
J'ai oublié d'ajouter le code....
Function rechercheCal() '
Dim myApp As New Outlook.Application
Dim MySpace As NameSpace
Dim myFolder As MAPIFolder 'Outlooks MAPI
Dim myItems As Items
Dim MyItem As AppointmentItem 'rdv
Dim intCompteur As Integer
Set MySpace = myApp.GetNamespace("MAPI") 'get a namespace for the
data items in the MAPI
Set myFolder = MySpace.GetDefaultFolder(olFolderCalendar) 'set the
folder as the calendar
Set myItems = myFolder.Items ' set the myItems to be each of the
appointments in the calendar data space
'On Error Resume Next
For intCompteur = 2 To myItems.Count ' Loop through all the
appointments in the calendar
zzz = myItems(intCompteur).Subject
ses = myItems(intCompteur).Location
cat = "categ" & myItems(intCompteur).Categories
Debug.Print cat
'Debug.Print zzz
Next intCompteur ' Iterate through to the next appointment item
Set MySpace = Nothing
Set myFolder = Nothing
Set myItems = Nothing
Set MyItem = Nothing
End Function
Dim myApp As New Outlook.Application Dim MySpace As NameSpace Dim myFolder As MAPIFolder 'Outlooks MAPI Dim myItems As Items Dim MyItem As AppointmentItem 'rdv Dim intCompteur As Integer
Set MySpace = myApp.GetNamespace("MAPI") 'get a namespace for the data items in the MAPI Set myFolder = MySpace.GetDefaultFolder(olFolderCalendar) 'set the folder as the calendar Set myItems = myFolder.Items ' set the myItems to be each of the appointments in the calendar data space 'On Error Resume Next For intCompteur = 2 To myItems.Count ' Loop through all the appointments in the calendar
zzz = myItems(intCompteur).Subject ses = myItems(intCompteur).Location cat = "categ" & myItems(intCompteur).Categories Debug.Print cat 'Debug.Print zzz Next intCompteur ' Iterate through to the next appointment item
Set MySpace = Nothing Set myFolder = Nothing Set myItems = Nothing Set MyItem = Nothing End Function
Spectre
encore moi...
Bon, j'ai trouvé une explication : le champs catégories à renseigner dans le calendrier n'est pas celui en haut de l'écran (catégories du calendrier) mais celui d'ne bas (catégories).
Bon, ayant toujours saisi dans le premier champs, il faut que je trouve la propriété.
Bye
encore moi...
Bon, j'ai trouvé une explication : le champs catégories à renseigner
dans le calendrier n'est pas celui en haut de l'écran (catégories du
calendrier) mais celui d'ne bas (catégories).
Bon, ayant toujours saisi dans le premier champs, il faut que je trouve
la propriété.
Bon, j'ai trouvé une explication : le champs catégories à renseigner dans le calendrier n'est pas celui en haut de l'écran (catégories du calendrier) mais celui d'ne bas (catégories).
Bon, ayant toujours saisi dans le premier champs, il faut que je trouve la propriété.
Bye
Grég
Bonjour/soir,
Si vous comprenez (et écrivez) l'anglais, je ne peux que vous conseiller le newsgroup microsoft.public.outlook.program_vba!
Codialement. -- Grég "Spectre" a écrit dans le message de news:
encore moi...
Bon, j'ai trouvé une explication : le champs catégories à renseigner dans le calendrier n'est pas celui en haut de l'écran (catégories du calendrier) mais celui d'ne bas (catégories).
Bon, ayant toujours saisi dans le premier champs, il faut que je trouve la propriété.
Bye
Bonjour/soir,
Si vous comprenez (et écrivez) l'anglais, je ne peux que vous conseiller le
newsgroup microsoft.public.outlook.program_vba!
Codialement.
--
Grég
"Spectre" <pro@toto.com> a écrit dans le message de news:
mn.0baa7d63d79ed1e7.49291@toto.com...
encore moi...
Bon, j'ai trouvé une explication : le champs catégories à renseigner dans
le calendrier n'est pas celui en haut de l'écran (catégories du
calendrier) mais celui d'ne bas (catégories).
Bon, ayant toujours saisi dans le premier champs, il faut que je trouve la
propriété.
Si vous comprenez (et écrivez) l'anglais, je ne peux que vous conseiller le newsgroup microsoft.public.outlook.program_vba!
Codialement. -- Grég "Spectre" a écrit dans le message de news:
encore moi...
Bon, j'ai trouvé une explication : le champs catégories à renseigner dans le calendrier n'est pas celui en haut de l'écran (catégories du calendrier) mais celui d'ne bas (catégories).
Bon, ayant toujours saisi dans le premier champs, il faut que je trouve la propriété.
