XL 2016 Supprimer un mail dans outlook

  • Initiateur de la discussion Initiateur de la discussion Don pépé
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 😉
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
1 K
Retour