title: Slow opening of any email after set value for an object on Application_ItemLoad
body: <p>Basically I am using below code to run macro after I manually open a specific email. <br>
  The code and macro works ,but I noticed there is a slowness while opening of any email on outlook. <br>
  After many tests, I find out this line is the cause of issue: <br></p>
  <pre><code>Set MyItem = Item
  </code></pre>
  <p>And this the full code: <br></p>
  <pre><code>Option Explicit
  Option Compare Text
  Public WithEvents MyItem As Outlook.MailItem
  
   
  Private Sub Application_ItemLoad(ByVal Item As Object)
      If Item.Class = olMail Then
         Set MyItem = Item  'This line cause slow opening of any email
      End If
  End Sub
   
  Private Sub myItem_Open(Cancel As Boolean)
        If MyItem.Subject = &quot;Test Email&quot; Then
        'Code
        End If
  End Sub
  </code></pre>
  <p>Kindly How to fix this issue?</p>