XL 2016 Supprimer un mail dans outlook

[Don pépé]

Bonjour,
Depuis quelques temps j'essaye de supprimer des mails dans ma boite de réception d'Outlook avec EntryId mais j'ai toujours une erreur.

Sub TestSupMail()
Dim o As Object, olSpace As Object, olInbox As Object, m As Object, a As Object
Set o = CreateObject("Outlook.Application")
Set olSpace = o.GetNamespace("MAPI")
Set olInbox = olSpace.GetDefaultFolder(6)

On Error GoTo Error_Handler

Dim id
id = "0000000019F189AEEB456A4F996496BF6BFAFF520700CDCB34C52E0B0143B19E1E49226C56BE00000000010C0000CDCB34C52E0B0143B19E1E49226C56BE00026C9998640000"

Set m = olInbox.Items.Find("[EntryID] = " & id & " ") 'EntryID
If Not m Is Nothing Then
    m.Delete
Else
    MsgBox "Mail non trouvé..."
End If

ExitSupMAil:
    o.Quit
    Exit Sub

Error_Handler:
MsgBox "MS Excel a généré l'erreur suivante :" & vbCrLf & vbCrLf & _
    "Numéro d'erreur : " & Err.Number & vbCrLf & _
    "Source d'erreur : SupMail" & vbCrLf & _
    "Description de l'erreur : " & Err.Description, vbCritical, "Une erreur s'est produite!"
    Resume ExitSupMAil
End Sub

L'erreur est qu'il ne trouve pas cet EntryId hors il est bien dans ma boite de réception.
Avez vous une solution pour m'aider ??

merci a vous

 

[STephane]

bonjour,

Si tes fichiers sont toujours dans le même répertoire, tu peux récupérer l'ID du répertoire et faire référence à l'item avec la méthode GetItemFromID. Mon exemple fonctionne et récupère

Sub demo()
Set olInbox = olSpace.GetDefaultFolder(6)
StoreID = olInbox.StoreID
Dim id
id = "0000000019F189AEEB456A4F996496BF6BFAFF520700CDCB34C52E0B0143B19E1E49226C56BE00000000010C0000CDCB34C52E0B0143B19E1E49226C56BE00026C9998640000"
 Set Item = olSpace.GetItemFromID(id, StoreID)
 Item.Display
 'Item.Subject = "efface"
 'Item.Save
  Item.Delete
End Sub

 

[Don pépé]

Merci à toi @STephane ça fonctionne très bien