Hvordan lukkes UI dokument udfra original dokument

Hej Alle

Nu har jeg næsten lært at omgå denne bug, men jeg ville godtnok gerne have det rettet.

Jeg har en agent i min mailfil, der kan flytte en række mails over til en sagsdatabase hvor de placeres som responsdokumenter til en given sag.

Men jeg har et problemer med det - agenten ikke håndtere mails der er åbne i UI. Det har jeg lagt et chech ind - men findes der en måde hvor jeg bare kan lukke den åbne UI og fortsætte?

Min kode ser sådan ud... Først vælges alle markerede mails - og den sag de skal tilføjes.. så køre denne kodedel der klarer selve kopieringen

Det er mit ISUIOpen check jeg gerne ville have til et "luk UI"

Og hvis der er andre kommentarer så "hit me" ;-)

Mvh
Lasse

        For n = 1 To dokumenter.count             
            'FLYT MAIL TIL SAGERDB.....!!!!       
            Set SOURCEdoc = dokumenter.GetNthDocument(n)
            If sourcedoc.IsUIDocOpen Then
                Msgbox "Dette dokument er åben kan ikke flyttes"
            Else
                Set RESPdoc = New notesdocument(CASEDB)
                Call SOURCEdoc.CopyAllItems( RESPdoc, True )
                If respdoc.Save( True, True ) Then
                    sourcedoc.remove(True)
                End If
               
                Call RESPdoc.Makeresponse(CASEdoc)
                Call RESPdoc.Save( True, True )
            End If
        Next