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...
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.