Beiträge von Stelli

    Hallo,
    ich habe seit kurzen einen für mich nicht nachvollziehbaren Fehler, beim Löschen von Kalendereinträgen: "Function requires a valid ADT argument" - die Einträge verbleiben im Kalender und sind NICHT Löschbar!
    Ich erzuge diese Einträge über einen Button von einer anderen DB aus mittels:


    ...
    Set doc = db.CreateDocument
    Call doc.ReplaceItemValue("Form","Appointment")
    Call doc.ReplaceItemValue("AppointmentType","All Day Event")
    Set item14 = note.ReplaceItemValue("LMCalDoc",doc.Universalid)
    Set item16 = note.ReplaceItemValue("LMCalMod",doc.Lastmodified)
    wert = note.Getitemvalue("Projektleiter")
    text = wert(0) + " "
    wert = note.Getitemvalue("Job")
    text = text + wert(0)+ " "
    wert = note.Getitemvalue("Kunde")
    text = text + wert(0)
    Call doc.ReplaceItemValue("Subject",text)
    wert = note.Getitemvalue("ProjM_since")
    Call doc.ReplaceItemValue("StartDateTime",wert(0))
    Call doc.ReplaceItemValue("CalendarDateTime",wert(0))
    wert = note.Getitemvalue("ProjM_to")
    Call doc.ReplaceItemValue("EndDateTime",wert(0))
    Call doc.ReplaceItemValue("AppointmentType","2")
    Call doc.ReplaceItemValue("_ViewIcon",9)
    Call doc.ReplaceItemValue("Location",note.Location)
    Call doc.save(True,False,False)
    ...


    Jmd. eine Idee, wie der Fehler zustande kommt?


    Gruss,


    Stelli

    Hi,
    habe bereits eine (fast-)fertige Lösung - musste je nach Termin(-art) und Person Felder im Kalender einfärben.
    Besten Dank nochmal an alle für die raschen Antworten.


    Gruss,


    Stelli


    P.S.: Was mir evtl. noch fehlt wäre eine (Viertel-)Jahresübersicht...

    Hallo Carsten,
    danke für den Tip, aber wie Du aus meinem Screenshot erkennen konntest verwende ich die englische Version... Leider finde ich das von Dir genannte Beispiel nicht in der englischen Version.
    Wie definiere ich den in der MailDB Farben für Absender?


    Gruss,


    Stelli

    Hallo,
    ich hätte nochmal 2 Fragen an euch:


    1.) Wie heisst das o.g. Applett? (weiss sonst nicht wonach ich googlen soll...)
    2.) Wie arbeitet man in einer Spalte mit Farbwerten (Use value as color) - s. angehängter Screenshot ?


    MfG,


    Stelli

    Hallo Chris62 und pegasus,
    vielen Dank erst ein mal für eure Antworten, werde nächste Woche mal sehn, ob ich damit weiterkomme.
    Bisher habe ich das "Planboard" von openntf.org als Grundlage genommen, allerdings bin ich jetzt schon an grenzen gestossen, da dort über einen Agenten die Eigenschaften der Tabellenfelder definiert werden und da ich pro User mehrere farben zuweisen muss läuft mir der String über (glaube zumindest, dass da der fehler liegt).


    Gruss,


    Stelli

    Hallo Chris,
    mein Cheff, der schon lange mit Lotus Notes arbeitet meinte das auch schon, allerdings arbeiten wir jetzt mit V6.5.x - und da funktioniert der Organizer (GS) nicht mehr...
    Irgendwelche anderen Ansätze vielleicht?


    Gruss und danke für die Antwort,


    Stelli

    Hallo Carsten,
    der Planer zeigt keine Informationen und beim Klick auf den User erscheint die folgende Fehlermeldung:


    Unable to open user's database!


    Sowohl der Sceduler als auch der Calender Connector laufen, im Kalenderprofil der User ist jeweils eingestellt, dass alle diese untereinander einsehen dürfen. Die Datenbanken sind auch alle lokal und auf dem Server vorhanden...


    Gruss,


    Sebastian

    Hallo,
    vielleicht weiss ja jmd. rat:


    - Im Grunde genommen geht es darum einen Planer zu haben in dem man Mitarbeiter Projekten zuweisen kann und eine Ansicht nach Mitarbeiter/Kalender hat in der man auf den ersten Blick sieht, wer wann noch freie Kapazitäten hat.


    Ich habe nun überlegt eine Lotus Organizer Datei einzubetten, der ich ähnlich wie in eingebetteten 123-Dokumenten werte übergeben kann - dies scheint jedoch nicht möglich zu sein? - Jmd. Ideen, wie man das sonst lösen könnte?


    Besten Dank im Vorraus,


    Stelli

    Hallo,
    ich möchte gern die Gruppenkalender funktionalität unter 6.x nutzen, allerdings habe ich das Problem, dass sobald ich mehrere Personen für eine Besprechnung eingetragen habe der Planer deren Kalender bzw. Maildateien nicht findet - wo und wie kann man dies einstellen?


    Vielleicht gibt es dazu ja auch einen besseren Ansatz als den Kalender in der Maildatei?
    - Im Grunde genommen geht es dabei darum einen Kalender zu haben in dem man Mitarbeiter Projekten zuweisen kann und eine Ansicht nach Mitarbeiter/Kalender hat in der man auf den ersten Blick sieht, wer wann noch freie Kapazitäten hat.


    Besten Dank im Vorraus,


    Stelli

    Ist in dem Fall nicht wirklich tragisch - die Rechner sind alle recht flott. Perfekt wäre allerdings, wenn man über einen Button in den Bearbeiten Modus gelangen würde, mit Focus auf das eingebetete Dokument.


    Gruss,


    Stelli

    obj.RunReadOnly = True


    => bewirkt nur, dass man das Objekt auch im Lese-Modus öffnen kann.


    Habe das jetzt so gelöst, dass ich in den Eingenschaften der Form gewählt habe:


    On Open: Automatically enable Edit Mode


    und


    Auto Lanch "-First OLE Object-"
    Lauch Object in Place



    Jetzt geht Notes beim Öffnen des Dokuments automatisch in das eingebettete Dokument und öffnet es (in Notes eingebettet) zum bearbeiten.


    Gruss und Danke nochmal für den Tip!


    Stelli :D

    Hi.
    wie kann man Dateien, die man eingebettet hat nachträglich bearbeiten? (Konkret handelt es sich um EXCEL-Dokumente) Bei mir ist die Datei nur beim einbetten bearbeitbar - wenn ich das Dokument später öffne kann ich sie nur noch READ-Only öffnen.


    Hiermit bette ich dateien ein:


    Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim uiws As New NotesUIWorkspace
    Dim i As NotesItem
    Dim file As Variant
    Dim obj As NotesEmbeddedObject
    Set uidoc=uiws.currentdocument
    Set doc = uidoc.document
    Set rtitem = New NotesRichTextItem( doc, "Dateianhang" )
    If ( rtitem.Type = RICHTEXT ) Then
    file = uiws.OpenFileDialog(False,"Bitte wählen Sie die einzubettende Datei:")
    Call uidoc.GotoField( "Dateianhang" )
    Call uidoc.CreateObject("test", "",file(0))
    End If
    End Sub


    Wie gesagt sind diese später per doppelklick nur READ-ONLY zu öffnen. Ich habe mir also ein kleines Script geschrieben, dass die eingebettete Datei öffnet:


    Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim uiws As New NotesUIWorkspace
    Dim i As NotesItem
    Dim file As String
    Dim obj As NotesEmbeddedObject
    Set uidoc=uiws.currentdocument
    Set doc = uidoc.document
    If (doc.HasEmbedded) Then
    Dim rtitem As Variant
    Set rtitem = doc.GetFirstItem("Dateianhang")
    If ( rtitem.Type = RICHTEXT ) Then
    Set obj = rtitem.EmbeddedObjects(0)
    obj.RunReadOnly = True -> Sorgt dafür, dass das Dokument auch im Lese und nicht nur im Edit Mode aktivierbar ist...
    Call obj.Activate(True)
    End If
    End If
    End Sub


    Allerdings sehe ich das Excel sheet nur einen Sekundenbruchteil inm EXCEL, dann wird die Arbeitsmappe geschlossen - EXCEL bleibt aber auf!


    Jmd. eine Idee, wie das zu lösen ist????
    Idealerweise sollten die eingebetteten Dokumente direkt in Notes bearbeitbar sein...


    Gruss,


    Stelli