VBA Outlook

Bonjour à tous, 

   Voici mon petit soucis. Je connais pas mal VBA, mais uniquement sous Word, Access et Excel. A présent, je voudrais paramétrer un petit UserForm à l'ouverture d'Outlook mais je ne sais pas comment faire.
Créer le UserForm, pas de soucis, mais après je coince complètement.

Ce que je voudrais faire, c'est balayer mon calendrier, et compter le nombre de rendez-vous prévus, puis afficher le résultat sur mon UserForm qui s'affiche dès que j'ouvre Outlook.

Par exemple, je crée une variable "i" qui s'incrémente dès que, dans l'objet du rendez-vous, il y ait le mot "Formation" par exemple.

Mais je ne sais pas du tout comment appeler mon calendrier, les évènements, puis les objets de ces derniers..., ni même le faire commencer à la date d'aujourd'hui.

Merci pour votre aide.

Cordialement.

Salut,

Pour appeler ton calendrier facile, pour l'ouverture de ton userform à l'ouverture d'outlook je ne sais pas.
Moi je voudrais créer une barre d'outils qui m'ouvre mon userform mais je veux que ce soit accessible depuis n'importe quel poste equipé d'Outlook de mon réseau.
Si tu as une idée...
Sinon je te disai que pour le calendrier il faut que tu face ceci :
   
Dim outobj As Outlook.Application
Dim MyCalendar As Outlook.Items
Dim outappt As Outlook.AppointmentItem

Set outobj = CreateObject("outlook.application")

'Moi ici je vais chercher un calendrier qui est situé dans mes dossiers publics d'outlook
'Set MyCalendar = outobj.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item(i).Folders.Item(Salle).Items
'Il va falloir que tu modifi le olPublicFoldersAllPublicFolders et mettre à la place olFolderCalendar
'Ca devrait te donner ca :
Set MyCalendar = outobj.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
For Each MyItem In MyCalendar
   'Ici tu met le code dont tu as besoin
   'Exemple pour afficher le debut du rendez-vous :
   Set outappt = MyItem
   MsgBox outappt.Start
Next

J'espère que ca pourra t'aider et si toi tu as une idée pour moi pour pouvoir créer une barre d'outils accessible à tous mes postes client... Sachant que j'ai déjà du code vba pour faire une nouvelle barre d'outils et un bouton dedans et affecter au bouton l'ouverture d'un userform.

A+