Beiträge von Weissnix

Super dass hat geklappt und hilft mir enorm weiter. Ich wäre nicht darauf gekommen, zumal ich am Anfang Server und Dateipfad angegeben hatte.

Vielen Dank für Deine Mühe, ich habe den Code nun mal in einen neuen Agenten gepackt und den Lotus Debugger dazu laufen lassen.

Die Datenbanken lassen sich beide so nicht öffnen. Ich habe auf alle drei Datenbanken Manager Rechte, ich weiß nicht woran es liegt.

Ob ich noch irgendetwas an den Berechtigungen ändern muss/ kann?

NotesDebug.jpg

Hallo Carsten,

vielen Dank für deine Hilfe, es wird keine Datenbank geöffnet.

Ich habe dies mal so abgeändert, und es wird der Wert "Start" ausgegeben, die Variabel am Ende mit "Ende" wird nicht überschrieben.

Die Session wird auch nicht benötigt oder?

%REM
    Function LesePersonen
%END REM
Function LesePersonen As String
    On Error GoTo ErrHandler
    
    Dim session As New NotesSession
    Dim dbUser As New NotesDatabase("", "")
    Dim dbOrga As New NotesDatabase("", "")
    Dim testmeldung    As String
    
    LesePersonen="Datenbank(en) nicht geöffnet"
    LesePersonen="Start"
         
    Call dbUser.Open("","it\Benutzer.nsf")
    Call dbOrga.Open("","ebuero\OrgaKrKle.nsf")
    
    If dbOrga.IsOpen Then
        LesePersonen=LesePersonen+"OrgaDB erfolgreich geöffnet"
    End If
    
    If dbUser.IsOpen Then
        LesePersonen=LesePersonen+"UserDB erfolgreich geöffnet"
    End If
    LesePersonen="Ende"
    
ExitFunction:
    Exit Function
        
ErrHandler:
    Print |Error: Code Erweiterungen -> LeitsystemXML Agent: LesePersonen - |+Str(Err)
    Resume ExitFunction
    
End Function

Hallo Zusammen,

vielen Dank für eure Rückmeldung.

Alle drei DBs (DB des Agenten, Orga DB und Benutzer DB) liegen alle auf dem gleichen Server in unterschiedlichen Verzeichnissen

Mit dem Code oben, bekomme ich bei beiden DBs keine Rückmeldung:

%REM
    Function LesePersonen
%END REM
Function LesePersonen As String
    On Error GoTo ErrHandler
    
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim testmeldung As String
    
    Set db = s.GetDatabase( "m50003", "it\Benutzer.nsf")
    Set db = s.GetDatabase( "m50003", "ebuero\OrgaKrKle.nsf")
    Call db.Open("","")
    
    If db.IsOpen Then
        testmeldung="Datenbank erfolgreich geöffnet"
    Else
        testmeldung="Datenbank nicht geöffnet"
    End If

    LesePersonen=testmeldung

ExitFunction:
    Exit Function
        
ErrHandler:
    Print |Error: Code Erweiterungen -> LeitsystemXML Agent: LesePersonen - |+Str(Err)
    Resume ExitFunction
    
End Function

Hallo Zusammen,

ich versuche eine neue Datenbank zu öffnen, jedoch klappt dies nicht.

Den Grund dafür konnte ich bisher nicht finden.

Die erste DB funktioniert egal mit welchem Aufruf, ich erhalte die Rückmeldung "Datenbank erfolgreich geöffnet":

Call db.Openbyreplicaid("","C1257111004084AS") 'Orga DB

Call db.Open( "m50003", "ebuero\OrgaKrKle.nsf" ) 'Orga DB

Nehme ich die neue DB:

Call db.Openbyreplicaid("m50003","C1258A680037C84E") 'Benutzer DB

Call db.Open( "m50003", "it\Benutzer.nsf" ) 'Benutzer DB

Bekomme ich keine Rückmeldung, auch nicht "Datenbank nicht geöffnet"

%REM
    Function LesePersonen
