title image


Smiley Re: Hat jemand einen Tipp zur Umsetzung??
Hallo Smartie,



ungefähr so:



Dim db As NotesDatabase

Dim collection As NotesDocumentCollection

Dim Doc As NotesDocument

Dim Doc1 As NotesDocument

Dim Body1 As NotesRichTextItem

Dim recipients( 1 To 1 ) As String

Dim item As NotesItem

Dim benachrichtigt As String

Dim dateTime As New NotesDateTime("01/01/03")



recipients( 1 ) = "Gruppe"



Set db = session.CurrentDatabase



Set collection = db.search("@Isavailable(benachrichtigt)=0" , dateTime, 0)

Set Doc = collection.GetFirstDocument()



While (Not Doc Is Nothing)



Set item = Doc.GetFirstItem("benachrichtigt")

If (item Is Nothing) Then



Call Doc.ReplaceItemValue("benachrichtigt", "1")

Call Doc.Save(True, False)



Set Doc1 = db.CreateDocument

Set Body1 = New NotesRichTextItem(Doc1, "Body")

Doc1.SendTo = recipients

Doc1.Subject = "Titel"



Call Body1.AddNewLine(2)

Call Body1.AppendText("Text!")

Call Body1.AddNewLine(2)

Call Body1.AppendText("Text")

Call Body1.AddNewLine(2)

Call Body1.AppendText("Text-----> ")



Call Body1.AppendDocLink( Doc, Doc.Subject( 0 ) )

Call Doc1.Send(False)



End If

Set Doc = collection.GetNextDocument(Doc)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: