Probleme beim Erstellen von Kalendereinträgen via Agent

heimat1978 · 25. Juni 2007

Hallo, 

ich habe eine DB die Kalendereinträge in den User-Mailfiles erstellen soll. 

Zu diesem Zweck gibt´s einen Agenten der 
- mit einer User-ID signiert ist die Zugriff auf die Mailfiles hat und 
- sich aus dem Adressbuch Homeserver und Pfad des User-Mailfile holt um dann 
- die Mail-DB zu öffnen und die Einträge zu erstellen. 

Liegen DB und Mail-DB auf dem gleichen Server klappt das ganze auch prima. Sobald aber z.B. meine DB auf Server A und das Mailfile auf Server B liegt bricht der Agent bei der Ausführung ab! 

Führe ich das identische Skript über eine Schaltfläche am Client aus funktioniert die Eintragung einwandfrei - egal wo die Mail-DB liegt. 

Hier der relevante Teil vom Skript: 

<code>Sub Initialize 
Dim agentLog As New NotesLog("Agent-Protokoll") 
Call agentLog.OpenAgentLog 
Dim s As New notessession 
Dim db As NotesDatabase 
Dim adressbuch As NotesDatabase 
Dim MailFile As NotesDatabase 
Dim doc As NotesDocument 
Dim refdoc As NotesDocument 
Dim ccdoc As NotesDocument 
Dim termindoc As NotesDocument 
Dim item As NotesItem 
Dim a As NotesAgent 
Dim rtstyle As NotesRichTextStyle 
Dim t As New NotesDateTime("") 
Dim rtitem As Variant 
Dim empfaenger As Variant 
Dim collection As NotesDocumentcollection 
Dim server As String 
Dim mailserver As Variant 
Dim maildb As Variant 
Dim personendoc As NotesDocument 
Dim uidtermindocperson As String 
Dim searchFormula As String 
Dim nam As NotesName 
Dim Mailbox As NotesDatabase 
</code>
<code>'oeffne Referenzdokument aus DB ZTV 
Set db = s.CurrentDatabase 
Set a = s.CurrentAgent 
Set refdoc = db.GetDocumentByID(a.ParameterDocID) 
</code>
<code>'lese terminempfaenger aus Referenzdokument 
empfaenger = refdoc.GetItemValue("SendTo") 
Call agentLog.LogAction(empfaenger(0) & " Empfaenger aus Referenz-Doc") 
</code>
<code>'oeffne Adressbuch Spb auf aktuellem Server 
server = db.Server 
Set adressbuch = s.GetDatabase(server, "names.nsf") 
Call agentLog.LogAction(adressbuch.FileName & " " & adressbuch.Server & " Dateiname und Server des Adressbuch") 
</code>
<code>'suche personendokument im adressbuch 
</code><code>Set nam = s.CreateName(empfaenger(0)) 
searchFormula = nam.Canonical 
Call agentLog.LogAction(searchFormula & " Suchbegriff") 
Set collection = adressbuch.Search({FullName = "} & searchFormula & {"}, Nothing, 1) 
Call agentLog.LogAction(collection.Count & " Anzahl der Treffer-Dokumente") 
Set personendoc = collection.GetFirstDocument 
Call agentLog.LogAction(personendoc.UniversalID & " UID des Personen-Dok") 
</code>
<code>'lese mailserver/file aus Personendokument & oeffne MailDB 
mailserver = personendoc.GetItemValue("MailServer") 
maildb = personendoc.GetItemValue("MailFile") 
Call agentLog.LogAction(mailserver(0) & " Mail-Server") 
Call agentLog.LogAction(maildb(0) & " Mail-File") 
Set MailFile = s.GetDatabase(mailserver(0) ,maildb(0)) 
If Not MailFile.IsOpen Then 
Call MailFile.Open(mailserver(0),maildb(0)) 
End If 
If MailFile.IsOpen Then 
Call agentLog.LogAction("Mail-DB wurde erfolgreich geöffnet!") 
Else 
Call agentLog.LogAction("Mail-DB konnte nicht geöffnet werden!") 
End If 
Call agentLog.LogAction(MailFile.ReplicaID & " Replik-ID der Mail-DB") 
Call agentLog.LogAction(MailFile.CurrentAccessLevel & " Aktuelles Zugriffsrecht auf die Mail-DB") 
</code>
<code>'erstelle termindoc in persönlicher MailDB 
Set termindoc = New NotesDocument(MailFile) 
Call agentLog.LogAction(termindoc.UniversalID & " UID des Termin-Dok") 
... 
</code>
Und hier noch dass Protokoll bei Ausführung (DB liegen auf verschiedenen Server): 
<code>Started running agent 'TerminEintragung' on 25.06.2007 15:05:51 
Running on all documents in database: 52 total 
Found 52 document(s) that match search criteria 
25.06.2007 15:05:51: Bernhard Bauer/REGENSBURG/SPB Empfaenger aus Referenz-Doc 
25.06.2007 15:05:51: names.nsf CN=NREGENS3/OU=SERVER/O=SPB Dateiname und Server des Adressbuch 
25.06.2007 15:05:51: CN=Bernhard Bauer/OU=REGENSBURG/O=SPB Suchbegriff 
25.06.2007 15:05:52: 1 Anzahl der Treffer-Dokumente 
25.06.2007 15:05:52: 775C1EA61E9913B0C1256E990046E6FA UID des Personen-Dok 
25.06.2007 15:05:52: CN=AN068036X1/OU=SERVER/O=SPB Mail-Server 
25.06.2007 15:05:52: mail\u759376 Mail-File 
Ran LotusScript code 
</code>
Bin im Mom ziemlich ratlos und für jeden Rat dankbar!
 
