Beiträge von Stelli

  • RTF kopieren

    Habe jetzt die Reihenfolge eingehalten (und die Vars umbennant ), aber leider klappt's immer noch nicht ( ich werde immer noch gefragt, ob ich das UIDoc speichern möchte!?!



    Sub Click(Source As Button)
    Dim w As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim adok, dok As NotesDocument
    Dim wert As String
    Dim item,item2 As NotesItem
    Dim s As New NotesSession
    Dim v,vo As NotesView
    Dim adb As NotesDatabase
    Dim dcoll As NotesDocumentCollection
    Dim db As String
    Dim rtitem1 As NotesRichTextItem
    Dim rtitem2 As NotesRichTextItem
    Set adb=s.CurrentDatabase
    Set uidoc=w.CurrentDocument
    Set dok=uidoc.Document
    If adb.title <> "" Then
    db=adb.FilePath
    Model = uidoc.FieldGetText("AlbumName")
    Set dcoll = w.PicklistCollection(PICKLIST_CUSTOM,False,"",db,"PicturesByModel","Select Picture:","Select picture that represents model",Model)
    If dcoll.count<>0 Then
    Set adoc = dcoll.GetFirstDocument
    If Not (adoc Is Nothing) Then
    Set item1 = adok.GetFirstItem("Thumbnail")
    Call uidoc.save
    Call uidoc.close
    Set rtitem2 = dok.getfirstitem("Vorschau")
    Call item1.Copyitemtodocument( dok, "Vorschau")
    Set rtitem2 = dok.getfirstitem("Vorschau")
    rtitem2.IsSigned=True
    rtitem2.SaveToDisk=True
    Call rtitem2.Update
    Call dok.Save(True, True,True)
    Set uidoc = w.EditDocument(True,dok)
    Else
    Messagebox "Please Contact your DB-Designer", 48, "Internal DB-Error!"
    End If
    Else
    Messagebox "No picture selected", 48, "No picture!"
    End If
    Else
    Messagebox "Datenbank '"+Feld_AdressDB+"' nicht vorhanden!", 48, "DB nicht vorhanden!"
    End If
    End Sub

  • RTF kopieren

    Danke für die prompte Antwort - jetzt klappt es, allerdings fragt mich notes, ob ich meine Änderungen speichern will beim schliessen des UIDoc, gibt es eine Möglichkeit das zu umgehen?




    rtitem2.IsSigned=True
    rtitem2.SaveToDisk=True
    Call rtitem2.Update
    Call doc.Close(True) // hier kommt die Frage, trotz des Immidiate Flags
    Call dok.Save(True, False)
    Set doc = w.EditDocument(True,dok)

    Gruss,


    Sebastian


    P.S.: Sorry wg. der Variablennamen...

  • RTF kopieren

    Hallo,
    mein Problem ist folgendes:
    Ich habe eine Datenbank mit Locations und den dazugehörigen Bildern. Zu jedem hauptdokument (Location) soll man nun ein representatives Thumbnail auswählen können, welches ins Locationdokument kopiert werden soll. Dazu habe ich einen Hotspot mit der folgenden Action erstellt:


    Sub Click(Source As Button)
    Dim w As New NotesUIWorkspace
    Dim doc As NotesUIDocument
    Dim adoc, dok As NotesDocument
    Dim wert As String
    Dim item,item2 As NotesItem
    Dim s As New NotesSession
    Dim v,vo As NotesView
    Dim adb As NotesDatabase
    Dim dcoll As NotesDocumentCollection
    Dim db As String
    Dim rtitem1 As NotesRichTextItem
    Dim rtitem2 As NotesRichTextItem
    Set adb=s.CurrentDatabase
    Set doc=w.CurrentDocument
    Set dok=doc.Document
    If adb.title <> "" Then
    db=adb.FilePath
    Model = doc.FieldGetText("AlbumName")
    Set dcoll = w.PicklistCollection(PICKLIST_CUSTOM,False,"",db,"PicturesByModel","Select Picture:","Select picture that represents model",Model)
    If dcoll.count<>0 Then
    Set adoc = dcoll.GetFirstDocument
    If Not (adoc Is Nothing) Then
    Set item1 = adoc.GetFirstItem("Thumbnail")
    Set rtitem2 = dok.getfirstitem("Vorschau")
    Call item1.Copyitemtodocument( dok, "Vorschau")
    Call rtitem2.Update
    REM Call rtitem2.Compact
    Call dok.Save(True, True)
    REM Call doc.Close
    Else
    Messagebox "Please Contact your DB-Designer", 48, "Internal DB-Error!"
    End If
    Else
    Messagebox "No picture selected", 48, "No picture!"
    End If
    Else
    Messagebox "Datenbank '"+Feld_AdressDB+"' nicht vorhanden!", 48, "DB nicht vorhanden!"
    End If
    End Sub


    Es scheint auch zu funktionieren, d.h. wenn ich den Inhalt von "Vorschau" mit FieldControl nachschaue ist das Bild hineinkopiert worden. Nach dem schliessen und wieder öffnen des Dokuments ist es alllerdings nicht mehr da!?!


    Jmd. eine Idee woran das liegt? :-?


    Beste Grüsse,


    Stelli

  • Sametime Mischinstallation

    Aber ist es nicht reine Ressourcenverschwendung, wenn ich auf dem Windows server auch noch einen kompletten Dominoserver (von dem nur die Sametimekomponente benötigt wird) installere? Wir brauchen ja auch nicht das volle Programm mit Vidoekonferenzen und Filetransfer, sondern nur den Firmeninternen chat um die Telefonkosten zu senken (Filiale D<->ES). Den Standalone Sametime server gibt's aber nur bis Version 3.x oder?
    Hab schon auf
    http://www.developer.ibm.com/
    danach gesucht, aber es gibt wohl nur updates zum Download. Jmd eine Idee zu einer Bezugsquelle?

  • Sametime Mischinstallation

    Danke für die rasche Antwort
    - allerdings ist es so, dass es keinen Windows Domino Server gibt. Gemeint war nur ein Server auf Windows Basis, da es offensichtlich kein Sametime für Linux gibt. Da Sametime seit Domino 6.5 integraler Bestandteil der Windows Version ist (wenn ich das richtig verstanden habe) - müsste ich also einen Sametime Server (3.x?) auf Windows installieren und dann die User irgendwie auf den Sametime Server übertragen, oder? Daher auch meine frage bzgl. der Lizenzbestimmungen und Kosten.


    MfG,


    Stelli

  • Bilder in Dokumente per Lotus Script einfügen

    jetzt habe ich als Fehler:
    document command is not available



    hier nochmal der Quelltext etwas ausführlicher:

    ...
    Set doc = New notesdocument(db)
    doc.form = "Bild"
    ...
    Set rtitem = New NotesRichTextItem( doc, "Body" )
    Call doc.Save(True,True)
    Set uidoc = workspace.EditDocument(True,doc,,,True)
    Call uidoc.GotoField("Body")
    Call uidoc.import("JPEG Image",filelist) - hier tritt der fehler auf


    Idee woran das liegt?


    Stelli

  • Bilder in Dokumente per Lotus Script einfügen

    Danke, damit müsste es gehen. Allerdings habe ich jetzt das Problem, das die Bilder in einem Script importiert werden, das vom aktuell geöffnenten dokument aufgerufen wird. dies erzeugt neue documente in die die Bilder eingebaut werden sollen.
    Ich habe also ein NotesUIDocument, dass NotesDocuments erzeugt
    - wie schaffe ich es nun in den neuen NotesDocument diese im Frontend zu refenenzieren, um die Import-Methode anzuwenden?


    Die richtung Frontend->Backend ist z.B.:
    doc = uidoc.document


    ich bräuchte nun so etwas in umgekehrter Richtung.


    MfG,


    Stelli

  • Bilder in Dokumente per Lotus Script einfügen

    Hi,
    da es anscheinend keine Möglichkeit gibt lokale Bilder per <img src=".."> anzuzeigen:
    http://www.dominoforum.de/modu…d101dc6192f9938ec61830875


    Habe ich's mittels RTF versucht, aber dort bekomme ich im Dokument nur ein Symbol und nicht das Bild selbst zu sehen.


    Jmd. eine Idee wie ich Bilder per Lotus Script, oder von mir aus mit einem Java-Agenten einbauen kann?
    Gibt's für das Element Bild keine Entsprechung in den Lotus Classes? - Damit müsste es doch möglich sein bilder per Script zu importieren.


    MfG,


    Sebastian

  • Sametime Mischinstallation

    Hallo,
    wir haben einen 6.5.2 Domino-Server auf Linux laufen - ist es möglich dazu (kostenfrei) Sametime auf einem 2ten (Windows) Server zu installieren und diesen mit dem im Client integrierem IM-Client zu verwenden, ohne die Lizenzbestimmungen zu verletzen? Falls ja wie funktioniert dann der Abgleich der Usernamen zwischen den Servern?


    Besten Dank im Voraus,


    Stelli

  • <img src="..."> in lokalen Datenbanken

    Hallo,
    mein Problem ist folgendes:
    Ich versuche gerade eine Foto-Datenbank aufzubauen, in diese integriere ich die Bilder als Anhänge, das klappt soweit recht gut, solange ich auf die Bilder auf dem Server zugreife:


    <img src="http://servername/fotos.nsf/plinks/CBRR-5YMLWD/$File/TN_CBRR-5YMLWD.jpg">


    bei lokalem Zugriff kriege ich nur einen Platzhalter zu sehen:
    <img src="/fotos.nsf/plinks/CBRR-5YMLWD/$File/TN_CBRR-5YMLWD.jpg">


    Habe versucht die Fotos auch als ImageResources einzubinden, da passiert aber das selbe. Lokal Platzhalter:


    <img src="/Pictures.nsf/bild.JPG?OpenImageResource">


    Server OK:
    <img src="http://servername/Pictures.nsf/bild.JPG?OpenImageResource">


    Jmd eine Idee, wie das zu lösen ist - so weit ich weiss müsste die Syntax korrekt sein (lt. diversen Büchern und der Designer Hilfe).
    Es gab dazu schon einmal ein Posting, allerdings ergebnislos:
    http://www.dominoforum.de/modu…php?forum=5&topic_id=3445


    MfG,


    Stelli

  • dateianhang als bild anzeigen

    Hallo Tina,
    wenn ich Dich richtig verstanden habe, kannst Du nun Anhänge auch anzeigen, wenn Du Sie lokal aufrufst, bei mir klappt das noch nicht mal mit den Bildern, die ich in die DB integriere:
    <img src="/Pictures.nsf/bild.JPG?OpenImageResource">


    ausser natürlich, wenn Sie auf dem Server liegen:
    <img src="http://servername/Pictures.nsf/bild.JPG?OpenImageResource">


    Auch Dein Tip mit der Umstellung des Browsers in der Arbeitsumgebung bringt nichts. Hat wirklich noch niemand dieses Problem gelöst?


    MfG,


    Stelli

  • Adressensuche defekt...warum?

    Die für durchzusuchenden Adressbücher kann man im Drop-Down-Menu unter:
    Datei->(Vor-)Einstellungen->Benutzereinstellungen
    und dann Mail, lokale Adressbücher
    angeben (alle Menüpunkte unter vorbehalt, da ich die englische Version benutze).


    Stelli

  • eMail per pop3s oder imaps abhollen

    ja, leider ist dort nichts besonderes zu finden:
    13.09.2004 17:53:20 IMAPCL(1): Initializing
    13.09.2004 17:53:20 IMAPCL(1): Loading worker task
    13.09.2004 17:53:20 IMAPCL(1): Control Task
    13.09.2004 17:53:20 IMAPCL(2): Initializing
    13.09.2004 18:48:49 IMAPCL(1): Shutdown
    13.09.2004 18:48:49 IMAPCL(2): Stopping
    13.09.2004 18:48:49 IMAPCL(2): Quit is pending on the Message Queue
    13.09.2004 18:48:56 Index update process shutdown


    ,aber wie aus meinen Tests hervorgeht, liegt's daran, dass das Zertifikat nicht von einer Zertifizierungsstelle wie VeriSign/TC Trustcenter zertifiziert worden ist. Gibt es evtl. eine Möglichkeit die Internet Zertifizierer selbst um einen eigenen Eintrag zu ergänzen?

  • eMail per pop3s oder imaps abhollen

    Also, wie gesagt, der mailserver ist sendmail (unter linux), was hängen bleibt ist der (lotus notes) client. Ich denke ich habe auch die Ursache jetzt gefunden - das es sich um ein selbst erstelltes und zertifiziertes Zertifikat handelt ist der Zertifier nicht im Adressbuch vorhanden. Das der Client dann aber schlicht die Verbindung verweigert ohne eine Fehlermeldung zu bringen hätte ich nicht gedacht.


    Stelli