Aktionen automatisch in Kalender

[him1802]

Da bin ich wieder  

Wir haben in unserer Kundendatenbank die Möglichkeit, Aktionen für jeden Kunden anzulegen, wie z. B. Meeting, Telefonanruf, etc. Das ganze per Buttonklick "new action".

Die Kollegin hätte es jetzt gerne, dass wenn sie eine Action für ein bestimmtes Datum anlegt, z. B. ein Meeting am 15.02. von 10:00 - 12:00, dass dieses Meeting automatisch in ihrem Kalender hochplöppt. Quasi als Wiedervorlagefunktion.

Hat irgendeiner einen blassen Schimmer, was ich da wo machen muss?

Danke und Grüße
Jutta

[Driri]

Wenn ich das richtig verstanden habe, ist das nicht gerade trivial. Du müßtest dann ja in der MailDB des aktuellen Users einen neuen Kalendereintrag (Erinnerung oder was auch immer) erstellen und mit den Daten aus dem Action-Dokument füllen.

Da müßtest Du vor allem erstmal prüfen, ob in der MailDB beim Erzeugen einer Erinnerung noch irgendwelche Scripte im Hintergrund laufen, also z.B. beim Speichern und dann dies nachstellen.

[him1802]

Ich hab leider kei-nen blas-sen Schim-mer wovon du redest. Dafür stecke ich zu sehr in den Kinderschuhen.....
Jutta

[klaussal]

... mal so als ansatz:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim docMail As NotesDocument
   Dim db As New NotesDatabase( "", "" )
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim arrViews(2) As String
   arrViews(0) = "D"
   arrViews(1) = "A"
   arrViews(2) = "S"
   Dim item As NotesItem
   Dim eval As Variant
   Dim doc As notesdocument
   Dim dateTime As NotesDateTime
   
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   
   varDummy = eingabepruefen(uidoc)
   If Not varDummy Then
      Msgbox "Fehler gefunden !",16,"Achtung !"
      Continue = False
      Exit Sub   
   End If
   
   eval = Evaluate(|@Explode(@TextToTime(@Text(von_dat) + "-" + @Text(bis_dat)))| , doc)
   Forall x In eval
      x = x + " 04:00:00"
   End Forall
   
   Dim datev() As Variant
   
   For i = 0 To Ubound(eval)
      Redim Preserve datev (i + 1)
      datev (i) = Cdat (eval(i))      
   Next
   'Messagebox Datatype(datev(0))
   
   Call db.OpenMail
   'Messagebox( db.Title & " on server " & db.Server )
   
   Set docMail = New NotesDocument(db)
   docMail.form = "Appointment"
   docMail.AppendEndTime = Cdat("20:00:00")
   docMail.AppendStartTime = Cdat("04:00:00")
   docMail.AppointmentType = "2"  
   
   docMail.CalendarDateTime = datev
   
   docMail.Chair = session.Username
   docMail.ExludeFromView = arrViews
   docMail.From = session.Username
   docMail.Logo = "StdNotesLtr2"
   docMail.MailOptions = "0"
   docMail.OrgTable = "P0"
   docMail.Subject = " urlaub aus planung"
   Set item = docMail.ReplaceItemValue( "_Viewicon", 148 )
   Call docMail.Save(True, False)
End Sub

die feldnamen müssen angepasst werden, u.a.

keine garantie für fehlfunktionen  
das thema ist nicht ganz ohne, speziell wenn man im kalender daten einträgt und irgendjemand synct das mit seinem palm, etc. das kann böse fehler (bis zum absturz des palm) verursachen.

ohne dir nahe treten zu wollen: LASS DIE FINGER DAVON  

[koehlerbv]

Jo, da fehlen einige Items, die für's C&S unablässlich sind. In einem Gruppenkalender würde so ein Eintrag zum Bleistift nicht erscheinen. Solche Stunts sollte man wirklich nur machen, wenn man in Notes & Programmierung ganz fit ist.

Bernhard

[him1802]

ok, ich lasse es. Ich habe einfach keine Ahnung von LS.  
Dennoch danke!
Jutta

[klaussal]

... dann bitte bitte den thread auf "erledigt" setzen. DANKE