Ajout d'un rdv dans un "sous calendrier d'outlook"

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 505 fois - Téléchargée 28 fois

Contenu du snippet

Salut à tous.
J'ai tellement galéré pour pouvoir ajouter un RDV à ce que j'appelle un sous calendrier outlook que voici le petit pout de code qui permet ce miracle...
Voici ce que j'appelle un "sous-calendrier" : Lorsque vous êtes dans outlook et que vous créez un ou plusieurs nouveaux calendriers, ceux-ci se placent sous le calendrier par défaut de Outlook.
Des bout de codes permettant d'ajouter, supprimer, modifier ou trouver des RDV dasn le calendrier "Principal " ne manquent pas, mais pour ce qui est des sous calendrier...
Voici le code:
PS : N'oubliez pas de rajouter la référence "Outlook à votre projet...

Source / Exemple :


Public Function RDV()
     Dim OutObj as Outlook.Application
     Dim OutAppt as Outlook.AppointmentItem
     Dim MyCalendar as Outlook.Items

     Set OutObj = CreateObject("Outlook.Application")
     'Concernant la ligne suivante après le ("MAPI")
     '     Folders.Item(1) : correspond au dossier Personnel
     '     Folders.Item(5) : correspond au dossier Calendrier standard
     '     Folders.Item(1) : correspond au sous calendrier, s'il y en a d'autre remplacer par le n° d'index...
     Set MyCalendar = OutObj.GetNameSpace("MAPI").Folders.Item(1).Folders.Item(5).Folders.Item(1).Items
     Set OutAppt = MyCalendar.Add(olAppointmentItem)
     With OutAppt
          .Start = Now 'Date et Heure du début du RDV
          .Duration = 60 'Durée du RDV en minute
          .Subject = "Test de RDV"
          .Body = "Essai de ligne n°1" & vbcrlf & "Essai de ligne n°2
          .Location = "1, place du Capitole 31000 Toulouse"
          .ReminderSet = True
          .Save
     End With
     Set OutObj = nothing
End Function

Conclusion :


Je reste à votre disposition...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
samedi 8 janvier 2011
Statut
Membre
Dernière intervention
12 janvier 2011

Messages postés
1
Date d'inscription
dimanche 7 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2010

bonjour à tous!
merci de me venir en aide pour ajouter automatiquement un rendez vous de ACCESS2007 à OUTLOOK2007 .
ma table PROJET
les champs concernés:
Daterdv
heurerdv
ADRESSE
Remarques
RVDurée

Ces rendez-vous doivent venir sous le calendrier Franck dans outlook 2007

Il faudrait aussi vérifier qu'il n'y ait pas de rdv à la même date, même heure...

Merci beaucoup à ceux qui pourraient m'aider !
Messages postés
1
Date d'inscription
jeudi 7 décembre 2000
Statut
Membre
Dernière intervention
19 janvier 2010

Bonjour,
Je me permets de venir vers vous car je n'arrive pas à appliquer le code de CRACHYEAR, en effet je me pose plusieurs questions, dans le Set MyCalendar = à quoi correspond le "8" (Folders.Item(8)) et le "Salle" dans (Folders.Item(Salle).Items)
j'ai une erreur sur cette ligne (index de la matrice en dehors des limites) :-(
quand de supprime le Folders.item(Salle) alors il ajoute bien le rdv mais dans mon calendrier local et non dans le calendrier partagé comme je le souhaiterai.
D'avance merci de vos réponses
Cordialement
François
Messages postés
39
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
20 novembre 2013

Bonjour,

Je débute en VBA et en programmation objet (mais pas en programmation "des papys" ;) )
et je ne vois pas comment on utilise cette super fonction.
Quelqu'un pourrait-il éclairer ma lanterne ?

Merci.

Alf
Messages postés
46
Date d'inscription
dimanche 10 octobre 2004
Statut
Membre
Dernière intervention
13 juin 2008
1
Salut,

C'est pas dans le but de te casser, peut-être qu'avec d'anciennes version à outlook 2003 c'est pas possible ou je sais pas, mais...

si tu sélectionne uniquement ton sous-calendrier et qu'ensuite t'effectue la rédaction d'un rendez-vous, il s'enregistre dans ton SOUS-calendrier... (J'avais la même peur avant de savoir...)

A+
Afficher les 16 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.