title image


Smiley Re: Agent aus einem Agenten starten
Guten Morgen,



vielen Dank für die Rückmeldung.



Also der Agent hat folgende Werte:



Auslöser: "Durch Ereignis"

Laufzeit: "Auswahl im Menü Aktion"

Ziel "Alle Doks in der DB"



Dieser Agent soll duch den anderen Agenten ausgeführt werden:

(Der läuft auch perfekt)



Sub Initialize



key = "atten"



Dim db As NotesDatabase

Dim s As New NotesSession

Dim workspace As New NotesUIWorkspace

Dim view As NotesView

Dim doc As NotesDocument

Dim mdoc As NotesDocument

Dim docLösung As NotesDocument

Set db = s.CurrentDatabase



Dim Frage As NotesItem

Dim Antwort As NotesItem

Dim Auswahl As NotesItem

Dim mail As NotesItem

Dim empfaenger As NotesItem

Dim nachricht As NotesItem



Dim zahl As Integer

Dim werte (3) As Variant





Set view = db.GetView( "Fragen" )

Set doc = view.GetDocumentByKey (key )





Set Frage = doc.getfirstItem ("Frage_Frage")

Set Antwort = doc.getfirstItem ("Frage_Antwort")

Set Auswahl = doc.getfirstItem ("Frage_Antwortauswahl")

Set mail = doc.getfirstItem ("Frage_Mail")

Set empfaenger = doc.getfirstItem ("Frage_Mailempfänger")

Set nachricht = doc.getfirstItem ("Frage_Nachricht")

Set Buchstabe = doc.getfirstItem ("Frage_Buchstabe")



'Prüfung ob die Frage schon beantwortet wurde



beantwortet = doc.Frage_beantwortet(0)



If beantwortet ="JA" Then

Messagebox "Diese Frage ist bereits beantwortet !"

Exit Sub

End If







'Prüfung ob das Datum zum Stichtag heute schon geöffnet werden darf

checkdate = Cdat(doc.Frage_Datum(0))

heute = Cdat(Today())



If heute < checkdate Then

Messagebox "Diese Tür steht Dir noch nicht zur Verfügung !"

Exit Sub

End If



'Was für eine Fragenart liegt vor ? Auswahlmöglichheit oder Eingabeaufforderung ?



Dim rc As String

art2= doc.Frage_Art(0)



If Art2 = "Antworteingabe" Then



rc = Inputbox$ (Frage.Text)



Else



werte(0) = auswahl.Values(0)

werte(1) = auswahl.Values(1)

werte(2) = auswahl.Values(2)

werte(3) = auswahl.Values(3)



rc = workspace.Prompt (PROMPT_OKCANCELLIST, "Frage", Frage.Text,werte(0),werte)



End If





If rc = Antwort.Text Then

Call workspace.DialogBox _

("Dialog", True, True, False, False, False, _

False, "Dialog", doc)



doc.Frage_beantwortet = "JA"

Call doc.Save(True,True)



Set docLösung = New NotesDocument (db)

docLösung.form = "Lösung"

docLösung.Lösung_Buchstaben = Buchstabe.text

docLösung.Lösung_Datum =key

Call docLösung.Save(True,True)



'Mailversenden

If mail.text = "Ja" Then

Set mdoc = New NotesDocument (db)

mdoc.form = "Memo"

mdoc.Subject = "Nicoles Adventskalender 2005"

mdoc.sendto = empfaenger.Text

mdoc.body = nachricht.Text

Call mdoc.Send (True)

End If



Else

Messagebox "Sorry, diese Antwort ist falsch !"

zahl = doc.Frage_Zähler(0)

doc.Frage_Zähler = zahl +1

Call doc.Save(True,True)

Exit Sub

End If





End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: