Calendier

le plus simple a mon avi
afficher le calendrier ;mode leste detaillee puis selectioner tous les rdvz puis suppression
voil
di

----- René a écrit : ----

Bonjour

Comment vider complètement le calendrier uniquement

Merc

Bonjour/soir,
dans son message, René nous interroge !
|> Bonjour,
|>
|> Comment vider complètement le calendrier uniquement.
Une solution plus *radicale* c'est de supprimer le dossier "calendrier" et
le recréer ensuite.

--
Salutations.
:-) Jacques
pour me joindre, remplacez wouala par voila !

On m'avait donné a l'époque une fonction ecrite en VBA pour ce genre de
chose...
Pour EFFACER LE CALENDRIER
(fais une copie de sauvegarde au cas ou avant..)


Sub SupprimerRDV()
Dim OlApp As New Outlook.Application
Dim OlMapi As Outlook.NameSpace
Dim OlFolder As Outlook.MAPIFolder
Dim OlItems As Outlook.Items
Dim OlAppointment As Outlook.AppointmentItem

Set OlMapi = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)
Set OlItems = OlFolder.Items

For Each OlAppointment In OlItems
With OlAppointment
.Delete
End With
Next OlAppointment

Set OlAppointment = Nothing
Set OlItems = Nothing
Set OlFolder = Nothing
Set OlMapi = Nothing
Set OlApp = Nothing
End Sub

--
Salutations,

Fred !
ICQ: 46063572
"René" <imac@e-vallee.fr> a écrit dans le message de news:
BBD68859.D002F%imac@e-vallee.fr...

Bonjour,

Comment vider complètement le calendrier uniquement.

Merci