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

Agent - Mailbenachrichtigung

<< < (7/8) > >>

hwenck:
Ich ziehe den Hut vor:
klauss,thoge,shiraz,m3,koehlerbv,WernerMo

hallo Jensi, ich hoffe Du verdienst damit nicht dein Geld.

Ich habe hier nichts zu sagen. Aber das mußte ich loswerden.

Jensi:

--- Zitat von: hwenck am 12.02.08 - 14:43:55 ---Ich ziehe den Hut vor:
klauss,thoge,shiraz,m3,koehlerbv,WernerMo

hallo Jensi, ich hoffe Du verdienst damit nicht dein Geld.

Ich habe hier nichts zu sagen. Aber das mußte ich loswerden.

--- Ende Zitat ---

Dann sag auch nichts...

Muss man hier etwa ein perfekter Notes-Spezialist sein? NEIN
Dieses Forum ist dazu da, das Leute wie ich Hilfe einholen können... Oder versteh ich das falsch?
Auf solche Kommentare wie von hwenck kann ich verzichten.

Danke an Hubert...

DerAndre:
Jensi nicht Ärgern. Er hat ja noch nichtmal aktiv was beigetragen. Deswegen würde ich mir den Schuh garnicht erst anziehen.
Außerdem würde ich mal sagen verdient hier jeder sein Geld damit. Auf die eine oder andere Weise.

Aufgrund Bernhards Post habe mir das ganze jetzt nochmal Angeschaut und mich ein bischen revidiert.
Ich glaub ich habe heute zu tief in den Designer geschaut.

koehlerbv:

--- Zitat von: Jensi am 12.02.08 - 14:56:09 ---Danke an Hubert...
--- Ende Zitat ---

André, wenn man das so macht und nur jemanden anerkennt, der einem die Arbeit komplett abnimmt und den fertigen Code liefert, dann verdient man sich nicht sein Geld, sondern man bekommt es.
Die seitenweisen Bemühungen der anderen werden schlicht ignoriert (sicherlich auch gar nicht verstanden) - so macht man sich "Freunde".

Bernhard

Jensi:

--- 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
Set s = New notessession
Set db=s.currentdatabase
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
If dtnow.TimeDifference(dtthen)/86400 <= 5 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 ---

Kann mir jemand sagen, was dieser Teil hier macht:

--- Code: --- 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
If dtnow.TimeDifference(dtthen)/86400 <= 5 Then
Set memo = db.createdocument
--- Ende Code ---

Danke

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete