I found a solution for my problem:

oOutlook = Createobject('outlook.application')
oNameSpace = oOutlook.getnamespace('MAPI')
oDefaultFolder=oNameSpace.GetDefaultFolder(olFolderCalendar) &&Calendar olFolderCalendar=9
oItems = oDefaultFolder.items

Create Cursor temp ( Dat D, subject C(250))
*zzdumm.datum contains date in format "02.05.2012"

For suche = 1 To Reccount("zzdumm")
		oItems.Sort("[Start]", .F.)
		oItems.IncludeRecurrences = .T.
		sFilter = "([START] >= '#" + Dtoc(zzdumm.datum) + " 00:01" + "#') and  ([START] <= '#" + Dtoc       
                                (zzdumm.datum) + " 23:59" + "#')"
		currentAppointment = oItems.Find(sFilter)
		Do While Not Isnull(currentAppointment)
			If Ttod(currentAppointment.Start) = zzdumm.datum
				m.Dat = zzdumm.datum
				m.subject = currentAppointment.subject
				Insert Into temp From Memvar
			Endif
			currentAppointment =  oItems.FindNext
		Enddo
	Endif
	Select zzdumm
	Skip
Next suche

Probably somebody has the same problem

Thanks for all answers

Marcus