Hallo,
ich moechte aus meiner Anwendung heraus einen neuen Outlook Termin erstellen.
Leider bekomme ich staendig einen "Unknown name, (failed on
"Subject")" Fehler gemeldet.
[Hier der Code:]
dim olApp as OLEObject
Dim v As Variant
Dim params(1) As Variant
olApp = New OLEObject("Outlook.Application")
params(1) = 1
v = olApp.invoke("CreateItem", params) // 1 ist die
olAppointmentItem Konstante
params(1) = betreff
v = olApp.Property("Subject", params)
params(1) = startzeit 'Format MM/TT/YYY HH:MM
v = olApp.invoke("Start", params)
params(1) = endzeit 'Format wie Start
v = olApp.invoke("End", params)
params(1) = nachricht
v = olApp.invoke("Body", params)
params(1) = 0
v = olApp.invoke("Save", params)
Exception err as OLEException
MsgBox err.message
[Code Ende]
Die Variant(en) betreff, nachricht, startzeit, endzeit werden als
String uebergeben.
Der Fehler ist aber nicht in einem falschen Property (hier "Subject")
begruendet, denn er tritt auch auf wenn ich die Subject Zeilen
auskommentiere.
Irgend etwas stimmt hier grundsaetzlich nicht, doch ich komme nicht drauf.
Vielen Dank fuer jede Hilfe :o)
|