%END REM
Function LesePersonen As String
    On Error GoTo ErrHandler
    
    Dim session             As New NotesSession
    Dim db                     As New NotesDatabase("","")
    Dim testmeldung            As String
    
    LesePersonen=""

    
    'Call db.Openbyreplicaid("","C1257111004084AS") 'Orga DB
    'Call db.Open( "m50003", "ebuero\OrgaKrKle.nsf" ) 'Orga DB
    
    'Call db.Openbyreplicaid("m50003","C1258A680037C84E") 'Benutzer DB
    Call db.Open( "m50003", "it\Benutzer.nsf" ) 'Benutzer DB
    
    If db.IsOpen Then
        testmeldung="Datenbank erfolgreich geöffnet"
    Else
        testmeldung="Datenbank nicht geöffnet"
    End If

    LesePersonen=testmeldung

ExitFunction:
    Exit Function
        
ErrHandler:
    Print |Error: Code Erweiterungen -> LeitsystemXML Agent: LesePersonen - |+Str(Err)
    Resume ExitFunction
    
End Function

Hallo Zusammen,

könnt Ihr mir sagen, ob die Funktion in einer Notes Version besteht, dass man aus einem Sammelpostfach an alle eingehenden Mails eine Automatische Antwort senden kann?

Über die Mailregeln konnte ich das nicht lösen.

Die Mail soll ein automatische Antwort sein, mit ungefährer Bearbeitungsdauer etc. damit die Kunden wissen, wie lange Sie ungefähr warten müssen auf eine Antwort.

Beste Grüße

Hallo Zusammen,

aus einem "Funktionspostfach" sagen wir abc@firma.de haben Person A, B, C Zugriff.

Nun gibt es eine Mailverteiler Gruppe in der Personen A,B,C,D,E,F enthalten sind.

Wenn nun Person A aus dem Funktionspostfach eine Mail an die Verteilergruppe weiterleitet, erhalten alle in der Gruppe diese Email, nur nicht Person A.

Diese sendet aus dem Funktionspostfach als abc@firma.de (Principal?) und gesendet von Persona A (From?) und erhält selbst diese nicht durch den Verteiler.

Hoffe habe das verständlich erklärt, kann man das Verhalten beeinflussen?

Vielen Dank Carsten für deine ausführliche Antwort.

Das stimmt natürlich Schleifen sollten nicht vorkommen und gerade Bilder/Logos etc. werden auch im @FILE geführt.

Dann führt kein Weg am Script Agenten vorbei

Besten dank

Hallo Zusammen,

wir würden gerne in einer Maildatenbank, automatisch auf Mails mit Anhängen antworten.

Besteht die Möglichkeit dies mit einem einfachen Agenten zu machen?

Das Feld der Anhänge @FILE taucht bei der Auswahl nicht auf.

- Neuer Agent > "einfache Aktion",

- Aktion > Antwort an Absender & einmal pro Person + Nachricht hinterlegen

- Dokumentenauswahl > "Bedingung hinzufügen" > Nach Feld??

- Eigenschaftsbox des Agenten >Laufzeit "Nach Eingang neuer Mail"

Hallo Zusammen,

ich versuche aus unsere Notes-Datenbank Daten via JSON an unser Intranet (Wordpress) weiter zu geben.

Mit Hilfe von einer Xpage, welche ein REST-Service Steuerelement beinhaltet.

Das Beispiel wird hier im Video erläutert ab ca. 3:25

Ich hatte mir auch die Beispieldatenbank "Extension Library Demo Database Extended" hier geholt und installiert:

OpenNTF.org - The Open Source Community for Collaboration Solutions

Mit dieser klappt es wie im Video.

Jedoch wenn ich meine Seite wie folgt einbinde:

Einbindung.jpg

Sieht der Quelltext so aus:

quelle.jpg

und bekomme folgende Fehlermeldung:

Fehler.jpg

Fehlt dort etwas an der Datenbank, damit ich diese Funktion einbunden kann?

Vielen Dank für den Tipp, so mache ich das

Hallo Zusammen,

ich versuche einen Raum anhand eines Schlüssels (Zimmernummer) aus einem View/Tabelle zu finden.

Wenn gefunden, dann wird dies angezeigt, ansonsten nicht. Der Code ist nicht vollständig...

Der Teil bei dem ich eine Frage hätte wäre:

Set entryMapping = viewMapping.GetEntryByKey(zimmernummer)

Wird der Schlüssel nur mit der ersten Spalte (Column) der Ansicht verglichen, oder kann ich diesen auch auf eine andere Spalte anwenden?

Denn wenn der Schlüssel nicht in der ersten Spalte steht, komme ich immer in den Else-Teil....

