Domino 9 und frühere Versionen > ND7: Entwicklung

Periodischer LS Agent

<< < (2/5) > >>

Driri:
Ich hatte das "10fach" jetzt eher auf die Anzahl Codezeilen bezogen.

dirk_2909:
Ja OK. Kann er auch meinen ?! …habe nicht so genau gelesen...

Bruce Willis:

--- Zitat von: dirk_2909 am 27.11.08 - 14:03:54 ---
--- Zitat ---10fach
--- Ende Zitat ---
Wie kommst Du auf diesen Wert?

--- Ende Zitat ---
Auf einen Blick die Anzahl der Zeilen abgeschätzt.
Vielleicht auch mehr als 10...



--- Zitat von: dirk_2909 am 27.11.08 - 14:03:54 ---Wie lange hat es denn vorher gedauert?
--- Ende Zitat ---
Ich habe doch nicht "lange" oder "langsam" sondern "lang" geschrieben...



--- Zitat von: dirk_2909 am 27.11.08 - 14:03:54 ---Wie lange mit LS?

--- Ende Zitat ---
Das weiß ich nicht, da ich den LS Agenten nicht habe.

Würdest Du bitte deine Version hier präsentieren, damit wir die Zeiten vergleichen können?

Fedaykin:
Hallo Leo

So was in diese Richtung:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim docMemo As NotesDocument
   Dim rtBody As NotesRichTextItem
   
   Set db=session.CurrentDatabase
   Set view=db.GetView("vwAllDocs")
   Set doc=view.GetFirstDocument
   Do Until doc Is Nothing
      Set docMemo=New NotesDocument(db)
      docMemo.Form="Memo"
      docMemo.Principal="Remo Linter/LLB"
      docMemo.SendTo=doc.UserR
      docMemo.Subject=doc.MailThema
      
      Set rtBody=docMemo.CreateRichTextItem("Body")
      rtBody.AppendText "Hallo "
      rtBody.AppendText doc.UserR(0)
      rtBody.AppendText " !"
      
      docMemo.Send False
      
      Set doc=view.GetNextDocument(doc)
   Loop
End Sub


Gruss
Remo

Bruce Willis:

--- Zitat von: Fedaykin am 27.11.08 - 16:34:57 ---Hallo Leo
So was in diese Richtung...

--- Ende Zitat ---

Hallo Remo,

VIELEN DANK !!!

 :knuddel:

Es funktioniert!

Der Tag ist gerettet! ;)

Gruß
Leo

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete