Trouver une note dans outlookRésolu

Question

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

Pouvez-vous m'aider?
Merci!

fohaf · Accepted Answer

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

Bonjour Fohaf,

Merci en effet avec Items je peux afficher toutes les notes.

Maintenant comment en identifier une en particulier afin de la supprimer?

Merci!

cs_Liro · Answer

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

Trouver une note dans outlook

3 réponses

Votre réponse