Domino 9 und frühere Versionen > Entwicklung

einen eintrag in den Notes Kalender über...

<< < (3/3)

Selin:
Sub Click(Source As Button)
     
     
     
     Dim maildb As NotesDatabase
     Dim taskdoc As NotesDocument
     Dim rtitem As NotesRichTextItem
     
     
     Set maildb = New NotesDatabase("","")
     Call maildb.OpenMail
     If Not maildb.IsOpen Then
           Messagebox "Mail-Datenbank kann nicht geöffnet werden." + Chr$(10) + "Es wird keine Aufgabe erstellt.", 16, "Adressen"
           Exit Sub
     End If  'If Not maildb.IsOpen Then
     
'Neue Aufgabe erstellen
     Set taskdoc = New NotesDocument(maildb)
     taskdoc.Form = "Task"
     Call taskdoc.ComputeWithForm(True, True)
     
       taskdoc.StartDate =  doc.Wann_er
     

     
'Anlegen und füllen des Richtextfeldes für die Aufgabenbeschreibung
     Set rtitem = taskdoc.CreateRichTextItem("Body" )
     Call rtitem.AppendText("Hier steht die Aufgaben-Beschreibung")  'Kann ich den Inhalt der Aufgabenbeschreibung nicht auch mit doc.feldname in den Body übergeben?
     
     Call taskdoc.Save(True,False)
     
End Sub

Axel:
Hi,

den Teil hast du vergessen:


--- Zitat ---

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc AS NotesDocument

'Zugriff auf das aktuelle Dokument  
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document


--- Ende Zitat ---



--- Zitat ---
Call rtitem.AppendText("Hier steht die Aufgaben-Beschreibung")  'Kann ich den Inhalt der Aufgabenbeschreibung nicht auch mit doc.feldname in den Body übergeben?  

--- Ende Zitat ---



Das funktioniert so:

Call rtitem.AppendText(doc.feldname(0))  

Axel

Selin:
super, dankeschön. Hat prime funktioniert

Navigation

[0] Themen-Index

[*] Vorherige Sete