How do you dim myAppointment? What would TypeName(myAppointment) return?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Meex" wrote in message
oups.com...
Code:
For Each Data In et_act.Rows
'Suchen nach ob Termin bereits vorhanden
Set myAppointment = myFolderCal.Items.Find("[BillingInformation] =
'" & _
Data("VBELN") & "'")
'Termin nicht gefunden, neu erstellen
If myAppointment Is Nothing Then
Set myAppointment = m_olApp.CreateItem(olAppointmentItem)
Else 'Termin vorhanden
If Not myAppointment.IsRecurring Then 'ERROR OCCURES!!!
For i = 1 To myAppointment.Links.count
myAppointment.Links.Remove (1)
Next i
End If
End If
Next

regards
Meex