Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Agent - Mailbenachrichtigung

<< < (8/8)

Jensi:
Wenn ich meine Datenbank jemandem zur Verfügung stelle, könnte dieser vllt mal einen Blick drauf werfen?
Meine Kenntnisse sind am Ende....

Jensi:
Ich habe jetzt nach langer Zeit endlich die richtige Lösung gefunden...

Nun hab ich eine letzte Frage:
Ich habe in dem Profildokument ein Feld "prfdoc_default_warnen"
In diesem Feld wird der Warnzeitpunkt (in Tagen) eingeben, als Zahl.


--- Code: ---Sub Initialize

Dim s As notessession
Dim db As notesdatabase
Dim view As notesview
Dim doc, memo, ProfileDoc As notesdocument
Dim body As notesrichtextitem
Dim dtthen As notesdatetime, dtnow As notesdatetime
Dim dateTime As New NotesDateTime( "Today" )
Dim dateTime_ As Variant
Dim maxdiff, difference As Long
Set s = New notessession
Set db=s.currentdatabase
' Profildokument
Set ProfileDoc = db.GetProfileDocument("PRFdoc_defaultVertrag")
Set view = db.getview("($AllDocID)")
Set doc = view.getfirstdocument
Do While Not (doc Is Nothing)
Set dtthen = doc.getfirstitem("ver_fruehesterkuentermin").DateTimeValue
If Not (dtthen Is Nothing) Then
Call dtthen.setAnyTime
Set dtnow= New notesdatetime("Today")
Call dtnow.setAnyTime
maxdiff =  90
' Differenzberechnung - Liefert einen negativen Wert zurück, deswegen am Ende *(-1)
difference = dtnow.TimeDifference(dtthen) / 86400 *(-1)
' Bedingung
If ( (difference > 0) And (difference < maxdiff)) Then
Set memo = db.createdocument
With memo
Call .replaceitemvalue("Form", "Memo")
Call .replaceitemvalue("Subject","Auslaufender Vertrag - " & doc.ver_firma(0))
Set body = .createrichtextitem("Body")
With body
Call .appendtext("Der "& doc.ver_art(0) &" für "& doc.ver_gegenstand(0) &" läuft demnächst aus. Hier ist das Dokument:  ")
Call .appenddoclink(doc,"Bitte hier klicken","")
End With
Call .send(False, ProfileDoc.GetFirstItem("prfdoc_default_email"))
End With
End If
End If
Set doc = view.getnextdocument(doc)
Loop
End Sub
--- Ende Code ---

Im Moment ist der Warnwert fest in dem Agenten definiert.
Wie muss ich das jetzt umschreiben, damit der Wert aus dem Profildokument zieht?

DerAndre:
Du hast ein ProfileDoc, dieses hat einen Wert.
Also nichts anderes als bei einem normal Doc.

Das einzige worüber Du Dir Gedanken machen mußt, Lange oder kurze Variante des Zugriffs auf das Feld  ;D hatten wir das Thema nicht schon Ausführlich...  ;D ;D

Navigation

[0] Themen-Index

[*] Vorherige Sete