Outlook 2000 Automation funzt ned unter VBS

[Sergeant Hartman]

Mahlzeit Jungs und Mädels,

hab da ein Problem, das die clientseitige Automation von Outlook 2000 via VBA/VBS betrifft.

Das Konzept läuft folgendermassen:

Ich möchte den Terminkalender von Outlook 2000 mittels HTML-Seite synchroniseren, d.h. über eine Webseite benutzerdefinierte Termine ins Outlook des Clients einzufügen.

Technisch ist das auch kein grosses Problem, in VB(A/S) binde ich einfach das Outlook 9.0 Object Model ein um einzelne Programmfunktionen anzusprechen. (jaja, den EMail-Wurm-Codern dürfte des ja ned ganz unbekannt sein)

Nochmal in Kurzform:

VBA/VBScript ----> Outlook 9.0 Obejct Model ----> Outlook 2000

Für die Experten: Ich spreche das AppointmentItem-Objekt von Outlook an.

Des funzt auch alles einwandfrei unter VBA, vielmehr Sorgen macht mir dabei Vbscript, hab den Quellcode passend umgeschrieben (Konstanten erzeugen, nur variants zulässig etc.), der Scripting Host meldet sich aber mit folgender Fehlermeldung:

-------------------------------------------------------------------------

<script language="VBScript">

<!--

Option explicit

Dim myItem, App

Set objOutlook = CreateObject("Outlook.Application")

' 1 = olAppointmentItem

Set myItem = objOutlook.CreateItem(1) ' <--------- Fehler !!

usw.....

-------------------------------------------------------------------------

Fehler: Objekt erforderlich

Hier noch der VBA-Code zum Vergleich:

-------------------------------------------------------------------------

Dim objOutlook As New Outlook.Application

Set myItem = objOutlook.CreateItem(olAppointmentItem)

usw.....

-------------------------------------------------------------------------

Hier läuft der Code einwandfrei durch...

Am Browser kann es nicht liegen, der erlaubt ActiveX-Steuerelemente auf Nachfrage hin. Komischerweise funktioniert Scripting.FileSystemObject und andere ActiveX-Komponenten unter VBS in Tests einwandfrei bei mir.

Hab diverse Beispiele auf MSDN-Seiten ausprobiert, alle VBScripte die auf Outlook 2000 Objekte zugreifen funktionieren bei mir nicht.

Weiss da vielleicht jemand Rat dazu oder hat Erfahrungen damit gemacht ?

Zu meiner Testumgebung:

Outlook 2000 unter Win2000 SP3

WindowsScriptingHost 5.6

GreeZ frum the DrillSergeant

[Wolle]

Hmm... Das passt eher ins VB-Forum, als ins Webdesign.

[PeliWeli]

Hi,

also ich mach das ganze über den Exchange Server und baue eine CDO Verbindung auf. Danach wechsel ich in den Kalenderordern und dort erstelle ich ein neues Objekt. Ein Kalender Objekt um genau zu sein. Das ganze sollte bei Dir in etwa gleich funktionieren also:

Set oCalendarFolder = oSession.GetDefaultFolder(CdoDefaultFolderCalendar)

Set oAppointments = oCalendarFolder.Messages

Set oNewAppointment = oAppointments.Add

da Du auch von extern zugreifst musst Du denke ich auch erstmal in den Kalenderordner wechseln und dann dort ein neues Kalenderobjekt generieren

vielleicht funzt das ja:

dim ...,...,

Set objOutlook = CreateObject("Outlook.Application")

Set objNameSpace = objOutlook.GetNameSpace("MAPI")

Set objCalendar = objNameSpace.GetDefaultFolder(olFolderCalendar) 'oder (9)

Set objAppointment = objCalender.Messages

Set objNewAppointment = objAppointment.Add

danach eben alle Eigenschaften setzen wie

with objNewAppointment

.Subject = "Traritrara Tralala"

.....

Ich hoffe ich konnte helfen