Domino 9 und frühere Versionen > Entwicklung

Aktuelles Dokument im Web

<< < (2/2)

Centaury:
OK, hier der Code:

Betrifft = die Namen, für die die Aufgabe erstellt wurde,
Angenommen = derjenige, der die aufgabe angenommen hat.


--- Code: ---   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)

--- Ende Code ---

Meff:
Kann es sein, dass der Fehler in der Deklarierung des RichTextItems liegt ?
Ausserdem solltest Du bei der ersten Prüfung die Werte für das Feld SentTo in Hochkomma setzten.

Meff

Glombi:
Du musst mail noch setzen:
set mail = db.CreateDocument

Ausserdem muss es statt
mail.SentTo = Angenommen

mail.SendTo = Angenommen
heissen!

Das RTItem muss Du auch noch setzen...

Gruss
Andreas

ata:
... oder übergibst du fehlenden Variablen bereits irgendwie - denn sonst gibt es dem nichts hinzuzufügen...

ata

Navigation

[0] Themen-Index

[*] Vorherige Sete