Antwort an Absender nur an bestimmten Tagen

Seppel · 22. Mai 2007

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

taurec · 22. Mai 2007

Na vermutlich wird er in den leeren Else Zweig hineinlaufen

Diali · 22. Mai 2007

stimmt, willst Du das Script heute laufen lassen, dann musst Du diesen IF wochentag = 1 Then anpassen.

Gruß
Dirk

Seppel · 22. Mai 2007

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

Diali · 22. Mai 2007

Du benutzt aber das heutige Datum

Code

Dim Wochentag As Integer
Dim Datum As New NotesDateTime("Today")
Wochentag = Weekday(Datum.LSLocalTime)

Gruß
Dirk

Seppel · 22. Mai 2007

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

taurec · 22. Mai 2007

Dann ist vermutlich deine Collection leer.
Nach was selektiert diese denn ?

Diali · 22. Mai 2007

na wenn Wochentag 3 ist und Du
If Wochentag = 1 Then
abfrägst, dann läuft das Script ...
... MOMENT habe das elseif Wochentag = 3 übersehen - SORRY

ich sagte doch das der Code in Code-Tags besser lesbar ist.

Gruß
Dirk

Code

...
If Wochentag = 1 Then
   ....
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

Alles anzeigen

Seppel · 22. Mai 2007

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:

taurec · 22. Mai 2007

Ist das im Agenten auch so eingestellt ?

Seppel · 22. Mai 2007

der agent soll ebim maileingang anspringen...

taurec · 22. Mai 2007

Ist der Agent denn überhaupt mal angelaufen ?
Was sagt das Agent-Protokoll ?

Evtl sind ja bei euch Agenten die auf neue Mails reagieren deaktiviert. Da gab es meines Wissens nach ne Servereinstellung dafür

Seppel · 22. Mai 2007

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

taurec · 22. Mai 2007

OK, dann ist er genau einmal gelaufen.

Was sagt das Serverlog ? Sind da irgendwelche Fehlermeldungen zu diesem Agenten und dieser Uhrzeit zu finden ?

Ronka · 22. Mai 2007

VOR EINGANG läuft in der Router, NICHT in der Mail db.

Tommy79 · 23. Mai 2007

1) ein Agent der Vor Eingang neuer Mail laufen soll, darf in einer DB nur 1x vorhanden sein.

im prinzip hast du ja deinen script schon fertig, nur musst du die else bedingungen noch richtig machen und die nötigen parameter zum senden eines mails angeben.
weiters würde ich dir empfehlen nicht mit

doc.Subject = "Betreff" oder andere kürzel zu arbeiten, auch wenn es so in der hilfe steht, so kriegst beim kompilieren des öfteren keine fehlermeldungen und wunderst dich dann wieso es nicht funktioniert

Option Declare ein MUSS!

Dim ses As New Notessession
Dim db As Notesdatabase
Dim empfaenger As Variant
'die empfaenger aus einem feld lesen oder hardcodiert befüllen

Set db = ses.CurrentDatabase

Dim doc As New NotesDocument(db)
Dim rtitem As New NotesRichTextitem(doc,"Body")

Call doc.ReplaceItemValue("Form","Memo")
Call doc.ReplaceItemValue("Subject","Das ist der Betreff")
Call rtitem.AppendText("1te Zeile bla bla")
Call rtitem.AddNewLine(1) 'Zeilenumbruch
Call rtitem.AppendText("2te Zeile blabla und so weiter...")

Call doc.Send(True,empfaenger)

ich hoffe das hilft ein bisschen weiter...

Teilen