Meeting mit LS erstellen

[JoergL1979]

Hallo,
ich habedas Problem das ich mit dem folgenden Script zwar ein Meeting erstellt bekomme, aber weder Einladungen rausgehen noch die eingeladenen Personen gespeichert werden.

Hat wer von euch eine Idee woran das liegt??

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dbmail As NotesDatabase
   Dim doc As NotesDocument
   Dim docmail As NotesDocument
   Dim docansw As NotesDocument
   Dim dochaupt As NotesDocument
   Dim doccol As notesdocumentcollection
   Dim ndt As NotesDateTime
   Dim ndt2 As NotesDateTime
   
   Set dbmail =session.CurrentDatabase
   
   Set doc = dbmail.CreateDocument
   
   doc.Form = "Appointment"
   doc.AppointmentType = "3"
   
   doc.chair= "Help"
   doc.Subject = "Einladung"
   
   doc.CopyTo = "Joerg Lang"
   doc.requiredattendees = "Joerg Lang"
   
   Set ndt = New NotesDateTime("01.07.2004 08:00")
   Set ndt2 = New NotesDateTime("01.07.2004 09:00")
   
   doc.StartDate = ndt.LSLocalTime
   doc.CalendarDateTime = ndt.LSLocalTime
   doc.StartDateTime = ndt.LSLocalTime
   doc.EndDate = ndt2.LSLocalTime
   doc.EndDateTime = ndt2.LSLocalTime
   
   
   Call doc.ComputeWithForm(True, False)
   Call doc.Save( True, True )
End Sub

[koehlerbv]

Du verschickst ja auch keine Einladungs-Mail  

Schau Dir im Mailfile mal die ScriptLib CoreEmailClasses an. Hier kannst Du "nachlesen", wie das mit den Meetings und Einladungen funktioniert. Das ist nicht trivial !

By the way: Die Anzahl der von Dir belegten Felder ist noch recht dünn - für den gesamten Prozess müssen weitere Felder belegt werden.

Bernhard