Der Codeschnipsel dazu:

Function LeseBesprechungsraeume As String
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim viewMapping  As NotesView
Dim entryMapping As NotesViewEntry
Dim zimmernummer As String

On Error GoTo ErrHandler

Set viewMapping=db.Getview("meineAnsicht")
If (viewMapping Is Nothing) Then
   GoTo ErrHandler
End If

Set entryMapping = viewMapping.GetEntryByKey(zimmernummer)
If Not (entryMapping Is Nothing) Then
    displayInnerXml="true"
Else 'Räume ohne Mapping sollen gar nicht angezeigt werden?
    displayInnerXml="false"
End If

ErrHandler:
    Print |Error: - |+Str(Err)

Guten Morgen Zusammen,

besteht die Möglichkeit einzusehen, welcher Benutzer meine Maildatenbank geöffnet hat?

Ich habe selbst Adminrechte und habe Zugriff. Kann jedoch bisher nur diese Infos finden:

Eigenschaften.jpg

Zitat von CarstenH

Den Besitzer einzutragen ist essenziell wichtig in jeder Mail-Db und hat erstmal nichts mit Berechtigungen zu tun:

Jeweilige Mail-DB (bzw. bei dir den Teamkalender) öffnen, Aktion Mehr > Vorgaben ...

Dort den Mail-(in)-Namen dieser Mail-DB (!) unter Mail > Allgemein > Besitzer auswählen und eintragen.

WICHTIG:

1) Der Besitzer muss identisch mit dem Namen des Mail-In-Dokuments sein; keine andere Person oder sich selbst eintragen da dieser Name zur Adressierung im Notes verwendet wird und dann nicht mehr eineindeutig wäre.

2) Name im Mail-In-Dokument sollte hierarchisch (Team Muster/Meine Firma) sein und NICHT identisch mit der Internetmailadresse.

Nur einige der Einstellungen hier greifen später für weitere Nutzer dieser Teamdatenbank, der Einstellungsdialog ist ebenso wie das gesamte Mailtemplate eigentlich nicht für Teamfunktionen konzipiert kann aber mit Einschränkungen durchaus so benutzt werden.

Was alle Mitglieder des Teams später zu machen haben:

1) eigenen Kalender öffnen und in der Navigationsleiste "Kalender hinzufügen..." auswählen

2) Hinzufügen als "Notes-Benutzer-Kalender" wenn der Teamkalender mit dem Standard-Mailtemplate angelegt wurde

3) im Feld Benutzername den Mail-In-Namen eintippen, sobald die richtige Db angezeigt wird diese auswählen

4) Offline-Modus auswählen, wenn der Nutzer auch mit alternativen Clients seinen Kalender benutzt (Verse, iNotes, ...)

5) Farben festlegen (kann später noch geändert werden) und OK

Carsten

Alles anzeigen

Hallo Carsten,

vielen Dank für die Mühe und Erklärung.

Dann hatte ich zumindest schonmal den Besitzer unter Vorgaben richtig eingestellt, dass dort die MailinDB genannt wurde.

(Team Muster/Meine Firma) sein und NICHT identisch mit der Internetmailadresse.

Okay, dass war zum Glück nicht der Fall die Adresse lautet teamkalender-xxx@domain.de und die Mail In DB heißt Teamkalender XXX/Firma

Genau an dieser Stelle hapert es:

1) eigenen Kalender öffnen und in der Navigationsleiste "Kalender hinzufügen..." auswählen

Diesen Menüpunkt besitze ich, jedoch die Teammitglieder nicht.

Kann dies vielleicht an der optischen Einstellung hängen wie usebasicnotes=1 in der Ini?

Wie gesagt, Schablone der Teammitglieder hatte ich bereits aktualisiert...

Zitat von CarstenH

Die Funktion, in einem Kalender weitere Kalender hinzuzufügen/anzuzeigen/einzublenden, ist nur für den Besitzer verfügbar.

Das hat verschiedene Gründe, unter anderem, weil zum Beispiel für viele (Internet-) Kalender auch Zugangsdaten hinterlegt werden müssen, die dann im persönlichen Adressbuch des Besitzers gespeichert werden. Der Client holt sich für die Anzeige der eingeblendeten Kalender wiederum die Informationen über eine Mischung aus Profildokumenten (in der Mail-DB) und Kontodokumenten (aus dem Adressbuch) - diese Informationen stehen nur dem Besitzer uneingeschränkt zur Verfügung.

