Nombre de pièces jointes Outlook indiquant un nombre incorrect

Question

J'essaie de parcourir tous les éléments attachés dans le courrier sélectionné, mais le nombre de pièces jointes génère une valeur absurde.

Sub ABU_out() 

Dim olapp As Outlook.Application 
Dim olmail As Outlook.MailItem 
Dim item As Object 
Dim olath As Outlook.Attachments 




Set olapp = GetObject(, "Outlook.Application") 
Set olmail = olapp.ActiveExplorer.Selection(1) 


If Not olmail.Attachments.Count = 0 Then 

Debug.Print olmail.Attachments.Count 

     For Each olath In olmail.Attachments 

      If InStr(LCase(olath.FileName), "certificate") Then 

       If InStr(LCase(olath.FileName), "endorsement") = 0 Then 

        Debug.Print olath.FileName 

        olath.SaveAsFile "C:\Users\mohit.bansal\Desktop\Automations\ABU\Slips Sample\" & olath.FileName 

       End If 

      End If 

     Next 

End If 



End Sub 

problème se produit lorsque je sélectionne un mail avec 2 éléments de la Debug.Print dit 3 et si le courrier a 3 points, il est dit 5. Erreur vient dans olath dit son Rien Je ne sais pas ce qui ne va pas dans le code , J'ai utilisé le code similaire dans les événements privés qui fonctionne bien.

Answer 1

J'ai trouvé l'erreur .... Je déclare olath comme outlook.attachments alors que si je le déclare comme objet cela fonctionne. Ne pas oublier que les images sont également des pièces jointes.