Beiträge von Seppel

Wir haben da auch keine Probleme.
Startet Ihr den Server als Dienst oder als Applikation?

eigetnlich haben wir da einige solche agenten die da laufen. halt im normalfall nur mit einfachen aktionen.

das log sieht so aus:

Started running agent 'Abwesenheitsagent Sonntag-Montag' on 22.05.2007 15:26:37
Running on new mail messages: 1 total
Ran LotusScript code
Done running agent 'Abwesenheitsagent Sonntag-Montag' on 22.05.2007 15:26:38

der agent soll ebim maileingang anspringen...

taurec

meine collection sollte eigentlich alle dokumente erfassen und bearbeiten die neu in die db gekommen sind.
aber wie gesagt, ich arbeite zum ersten aml mit lotusscript :roll:

wenn ich mir den wert wochentag ausgeben lasse, dann erhalte ich aber die zahl 3. somit müsste das script ja beim elseif weiterlaufen. verstehe ich da jetzt was falsch ?

Wochentag = Weekday(Datum.LSLocalTime)
Set db = session.CurrentDatabase
Messagebox ( Wochentag )

gruss seppel

läuft der nicht ins elsif? und da der heute der dritte tag ist (gemäss hilfe ist der sonntag der erste tag) müsste das doch eigentlich funtzen.
schaut zumindest beim debugger mal so aus...

gruss seppel

so ich habe meinen code jetzt mal etwas überarbeitet.

fehler erhalte ich keinen mehr. aber ein antwortmail wird auch nicht generiert.

bin dankbar für jeden tipp.

gruss seppel

Sub Initialize

Dim db As NotesDatabase
Dim session As New NotesSession
Dim memo As NotesDocument
Dim reply As NotesDocument
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim Wochentag As Integer
Dim Datum As New NotesDateTime("Today")
Wochentag = Weekday(Datum.LSLocalTime)
Set db = session.CurrentDatabase

REM [Action] Mail beantworten
If Wochentag = 1 Then
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Set reply = memo.CreateReplyMessage( False )
reply.Subject = "Re: " & memo.Subject( 0 )
reply.Body = "Test"
Call reply.Send( False )
Set doc = collection.GetNextDocument(doc)
Wend
Elseif Wochentag = 3 Then
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Set reply = memo.CreateReplyMessage( False )
reply.Subject = "Re: " & memo.Subject( 0 )
reply.Body = "Test"
Call reply.Send( False )
Set doc = collection.GetNextDocument(doc)
Wend
Else

End If

End Sub

das Ziel sollte eigentlich sein, dass das Mail, das empfangen wird automatisch beantwortet wird.

der agent soll beim eingang neuer mails laufen.

gruss seppel

also

beim starten des agenten bleibt der degubber bei der genannten zeile stehen, allerdings ohne fehler.
wenn ich dann fortfahren drücke pop der fehler object variable not set auf und der debugger steht dann bei folgender zeile:

Set reply = memo.CreateReplyMessage( False )

gruss seppel

no problem bin um jede hilfe dankbar

der debugger bleibt immer noch bei dieser zeile stehen

Dim Datum As New NotesDateTime("Today")

hmm

jetzt bleibt der debugger bei folgender zeile stehen:

Dim Datum As New NotesDateTime(Cstr(Today))

gruss seppel

der fehler kommt bei folgender zeile

Datum = Today()

gruss Seppel

Hallo

Leider habe ich programmieren im Allgemeinen nicht so viel Ahnung

Habe mir jetzt mal was zusammengebastelt, erhalte aber immer den Fehler "object variable not set".

hier mal mein code:

Sub Initialize

Dim memo As NotesDocument
Dim reply As NotesDocument
Dim Datum As Variant, Wochentag As Integer
Datum = Today()
Wochentag = Weekday(Datum)

REM [Action] Mail beantworten
If Wochentag = 1 Then
Set reply = memo.CreateReplyMessage( False )
reply.Subject = "Re: " & memo.Subject( 0 )
reply.Body = "Test"
Call reply.Send( False )
Elseif Wochentag = 2 Then
Set reply = memo.CreateReplyMessage( False )
reply.Subject = "Re: " & memo.Subject( 0 )
reply.Body = "Test"
Call reply.Send( False )
Else

End If

End Sub

Höre ich da jemanden im Hintergrund lachen, wegen des Codes %-(
Ich denke mal, ich habe da irgendwas essentieles vergessen

Gruss Seppel

Also wir lesen die Userspezifischen Felder mit dem logonscript aus der AD aus und erstellen damit das html File.
Das funktioniert soweit.

Gruss Seppel

weil ich eigentlich keine erfahrung beim scripten mit notes habe... =))

mal schauen, ob ich das irgendwie auf die reihe kriege...

danke

gruss seppel

Hallo zusammen

Ich muss einen Agent erstellen, der jedesmal ein Antwortmail sendet, wenn er eine Mail erhält. Das ist ja nicht das Problem. Dies soll aber jeweils nur am Sonntag und am Montag geschehen. Über Standard Einstellungen (OoO) geht das ja nicht. Mit @Weekday ist das aber so denke ich lösbar. Wo kann ich die Ausführung eines Agenten mit einem Script steuern?

Die einfache Aktion kann ich im Desinger ja problemlos definieren, aber wo kann ich ein Script hinterlegen, dass die Aktion steuert? Oder muss ich da anders vorgehen.

Gruss Seppel

Suuuper, besten dank.

gruss Seppel

Hallo zusammen

Wie kann ich bei einem feld ein Datum setzen, dass sich danach nicht mehr ändert.

Ausgangslage: Dialogfeld mit JA und NEIN. Sobald dieses Feld auf JA gesetzt wird, möchte ich in einem Datumsfeld das heutige Datum eintragen. Und das soll sich danach nciht mehr ändern, auch wenn das Dokument nachträglich noch bearbeitet wird.

Mit folgender Formel geht es logischerweise nicht, da das Datum ja jedesmal neu berechet wird, da das Dialogfeld ja beim Speichern bereits auf JA steht.

@if(dialogliste = "JA";@Today;else)

Ich komme da mit meinen sehr bescheidenen Programmierkenntnissen auf keinen grünen Zweig.

Danke und Gruss Seppel

Crass

Fettes merci aus der Schweiz....

Funktioniert. Besten Dank

Gruss Seppel

Hallo zusammen

Ich bin nicht wirklich ein Entwickler und habe bereits in der Designerhilfe gesucht, aber nix gefunden.

Ich möchte ein Datumsfeld berechnen. Beim Speichern des Dokumentes wird das @Created Feld geschrieben. Nun möchte ich ein neues Datum in einem anderen Feld berechnen, dass 30 Tage in der Zukunft liegt.

Irgendwie kriege ich das nciht auf die Reihe.

Bin dankbar für jede Hilfe.

Gruss Seppel