In diesem Fall (Team) würde ich den umgekehrten Weg gehen: jedes Teammitglied blendet sich den Teamkalender in seinen persönlichen Kalender ein.

HTH

Carsten

Alles anzeigen

Danke für die Erklärung, wo kann ich denn den Besitzer herauslesen?

Ich habe folgendes gemacht mit meinem Admin User:

- MailIn DB angelegt, theoretisch ist der Kalender nun auch erreichbar unter teamkalender-xxx@domain.de

- DB angelegt mit Vorlage Notes R9

- Berechtigungsgruppe erstellt, alle Teammitglieder und meinen eigenen nicht Admin Benutzer

Mein Client/Benutzer hat die Möglichkeit den Team Kalender hinzuzufügen, so das ich diesen in meinem Kalender sehen kann und ein/ausblenden kann.

Der Rest vom Team kann das leider nicht.

Wie könnten sie den umgekehrten Weg gehen, so dass der Teamkalender im persönlichen eingeblendet wird?

Hallo Zusammen,

ich habe für ein Team eine eigene Mail/Kalender DB angelegt.

Alle Teammitgleider haben vollzugriff auf die DB.

Leider taucht im Notes Client, der Button "Kalender hinzufügen" wie hier beschrieben nicht auf:

https://www.uni-kassel.de/its-…kalender-hinzufuegen.html

Den Kalender selbst können die Teammitglieder öffnen, also scheint es kein Rechteproblem zu sein.

Ich als Admin Benutzer habe zumindest im Client den Button.

Beim Teammitglied habe ich auch bereits die Schablone aktualisiert.

Beim Anlegen habe ich mich an diese Anleitung gehalten:

https://help.hcltechsw.com/not…0/nl/de/cal_team_cal.html

Hallo Zusammen,

ich verusche für den Benutzer verschiedene Signaturen zu hinterlegen.

Ich habe den Beitrag gefunden, wo man den Text direkt hinter einem Button legen kann:

http://www.alanlepofsky.com/al….nsf/dx/customize-toolbar

Daneben habe ich die Lösung im Netz gefunden mit dem Command Befehl hinter dem Button:

https://www.assono.de/blog/meh…naturen-und-textbausteine

Wenn ich jedoch diesen Befehl:

@Command([FileImport];"ASCII Text";"Z:\\Signatur1.txt")

erhalte im Client die Meldung: Angegebener Befehl kann nicht ausgführt werden.

Ist dies ein Rechteproblem?

Hallo Carsten,

danke für den Tipp, die Gruppen hatte ich bereits angelegt.

Habe nun dementsprechend 5 Agenten angelegt mit Infobrief und Dokumentenauswahl

Werde trotzdem für mich weiter versuchen dies als Lotusscript Agent zu lösen, auf kurz oder lang bekomme ich immer wieder solche Anfragen.

Ich hab den Trigger beim Agenten nun mal auf Ereignis "nachdem Dokument erstellt oder geändert wurde" der Agent löst nun bei neuer Mail aus, leider greift die IF Abfrage nicht bei neuen Dokumente doc.IsNewNote da das Dokument wohl schon gespeichert ist?

Wenn die If Abfrage raus ist, erhalte ich zu jedem Dokument eine Mail

Ich dachte ich könnte ohne If Abfrage arbeiten, da der Agent bei .unprocesseddocuments nur neue Dokumente seitdem letzten laufen einbeziehen sollte?

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim col As NotesDocumentCollection
    Dim doc As NotesDocument

    Set session = New NotesSession
    Set db = session.CurrentDatabase
    Set col = db.unprocesseddocuments

    On Error GoTo ErrHandler
    
    Set doc = col.GetFirstDocument()
    While Not(doc Is Nothing)
        If doc.IsNewNote Then
            doc.Form = "CST_Dateitransfer"
            Call doc.send(True, "Vorname Name")
        End If
        Set doc = col.GetNextDocument(doc)
    Wend

ErrHandler:
    Print |Error: Dateitransfer -> MailNewDoc Agent: - |+Str(Err)
    Exit Sub
End Sub

Im Log gefunden, das ist auch die URL die aufgerufen wird, wenn der 404 erscheint

2020-03-06 09_29_33-meinBenutzer- Remotedesktopverbindung.jpg