Ressource != Teilnehmer

hi, ich versuche folgendermaßen ressourcen in eine 2te Nachricht auszulagern leider funktioniert das nicht immer denn

room.Type = olResource wird manchmal zum erforderlichen Teilnehmer. wie kann ich das ändern???

Dim i, ii, c As Integer
i = 1

c = secretItem.Recipients.count

\’Hinzufügen der Ressourcen zur Buchung
While (i <= c)
If (secretItem.Recipients(i).Type = olResource) Then
\'Raum als Empfänger hinzufügen
Set room = publicItem.Recipients.Add(secretItem.Recipients(i))
room.Type = olResource
End If
i = i + 1
Wend