XL 2016 Supprimer un mail dans outlook

Don pépé

XLDnaute Occasionnel
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.
VB:
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

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

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

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 727
Membres
110 552
dernier inscrit
jasson