Domino 9 und frühere Versionen > ND6: Entwicklung
Notes-Kalender überschreibt Datum/Zeit auf aktuell...
koehlerbv:
Hm,
--- Code: ---docM.EndDateTime =EndeD & " " & EndeZ
--- Ende Code ---
ist aber auch ein String - Notes tat, wie ihm geheissen wurde ;)
Mach' daraus mal daraus den richtigen Datentyp:
--- Code: ---docM.EndDateTime = CDat (EndeD & " " & EndeZ)
--- Ende Code ---
Alle anderen fraglichen Werte natürlich auch anpassen !
HTH,
Bernhard
Glombi:
Damit der Eintrag im Kalender angezeigt wird, muss das Feld "CalendarDateTime" noch gesetzt werden.
Also
docM.CalendarDateTime = docM.StartDateTime
zuvor natürlich die von Bernhard angesprochenen CDat Operationen durchführen.
Andreas
koehlerbv:
@Andreas: Genauso ist es.
Was mich an der ganzen Sache mehr als wundert: Alle Fehler schlagen in R5 exakt genauso zu - hier ist bisher nichts R6-typisches erkennbar ...
Bernhard
Glombi:
Hi Bernhard,
das wundert mich eigentlich auch, aber so genau habe ich mir die Unterschiede in der Maske zwischen R5 und R6 noch nicht angesehen.
Offenbar gibt es da im UI einige Änderungen.
Ich habe letztens eine VB Script programmiert, das Kalendereintrage aus Access in der Notes 6 Mail-DB macht. Da hat alles funktioniert, wenn es nur über das Backend läuft.
Andreas
sja:
Hallo,
Andreas.
Bernhard.
herzlichen Dank für Eure Hilfe.
Es sieht schon bei mir nicht schlecht aus mit der Ausnahme von zwei Problemchen, die ich unten beschreibe. Entschuldigung, dass ich mit der Verzögerung antworte, da ich die ganze Zeit voll mit dem IBM Content Manager beschäftig war.
Hier das Source
Set db = New NotesDatabase( tmpSRV, tmpMAIL )
Set docM = db.CreateDocument
docM.Form = "Appointment"
docM.AppointmentType = "3"
docM.Subject = tmpSubject
docM.Body = tmpBody
docM.SendTo = Einlad
docM.EnterSendTo = Einlad
docM.RequiredAttendees = Einlad
docM.AltRequiredNames = Einlad
docM.tmpRequiredAttendees = Einlad
Set rtitem = New NotesRichTextItem( docM, "Body" )
Call rtitem.AppendText( tmpBody )
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText( "Dokumentverknüpfung: " )
Call rtitem.AppendDocLink ( docA, tmpSubject )
docM.StartDateTime =Cdat(AnfangD & " " & AnfangZ)
docM.EndDateTime =Cdat(EndeD & " " & EndeZ)
docM.StartDate = Cdat(AnfangD)
docM.EndDate = Cdat(EndeD)
docM.StartTime =Cdat(AnfangZ)
docM.EndTime = Cdat(EndeZ)
docM.CalendarDateTime =Cdat(AnfangD & " " & AnfangZ) ’für das Einzeige in der Ansicht „Calendar“
Call docM.ComputeWithForm( False, False )
Call docM.Save( True, True )
Call docM.Send( False, Einlad )
Zwei Sachen kann ich nicht kriegen:
1. (Wichtig für mich!)
Obwohl die Einladungen an den Eingeladenen geschickt wurden, sind die Empfänger in dem Dokument nicht eingezeigt. Nachdem, als ich das Feld
docM.RequiredAttendees = Einlad
gesetzt habe, sind die Eingeladenen in dem Dokument des Empfängers angezeigt worden, aber nicht in dem Dokument des Absenders.
Wenn ich das richtig verstehe, ist in der Maske „Appointment“ das berechnete Feld
itmpRequiredAttendees:
@If
(
NamePreference = "1" & @Trim(AltRequiredNames) != "";
AltRequiredNames;
@Trim(RequiredAttendees)
)
dafür verantwortlich.
Dann habe ich in dem Script alle beteiligten Felder eingesetzt:
docM.EnterSendTo = Einlad
docM.RequiredAttendees = Einlad
docM.AltRequiredNames = Einlad
docM.tmpRequiredAttendees = Einlad
und ohne Erfolg, die Eingeladene wurden nur in dem Dokument des Empfängers angezeigt, nicht in dem Dokument des Absenders.
2.
Die Dokumente erscheinen in dem $Inbox des Empfängers und in der Ansicht ($All) des Absenders mit dem Symbol 164 (privat) markiert:
iconTwo := @If(iconOne=124;0;CSisPrivate="1"; 164; isImportant="1"; 150; 0);
CSisPrivate := @If(@IsUnavailable($PublicAccess) & @IsAvailable($CSVersion);"1";"0");
Ich habe folgendes versucht:
DocM.$PublicAccess = “1“
und bekam die Fehler
72: Unexpected: $PublicAccess; Expected: Identifier
Dann habe ich folgendes versucht:
tmp = $PublicAccess
DocM.tmp = “1“
mit der Fehlermeldung:
74: Illegal product constant: PublicAccess
und ehrlich zu sagen, weiss nicht weiter.
Für weiteren Typ danke sehr.
Mit freundlichen Grussen
Sofia
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln