Kalender + StartDateTime

[robertpp]

Ich möchte mir eine eintrag im persönlichen Kalender von einer andere DB erstellen!! So weit ist das auch kein problem der eintrag ist unter "Besprechungen" sichtbar aber unter "kalender" ist der eintrag nicht sichtbar weil die startdatetime und enddatetime nicht vorhanden sind und ich weiss nicht wie ich das verwirklichen kann!!!
robertpp  

[robertpp]

Ich kann mir garnicht vorstellen dass noch nie jemand einen Kalendereintrag von einer andere DB erstellen wollte und den in der Kalenderansicht sehen wollte!!
Naja macht ja nix!!
Robertpp

[Rob Green]

wirf den Debugger an und schau Dir mal die Methodik an, wie diese Phantom Felder gesetzt werden..aus dem Postkorb
Oder? Auf LDD gehen, Abschnitt TODAY und nach "Calendar" suchen, gab irgendwann 1997/98/99 einen Bericht, wie man Calendarviews aufbaut und an die Felder rankommt...

[robertpp]

Ich hab bei LDD unter http://www-10.lotus.com/ldd/today.nsf/62f62847467a8f78052568a80055b380/bca25a1b82b2252185256400007c0c8b?OpenDocument&Highlight=0,calendar

diesen Beitrag gefunden!!
Nur ich sehe mich da nicht ganz durch und ich brauch ja keine ansicht erstellen! ich erstelle mir nur in einer anderen DB einen Eintrag im Kalender der MailDB mit diesem Script:


   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim MailDB As New NotesDatabase( "Server", "rprinz.nsf" )
   
   Call MailDB.OpenMail
   If Maildb.isopen = False Then
      Messagebox "Your Calendar......." ,48,"Create Task"
      Exit Sub
   End If   
   
   Set uidoc = ws.CurrentDocument   
   
   vondatum = uidoc.FieldGetText( "vondatum" )
   bisdatum = uidoc.FieldGetText( "bisdatum" )
   vonzeit = uidoc.FieldGetText( "vonzeit" )
   biszeit = uidoc.FieldGetText( "biszeit" )
   
   Set uidoc = ws.ComposeDocument ("SERVER", "mail\rprinz.nsf","Appointment")
   Call uidoc.FieldSetText("Subject","Ferien")
   Call uidoc.FieldSetText("StartDate",vondatum)            
   Call uidoc.FieldSetText("EndDate",bisdatum)
   Call uidoc.FieldSetText("StartTime",vonzeit)            
   Call uidoc.FieldSetText("EndTime",biszeit)
   Call uidoc.FieldSetText("AppointmentType","2")
   Call uidoc.Save()
   Call uidoc.Close()

Das einzige Problem was ich habe man sieht es halt in der Kalenderansicht nicht!!!
Bei LDD wird schon etwas mit StartDateTime beschreiben ich weiß aber nicht wie ich das einbauen muss!

Die zweite Möglcihkeit ist wenn ich das erstellte Doc in der MailDB im Kalender unter "Besprechungen" öffne und dann speichere dann passt die StartDateTime und man sieht es dann in der Kalenderansicht aber ich weiß nicht wie ich das doc in der MailDB von der anderen DB öffne und dann wieder speichere!!

Bitte um Hilfe!!!
robertpp

[Rob Green]

warum erstellst Du eigentlich StartDateTime nicht selbst? Schau Dir in einem normalen Kalender das Format an und dann nachbauen.

[robertpp]

Das Format weiß ich nicht aber im feld steht "24.02.2003 17:15:00 CET" und ich weiß nicht wie ich das erstellen soll das hat ja irgendwas mit RangeTime zu tue!!
Also wie gesagt ich hatte damit noch nichts zu tun, deshalb brauch ich eure hilfe!!
danke robertpp

[Rob Green]

Probiers mal damit:

Set HABEN = New NotesDateTime(uidoc.FieldGetText("DATUMSFELD") & " " & uidoc.FieldGetText("ZEITFELD"))
Set BACKENDDOC.StartDateTime = HABEN