Grüße 


Martin
&nbsp;
&nbsp;

RockWilder · 25. Juni 2007

Magst du Code bitte in \[code\]-Abschnitte packen? So ein zerfleddertes Design ist echt schlimm zu lesen...

Was den Abbruch angeht: es gibt im Serverdokument den Punkt "Trusted Servers" (dt.: "Vertrauenswürdige Server"). Der muss entsprechend gefüllt sein, damit dein Vorhaben klappt. Zu Einzelheiten: siehe Admin-Hilfe

heimat1978 · 25. Juni 2007

... so - hoffe die Lesbarkeit ist jetzt etwas besser geworden ;-)!

In den vertrauenswürdigen Servern findet sich kein Eintrag - kann ich leider auch nicht ohne weiteres ändern (Admin-Hoheit unseres Rechenzentrums...)

Aber wieso klappt dann die Ausführung wenn ich dass Skript via Schaltfläche am Client direkt ausführe?

Und dann hab ich da in ner anderen DB auf dem selben Server einen ganz ähnlichen Agenten der ebenfalls Kalendereinträge vornimmt und prima funzt - einziger für mich ersichtlicher Unterschied ist dass dieser Agent periodisch ausgeführt wird.

Nach wie vor ratlos...

Martin

tbahn · 25. Juni 2007

Hallo Martin,

grundsätzlich besteht seit Anfang an die Begrenzung, das Server-Agenten - also Agenten, die irgendwie automatisch auf dem Server gestartet werden, z. B. zeitgesteuert - niemals nicht auf Datenbanken auf anderen Servern zugreifen dürfen.

Mit Notes 6 wurde eine Möglichkeit geschaffen, dass Server einander "vertrauen". Vertraut Server A dem Server B, dann dürfen Agenten, die auf Server B laufen auch Datenbanken auf Server A öffnen.

Es gibt ein Feld in den Sicherheitseinstellungen im Server-Dokument, wo die vertrauenswürdigen Server eingetragen werden können. Das ist das Feld, das RockWilder meinte.

Also entweder bekommst du das Feld entsprechend gesetzt oder du musst mit der Sicherheitseinschränkung leben.

Ciao
Thomas
http://www.assono.de/blog.nsf/

Diali · 26. Juni 2007

Du solltest den Code und Tags [ code][/code] (Leerzeichen im ersten [ code] entfernen oder die entsprechende Schaltfläche im Editor verwenden) einfassen, dann ist es leichter lesbar und die Einrückungen bleiben erhalten.

z. Bei.:

Code

Sub Initialize
   Dim agentLog As New NotesLog("Agent-Protokoll")
   Call agentLog.OpenAgentLog
   Dim s As New notessession
   Dim db As NotesDatabase
   Dim adressbuch As NotesDatabase
   Dim MailFile As NotesDatabase
   ...

Gruß
Dirk

RockWilder · 26. Juni 2007

Zitat

Aber wieso klappt dann die Ausführung wenn ich dass Skript via Schaltfläche am Client direkt ausführe?

Du beantwortest damit deine Frage selbst: es wird eben über den "Umweg" Client auf Server A und Server B zugegriffen.

heimat1978 · 26. Juni 2007

Ok, ich versuch auf jeden Fall mal den Eintrag in den vertrauenswürdigen Servern gesetzt zu kommen.

Zitat

...grundsätzlich besteht seit Anfang an die Begrenzung, das Server-Agenten - also Agenten, die irgendwie automatisch auf dem Server gestartet werden, z. B. zeitgesteuert - niemals nicht auf Datenbanken auf anderen Servern zugreifen dürfen.
...

Trotzdem: in ner anderen DB die nur auf Server A liegt läuft ein periodischer Agent der auf DBen von Server A bis Z zugreift - erfolgreich und bei im wesentlichen identischem Aufbau.

Hab beide Agenten nochmal verglichen und festgestellt, dass der Agent der funzt von Server A signiert wurde, während mein Agent "nur" mit ner Benutzer-ID signiert wurde - kann dass die Ursache sein?

PS: und der nächste Beitrag wird vernünftig formatiert ;-))

heimat1978 · 10. Juli 2007

Hey -

grad mal 2 Wochen später hab ich den Eintrag in den vertrauenswürdigen Servern bekommen -
und schon klappt´s auch mit dem Zugriff serverübergreifend :-D!

Dank an alle & macht weiter so!

Schöne Grüße

Martin

Teilen