For i As Integer = 1 To OutMapFold.Items.Count
            If OutMapFold.Items.Item(i).MessageClass = "IPM.Contact" Then
                OutAppIt = OutMapFold.Items.Item(i)
                ' Code
            End If
        Next

        For i As Integer = 1 To OutMapFold.Items.Count
            Try
                OutAppIt = OutMapFold.Items.Item(i)
                ' Code
            Catch
            End Try
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist