Periodischer Agent mit EMail

[Aladdin Sane]

Hallo,

ich verzweifel hier noch an diesem Agenten, der Emails periodisch versenden soll.

Hier der Agentcode:

Dim session       As New NotesSession      
Dim db          As NotesDatabase
Dim doc_Mail      As Notesdocument   
doc_Mail.SendTo                    = "Pascal Willsch"
doc_Mail.subject                   = "Test"
Call doc_Mail.send(False)

- Im Serverdokument ist ein korrekter Mailserver eingetragen.
- Ich habe auch sämtliche Rechte in "Agent Restrictions" im Serverdokument.
- Der Agent ist "Gemeinsam benutzt"
- Wenn ich die Ausführung im Designer teste, bekomme ich die Bestätigung, dass alle Einschränkungen
bestanden sind.
- wenn ich den Agenten manuell starte, läuft er wie gewünscht

Wenn der agent periodisch aktiv wird, wird keine EMail versendet.
Folgendes Log erscheint:

07.04.2005 15:32:58   AMgr: Agent ('PWI_SendMail' in 'AgentLab.nsf') error message: Notes error: You are not authorized to use the server

weiß jemand einen Rat?

Gruß
pASCAL

[webchild]

Evtl. im Administrator die Datenbank mit der "Id des aktiven Servers" signieren!
Hat bei mir in solchen Fällen immer geholfen!

Grüße, Krista

[Aladdin Sane]

Hallo Krista,

DB habe ich signiert - leider ohne Erfolg...

pASCAL

[webchild]

Das kann ein bißchen dauern evtl. auch noch mal Notes neu starten!
Wenn es dann nicht funktioniert, dann muß es ein anderes Problem sein, eher im administratorischen Bereich zu suchen!

Grüße, Krista

[Marinero Atlántico]

Im Serverdokument gibt es einen Reiter namens Security.
Ganz unten existiert dort eine Sektion Agent Restrictions.
Die ID, mit welcher der Agent unterzeichnet wurde, muß in einer der Gruppen oder als Einzelperson/Server in dem Feld "Run unrestricted Lotus Script/Java Agents" eingetragen sein.
Manche Leute machen daraus eine Art Religionskrieg, ob da nur Server drinstehen sollen oder auch Admins oder um "Himmels Willen Entwickler".
Eigentlich sollte es sowas wie Testserver geben. Dort sollten Entwickler sowieso sämtliche Rechte haben. Alles andere funktioniert aus meiner Erfahrung sowieso nicht. 
Wenn du auf einem Produktivserver arbeitest ist es anders. 2 Möglichkeiten:
a) Der Administrator erstellt dir eine temporäre ID, die nachher aus dem System gelöscht wird. Sofort.
b) Die Administratoren sollten jederzeit telefonisch erreichbar sein, damit sie den Agenten für den nächsten Test unterzeichnen (=abspeichern) können. Das übertriebene Gehampel mit Schablonen werde ich nie verstehen.

[Aladdin Sane]

Wie haben hier nur einen Produktions-Domino-Server, auf dem auch entwcikelt wird.

Im Feld "Run unrestricted Lotus Script/Java Agents" bin ich eingetragen.
Und den Agenten habe ich erstellt und gespeichert.

[ata]

Dein Code kann nicht funktionieren, die Initialisiserungen fehlen:

Dim session       As New NotesSession     
Dim db          As NotesDatabase
Dim doc_Mail      As Notesdocument   

Set db = session.CurrentDatabase ' # oder etwas in der Art
Set doc_Mail = db.CreateDocument

doc_Mail.SendTo                    = "Pascal Willsch"
doc_Mail.subject                   = "Test"
Call doc_Mail.send(False)

ata

[koehlerbv]

Folgendes Log erscheint:
07.04.2005 15:32:58   AMgr: Agent ('PWI_SendMail' in 'AgentLab.nsf') error message: Notes error: You are not authorized to use the server

Anton hat schon vollkommen recht - der Agent kann so nicht funktionieren, wenn Du allen Code gepostet hast, Pascal. Aber der Agent läuft offensichtlich erst gar nicht an (und kann daher nicht über den fehlerhaften Code stolpern), da der Domino Server ein Rechteproblem bemängelt. Mir sieht das daher nach einem doppelten Problem (administrationsseitig und entwicklungsseitig) aus.

Bernhard

[Aladdin Sane]

Sorry, ich habe nicht den gesamten Code gepostet.
Initialisiert werden DB und Document so:

Sub Initialize
   
   Dim session       As New NotesSession      
   Dim db          As NotesDatabase
   Dim doc_Mail      As Notesdocument   
   
   Set db          = session.currentdatabase
   Set doc_Mail      = New NotesDocument(db)
   doc_Mail.Form      = "Memo"   
   
   doc_Mail.SendTo    = "Pascal Willsch"
   doc_Mail.subject   = "Test"
   Call doc_Mail.send(False)
   
End Sub