OK, hier der Code:
Betrifft = die Namen, für die die Aufgabe erstellt wurde,
Angenommen = derjenige, der die aufgabe angenommen hat.
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim mail As NotesDocument
Dim RTItem As NotesRichTextItem
Set db = ses.CurrentDatabase
Set doc = ses.DocumentContext
If doc.GetItemValue ("Angenommen") = "" Then
mail.SendTo = Betrifft
Else
mail.SentTo = Angenommen
End If
If doc.IsNewNote = True Then
mail.Subject = "Neue Aufgabe"
RTItem.AppendText ("Es gibt eine neue Aufgabe!")
Call RTItem.AddNewline (1)
Call RTItem.AppendDocLink (doc, "Hier klicken!")
Else
mail.Subject = "Aufgabenänderung"
RTItem.AppendText ("Eine Aufgabe hat sich geändert!")
Call RTItem.AddNewline (1)
Call RTItem.AppendDocLink (doc, "Hier klicken!")
End If
mail.Body = RTItem
mail.Send (False)