Effacer touts le calendrier ?!?

aah non c bon, jai fais ma ptite interface, mais comment je peux l'appeler
depuis outlook ?
sans passer par le ALT F11 ?


--
Salutations,

Fred !
ICQ: 46063572
"Fritzoune" <webmaster@discopac.ch> a écrit dans le message de news:
3f530b1c$0$3672$5402220f@news.sunrise.ch...

yes merci, tout marche nickel, et du premier coup :-))
maintenant ,avec le VB d'outlook y a moyen de faire une interface
utilisateur aussi ?
avec 3 boutons .. ?

c dommage que outlook n'ai pas deja des options comme cela pour tout
effacer

!


--
Salutations,

Fred !
ICQ: 46063572
"Anor" <http://minilien.com/?8RfQLiXHOe> a écrit dans le message de news:
3f52478d$0$27028$626a54ce@news.free.fr...

Bonjour Fritzoune

Fritzoune <webmaster@discopac.ch> a confié :
| Salut a tous,
| j'aimerai effacer tout le calendrier d'un coup, ainsi que les notes,
| tâches,contacts,
| mais sans devoir supprimer un a un les elements ou effacer des
| fichiers PST, car d'autres données me sont encore utiles !
|
| et vu que Selectionner Tout n'existe pas ....
|
|
| Merci


Pour effacer tout le calendrier :

Tu tapes Alt+F11 dans Outlook.

Tu déroules l'arbo Project1 > Microsoft Outlook Objects >
ThisOutlookSession

Tu colles ceci dans la fenêtre de droite :

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

Tu mets ton curseur n'importe où entre le Sub et le End Sub
puis tu appuies sur la touche F5 pour tout effacer,
ou la touche F8 pour y aller pas à pas (c'est plus instructif !!)

Pour les tâches, tu fais pareil (non testé, juste mis un .delete dans un
code pour les lire) :

Public Sub DeleteTaskItems()

Dim OlApp As New Outlook.Application
Dim OlMAPI As Outlook.NameSpace
Dim OlItems As Outlook.Items
Dim OlItem As Outlook.TaskItem

Set OlMAPI = OlApp.GetNamespace("MAPI")
Set OlItems = OlMAPI.GetDefaultFolder(olFolderTasks).Items

For Each OlItem In OlItems
If TypeName(OlItem) = "TaskItem" Then
OlItem.Delete
End If
Next OlItem

Set OlItem = Nothing
Set OlItems = Nothing
Set OlMAPI = Nothing
Set OlApp = Nothing

End Sub


Pour les notes ...ah j'ai pas sous la main

Pour les contacts (non testé, juste mis un .delete dans un code qui
servait à les lire) :

Sub DeleteOutlookContacts()

Dim OlApp As New Outlook.Application
Dim OlMapi As Outlook.NameSpace
Dim OlFolder As Outlook.MAPIFolder
Dim OlItems As Outlook.Items
Dim OlContact As Outlook.ContactItem

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

For Each OlContact In OlItems
OlContact.Delete
Next OlContact

Set OlContact = Nothing
Set OlItems = Nothing
Set OlFolder = Nothing
Set OlMapi = Nothing
Set OlApp = Nothing

End Sub

Voilà
Maintenant tu es gentil, tu nous dis en retour si ça marche car les 2
derniers, je n'ai pas

testé
pour ne pas perdre toutes mes données .......

euh ... j'espère que tu n'étais pas avec Outlook 97 ou 98 car il ne
supporte pas VBA !!!

--
à+
Arnaud
--------------------------------------------------
Access Memorandum - http://memoaccess.free.fr
--------------------------------------------------

Bonjour Fritzoune

Fritzoune <webmaster@discopac.ch> a confié :
| aah non c bon, jai fais ma ptite interface, mais comment je peux
| l'appeler depuis outlook ?
| sans passer par le ALT F11 ?
|
| Fred !


C'est là que mes compétences s'arrêtent pour l'instant.....
Habituellement, je pilote Outlook depuis un formulaire Access
Il faudrait que j'explore un peu Outlook, je sais !!

Sous Outlook98, les formulaires utilisaient vbscript.
Peut-être (sûrement) que depuis 2000, on peut affecter
le code vba à un clic d'un bouton dans un formulaire personnalisé ...?
--
à+
Arnaud
--------------------------------------------------
Access Memorandum - http://memoaccess.free.fr
--------------------------------------------------

Le Mon, 1 Sep 2003 21:26:35 +0200, "Anor"
<http://minilien.com/?8RfQLiXHOe> a écrit:

Bonjour Fritzoune

Fritzoune <webmaster@discopac.ch> a confié :
| aah non c bon, jai fais ma ptite interface, mais comment je peux
| l'appeler depuis outlook ?
| sans passer par le ALT F11 ?
|
| Fred !

salut,

réponse un peu tardive... il est peut-être encore temps ;)

il suffit d'utiliser "outils -> personnaliser" et tu peux attribuer
ton code VBA à un bouton dans la barre d'outils ou à un menu que tu
peux créer très facilement...

Tu choisis l'onglet "commandes" de la fenêtre qui s'est ouverte puis
dans "catégories" tu te positionnes sur la ligne "macros" et là dans
la fenêtre à droite toutes tes procédures apparaissent. Il te suffit
de glisser celle qui t'intéresse vers une barre d'outils ou un menu.

Pour créer un menu perso, tu utilises la catégories "nouveau menu"
tout en bas de la liste et tu glisses "nouveau menu" vers la barre de
menu... ensuite le bouton droit permet de tout ajuster comme on veut
(icone, titre, raccourci etc.)

à+
deg
========================================= --:: deg ::--
Corriger mon adresse pour me répondre en privé.
En la traduisant en langage plus ... net...