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