Domino 9 und frühere Versionen > ND6: Entwicklung

Doclink in Reminder einfügen per LS

<< < (2/3) > >>

Alexis:
Hallo Driri,

das war's.

Vielen Dank für den Tipp.

Alexis

Alexis:
Hallo Forum,

leider ist der Fall doch noch nicht abgeschlossen.

Die Verbindung mit einem Task-Eintrag klappt, ich möchte aber einen Reminder-Eintrag generieren. Also setze ich Form = "Appointment" und AppointmentType = "4" (siehe Code). Nun erhalte ich die vielsagende Fehlermeldung: Validation failed.

Dim rtitem As NotesRichTextItem
         Dim maildb As NotesDatabase
         Dim Mailbox As String
         Dim uidoc As notesuidocument
         Dim doc As NotesDocument
         Dim workspace As notesuiworkspace
         Dim currentdoc As NotesDocument
         Set workspace = New notesuiworkspace
         Set uidoc = workspace.currentdocument  
         Set doc = uidoc.Document  
         
         ID=source.FieldGetText("ID_Owner")      
         Mailbox="Mail\ABC" & ID & ".NSF"
         
'Prüfen ob Mail-DB vorhanden
         Set maildb = New NotesDatabase("Mail007.XYZ.COM","Mailbox")
         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 = "Appointment"
taskdoc.appointmenttype = "4"

         Call taskdoc.ComputeWithForm(True, True)
         
         taskdoc.Subject = "Aufgabe zu einem Vorgang"
         
'Anlegen und füllen des Richtextfeldes
         Set rtitem = taskdoc.CreateRichTextItem("Body" )
         Call rtitem.AppendText("Hier kommt der Doclink")  
         Call rtitem.AddNewLine(2)
         Call rtitem.AppendText("Vorgang -> ")  
         Call rtitem.AppendDocLink(doc, "Dokumentenlink")
         
         Call taskdoc.Save(True,False)

Weiss jemand den Grund?

Alexis

Axel:
Hi,

Wann erhälst du den die Fehlermeldung? Bestimmt beim Speichern, richtig?

Wahrscheinlich ist eines der Felder nicht oder nicht richtig gefüllt. Wie ich das sehe, hast du mein Beispiel fast 1-zu-1 übernommen. Da das aber nur ein Beispiel für das einfügen eines Doclinks war fehlen da noch so einige Felder.

In deinem ersten Posting hast du ja noch so Felder wie DueDate, StartDate und AppointmentType gesetzt. Versuche mal die Felder entsprechend zu setzen.

Axel

Alexis:
Hallo Axel,

Dein Code war mir grad recht!

Beim Experimentieren ging's mir drum:

1. Statt Task-Eintrag den Reminder-Eintrag (AppointmentType=4) zu generieren. Beim ersteren habe ich keinerlei Probleme gesehen.

2. Einige Felder zu übergeben.

Ich werde Deinem Rat folgend alle Felder noch einmal in Ruhe checken, erst Recht ob es sich dabei um Mussfelder handelt.

Alexis

Alexis:
Hi @all,

die Krux lag an der Übergabe der Datumsfelder! Die Formatierung ist (für mich) wirklich ein Buch mit 7 Siegeln.

Allen Tippgebern ein Dankeschön. Meine Aufgabenstellung ist nunmehr bestens gelöst.

alexis

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete