Domino 9 und frühere Versionen > ND6: Entwicklung

Kalendereintrag von einer fremden DB aus

<< < (2/3) > >>

pippo:
Hallo,
danke für Deine Hilfe.

Habe es jetzt mit Script gemacht.

Grüße, Pippo

audiojosi:
deshalb stehe ich auf Script  ;D ;D ;D

*damned* muss jetzt endlich schippen... :P

Jürgen

koehlerbv:
Pippo,
irgendwie fühle ich mich jetzt veralbert ... Warum hast Du nicht gleich die eigentlichen Probleme gepostet ? Warum wurde nicht gleich gesagt, dass auch LS in Frage kommt ? Warum musste ich das ganze Szenario nachstellen - das eigentliche Problem hast Du doch sicher eher erkannt als ich, der sich erst wieder erinnern musste (weil ich sowas prinzipiell nicht mehr mit @-Stunts versuche) ?

Pippo, es wäre jetzt nur fair, den angezettelten Thread mit Deiner Lösung zu beenden. Du kannst es mit LS, ich kann es (sowieso), andere stehen jetzt aber evtl. auf dem Schlauch (obwohl es es doch kaum mehr Zeilen sind mit LS als der wegen der Felder in Layout-Regions vergebliche Versuch mit @Commands und vor allem die hier unmögliche Mischung von @Functions und @Commands).

Bernhard  >:(

Semeaphoros:
Jürgen, geh mal einen Schritt nach rechts ... ich brauche Script, aber Du stehst gerade darauf .........  8)

pippo:
Hallo Bernhard,
hier meine Lösung.

Ich schätze Deine Antworten sehr, auch wenn manche Kommentare von Dir etwas gewöhnungsbedürftig sind.

Wünsche Euch allen einen schönen Tag,
Pippo

*************************

Function CreateAppointment( ) As Variant
   
   REM Diese Funktion erstellt einen Kalendereintrag mit einer Verknüpfung zum aktiven Dokument; dabei werden bestimme Felder für den User vorbelegt; interne Felder vom Kalendereintrag müssen nicht verändert werden :-))
   
   Dim ws As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item  As NotesItem
   Dim rtitem As NotesRichTextItem
   Dim tmpdoc As NotesDocument    
   Dim uidocT As NotesUIDocument
   Dim docT As NotesDocument
   
   Set db = s.CurrentDatabase
   
   REM Typ Kalendereintrag, "0" für Termin
   Call s.SetEnvironmentVar( "CSDocType", "0" )
   
   If Not Check_BMW ("" ) Then
      CreateAppointment=False
      Exit Function
   End If
   
   REM Aktives Dokumente   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   
   REM Maildatei
   Dim dbM As New NotesDatabase( "", "" )
   Call dbM.OpenMail
   
   REM Temp Dokument mit Body wird erstellt
   REM Das muß gemacht werden weil man sonst den Link nicht in den Termin bekommt
   REM diese Dokument muß nicht verspeichert werden
   Set tmpdoc = New NotesDocument( dbM )
   tmpdoc.Form = "Memo"
   Set rtitem = New NotesRichTextItem ( tmpdoc, "Body" )
   Call rtitem.AppendText ( "Für weitere Details klicken Sie bitte auf den Link: " )
   Call  rtitem.AppendDocLink( doc, db.Title  )
   
   Set item = tmpdoc.GetFirstItem( "Body" )
   
   REM Termin wird erstellt
   Set docT = New NotesDocument( dbM )
   docT.Form = "Appointment"
   
   REM Bodyfeld wird von temp Doc in Termin kopiert
   Call item.CopyItemToDocument( docT, "Body" )
   
   REM Termin wir für User geöffnet
   Set uidocT =  ws.EditDocument (True,docT)
   
   REM Daten werden geschrieben
   Call uidocT.FieldSetText( "subject", "abc..." )
   
   Call uidocT.FieldSetText( "Startdate", "abc..." )
   REM Call uidocT.FieldSetText( "Starttime", "abc..." )
   
   CreateAppointment=True
   
End Function

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete