cs_Liro
Messages postés159Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention30 septembre 2011
-
21 janv. 2010 à 18:15
cs_Liro
Messages postés159Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention30 septembre 2011
-
23 janv. 2010 à 18:40
Bonjour,
Je cherche à trouver une note dans outlook afin de la supprimer (avant de la recréer) pour éviter les doublons.
La création de la note ne pose aucun problème.
Je suis dans excel.
Je cherche à identifier une note pour la supprimer.
Voici mon code (pour le moment j'essaye de l'afficher ensuite je mettrai "delete" à la place de "display":
Sub DeleteNote()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.Namespace
Dim myTasks As Outlook.MAPIFolder
Dim myFolder As Outlook.MAPIFolder
Dim oItemNote As Outlook.NoteItem
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myTasks = myNamespace.GetDefaultFolder(olFolderNotes)
For Each oItemNote In myTasks
oItemNote.Display
Next
End Sub
J'ai une erreur 438 à cette ligne:
For Each oItemNote In myTasks
fohaf
Messages postés60Date d'inscriptionvendredi 14 novembre 2003StatutMembreDernière intervention 6 septembre 20122 22 janv. 2010 à 02:53
Bonjour,
chez moi pour que ça fonctionne, il faut ajouter myTasks.Items
Par contre, bizarement ça ne supprime pas toutes les notes
Il faut que je les stocke dans un tableau puis que je supprime toutes les notes contenues dans ce tableau
cs_Liro
Messages postés159Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention30 septembre 2011 23 janv. 2010 à 18:40
J'ai trouvé une solution en utilisant
Sub DeleteNote()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.Namespace
Dim myTasks As Outlook.MAPIFolder
Dim oItemNote As Outlook.NoteItem
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myTasks = myNamespace.GetDefaultFolder(olFolderNotes)
For Each oItemNote In myTasks.Items
If oItemNote.Subject = "Le sujet de ma note" Then
oItemNote.Delete
End If
Next
End Sub