Getdefaultfolder ne fonctionne pas en late binding

Question

Toujours dans le cadre de mon application commande/réception Je suis contraint de modifier mon code dans EXCEL pour des routines de OUTLOOK (envoi message, lire message, suppression message) Compte tenu que nous venons de nous retrouver avec un environnement hétérogène : 2013 et 2016, je découvre un point que je ne connaissais pas. Au départ, j'étais sans le savoir en early binding avec la bibliothèque Microsoft Outlook 2015 que j'avais coché dans les références Je me suis donc retrouvé avec un tableau en 2013 qui est passé entre les mains de quelqu'un ayant migré en 2016 et bien entendu quand ce tableau est repassé entre les mains de quelqu'un qui est en 2013 : ça a bogué Donc après recherche, j'ai compris que je devais passer plutôt en late binding J'ai décoché la bibliothèque 2015, modifié le code concernant Outlook en conséquence Tout fonctionne bien dans toutes les routines sauf une ci-dessous Il me dit incompatibilité de type sur getdefaultfolder de la inbox. Avec le message 'incompatibilité de type' Si je coche à nouveau la bibliothèque 2015, pas de problème J'ai essayé plusieurs solutions sans succès. Merci d'avance Sub supprmail() ' ' suppression du mail une fois traité ' Dim olApp As Object, NS As Object, Dossier As Object, myattachment As Object Dim OlExp As Object Dim mymail As Object Dim nbpj As Integer Dim nompj As String Dim myatt As Object Set olApp = CreateObject("Outlook.Application") Set OlExp = olApp.ActiveExplorer Set NS = olApp.GetNamespace("MAPI") Set Dossier = NS.GetDefaultFolder(olFolderInbox) Application.DisplayAlerts = False On Error Resume Next For Each mymail In Dossier.Items wtrouve = False If mymail.Attachments.Count = 1 Then For Each myatt In mymail.Attachments If myatt.DisplayName = wpjasup Then wtrouve = True Else End If Next myatt Else End If If wtrouve = True Then mymail.Delete Exit Sub Else End If Next mymail On Error GoTo 0 Application.DisplayAlerts = True End Sub...

Invité · Answer

Il serait bien que tu édites ton poste et que tu mettes le code entre les balises &#91; code&#93;&#91; /code&#93; sans espace après le &#91; Ensuite, effectivement quand tu as un parc logiciel hétérogène, tu dois passer par du "Late Binding" Par défaut c'est ce que je conseille d'utiliser, même si ce n'est pas le cas Pour ce qui est de ton problème, la constante "olFolderInbox" n'est utilisable que si tu coches la référence "Microsoft Outlook..." Il faut donc la remplacer par sa valeur qui est 6 (dans la fenêtre d'éxécution tu tapes : Debug.Print olFolderInbox quand la référence est cochée) Voici ton code modifié et entre balises Sub SupprMail() ' suppression du mail une fois traité ' Dim olApp As Object, NS As Object, Dossier As Object, myattachment As Object Dim OlExp As Object Dim mymail As Object Dim nbpj As Integer Dim nompj As String Dim myatt As Object Set olApp = CreateObject("Outlook.Application") Set OlExp = olApp.ActiveExplorer Set NS = olApp.GetNamespace("MAPI") ' olFolderInbox = 6 Set Dossier = NS.GetDefaultFolder(6) ' Application.DisplayAlerts = False On Error Resume Next For Each mymail In Dossier.Items wtrouve = False If mymail.Attachments.Count = 1 Then For Each myatt In mymail.Attachments If myatt.DisplayName = wpjasup Then wtrouve = True Else End If Next myatt Else End If If wtrouve = True Then mymail.Delete Exit Sub Else End If Next mymail On Error GoTo 0 Application.DisplayAlerts = True End Sub A+...