Outlook Crash when deleting recipient

    Private Function HasExternalRecipients(ByVal recipients As Outlook.Recipients) As Boolean
        If recipients.Count Then
            For Each recipient As Outlook.Recipient In recipients
                Dim entry As Outlook.AddressEntry = recipient.AddressEntry
                If entry IsNot Nothing Then
                    Dim smtpAddress As String = ""

                    If (entry.Type = "EX") Then
                        smtpAddress = GetSMTPAddressViaOutlookObjectModel(entry)
                    Else
                        smtpAddress = entry.Address
                    End If

                    Marshal.ReleaseComObject(entry)
                    Marshal.ReleaseComObject(recipient)

                    If IsExternalRecipient(smtpAddress) = True Then
                        Return True
                    End If
                End If
            Next
        End If

        Return False
    End Function

Faulting application name: OUTLOOK.EXE, version: 16.0.11328.20468, time stamp: 0x5dbb4e2f
Faulting module name: RICHED20.DLL, version: 16.0.11328.20468, time stamp: 0x5dbb4d59
Exception code: 0xc0000005
Fault offset: 0x000a52a0
Faulting process ID: 0x6dfc
Faulting application start time: 0x01d74bcf0aefe66a
Faulting application path: C:Program Files (x86)Microsoft Office
ootOffice16OUTLOOK.EXE
Faulting module path: C:Program Files (x86)Microsoft Office
ootfsProgramFilesCommonX86Microsoft SharedOFFICE16RICHED20.DLL
Report ID: 36cad1e4-e0ef-4879-8110-4e3f88ad3fb1
Faulting package full name: 
Faulting package-relative application ID: 

    Public Overrides Sub ProcessPropertyChange(ByVal Name As String)
        Dim props() As String = {"TO", "CC", "BCC", "SUBJECT"}
        If Name IsNot Nothing And Not String.IsNullOrEmpty(Name) Then
            Dim found As String = Array.Find(props, Function(x) (x.Equals(Name.ToUpper)))

            If found IsNot Nothing Then
                If TypeOf Me.ItemObj Is Outlook._MailItem Then
                    Dim mailItem As Object = Marshal.GetUniqueObjectForIUnknown(Marshal.GetIUnknownForObject(Me.ItemObj))
                    If Not mailItem.Sent Then
                        am.DoPropertyChange(Name, mailItem)
                    End If

                    If mailItem IsNot Nothing Then
                        Marshal.ReleaseComObject(mailItem)
                    End If
                End If
            End If
        End If
    End Sub

    Public Sub DoPropertyChange(ByVal PropName As String, Optional ByVal mail As Outlook.MailItem = Nothing)
        Dim form As EmailAutoFilingHost = CType(Me.AdxOlFormsCollectionItem1.GetCurrentForm(), EmailAutoFilingHost)
        Dim mailItem As Object = Marshal.GetUniqueObjectForIUnknown(Marshal.GetIUnknownForObject(mail))

        If mailItem IsNot Nothing And form IsNot Nothing Then
            Dim shouldFile As Boolean = WillBeFiled(mailItem, form.FileInternal, form.ShouldNotFile)
            form.DoBackgroundPaint(shouldFile, OfficeColorScheme)
        End If

        If PropName.ToUpper = "SUBJECT" Then
            Dim Subject As String = mailItem.Subject
            Dim Viewable = CasecodeViewableLookup(Subject)
            form.OcisViewable = Viewable
        End If

        If mailItem IsNot Nothing Then
            Marshal.ReleaseComObject(mailItem)
        End If
    End Sub

    Public Function WillBeFiled(ByVal mail As Outlook.MailItem, ByVal internalFile As Boolean, ByVal shouldNotFile As Boolean) As Boolean
        If mail IsNot Nothing And Not shouldNotFile Then
            Dim recipients As Outlook.Recipients = mail.Recipients
            If recipients.Count > 0 Then
                Dim hasExtRecipients As Boolean = HasExternalRecipients(recipients)
                Marshal.ReleaseComObject(recipients)

                If (hasExtRecipients Or internalFile) And StringHasCaseCodes(mail.Subject) Then
                    Return True
                End If
            End If
        End If

        Return False
    End Function

        If OutlookItemEvents.IsConnected Then
            OutlookItemEvents.RemoveConnection()
        End If