Domino 9 und frühere Versionen > ND6: Entwicklung

Ungereimtheit bei Verwendung von ExcludeFromView

(1/2) > >>

Bille:
Hallo zusammen!

Ich lasse aus einer Datenbank einen Kalendereintrag erstellen (wir verwenden Notes 6.5.3).


--- Code: ---...
Kaldoc.AppointmentType = "0"
Kaldoc.ExcludeFromView = "D"
...

--- Ende Code ---

Das klappt soweit auch wunderbar. Nur tritt jetzt bei zwei Kollegen das Problem auf, dass die Kalendereinträge auch in der Ansicht "Gesendet" angezeigt werden. Bei allen anderen Kollegen erscheinen die Einträge nicht unter "Gesendet".

Mir sind jetzt Unterschiede in den Dokumenteneigenschaften aufgefallen. Das Feld "ExcludeFromView" enhält jeweils den Wert "D". Allerdings handelt es sich bei den "problembehafteten Kalendereinträgen" um den Datentyp "Textliste" mit Länge 5 Bytes. Bei den "funktionierenden Einträgen" ist es der Datentyp "Text" mit Länge 1 Byte.

Kann mir jemand sagen, warum das so ist, bzw. wie diese unterschiedlichen Werte zustandekommen können.
Die Maildatenbanken verwenden die gleiche Schablone und die Kalendereinträge werden auch jeweils aus der gleichen Funktion aufgerufen.

Gruß
Bille

klaussal:
Wenn beide Docs tatsächlich mit der gleichen Function erzeugt werden, dürfte es keinen Unterschied geben, ausser die Function macht irgendwo einen Schlenker. Aber mehr sagt mir meine Glaskugel nicht.

Bille:
Hallo Klaus,

es wird definitiv die gleiche Funktion aufgerufen. Nach meiner Meinung macht diese auch nirgendwo einen Schlenker. Ich hab sie unten mal komplett angehängt.


--- Code: ---Sub SY_KalendereintragErstellen(doc As NotesDocument, Benutzer As String, Datum As Variant, ZeitVon As Variant, ZeitBis As Variant)
Dim s As New NotesSession
Dim Vollname As String, x As Variant, y As Variant, dbserver As String, dbfilename As String
Vollname = SY_NamenTausch(Benutzer) & "/xxxxxx/DE"
x = SY_DBLookup("names.nsf","($VIMPeople)",Vollname,"MailServer")
y = SY_DBLookup("names.nsf","($VIMPeople)",Vollname,"MailFile")
dbfilename = y(0)
Dim ServerName As New NotesName(x(0))
dbserver = ServerName.Common
Dim db As NotesDatabase
Set db = s.GetDatabase(dbserver, dbfilename)
Dim Kaleintrag As String
Kaleintrag = "TA: " & doc.Personen(0) & " / " & doc.Kundenna(0)

If db.IsOpen Then
Print "Eintrag in Kalender wird erstellt."
Else
Call db.Open(dbserver,dbfilename)
End If
Dim Datum1 As Variant, Zeit1 As Variant, Zeit2 As Variant, Beginn As Variant, Ende As Variant
Datum1 = Datum
Zeit1 = ZeitVon
Zeit2 = ZeitBis
Beginn = Cdat(Datum & " " & ZeitVon)
Ende = Cdat(Datum & " " & ZeitBis)

Dim Kaldoc As NotesDocument
Set Kaldoc = db.CreateDocument
Kaldoc.Form = "Appointment"
Kaldoc.Subject = Kaleintrag
Kaldoc.StartDate =   Beginn
Kaldoc.EndDate = Ende
Kaldoc.StartDateTime = Beginn
Kaldoc.EndDateTime = Ende
Kaldoc.StartTime = Beginn
Kaldoc.EndTime = Ende
Kaldoc.CalendarDateTime = Beginn
Kaldoc.AppointmentType = "0"
Kaldoc.ExcludeFromView = "D"
Kaldoc.Principal = Vollname
Kaldoc.~$Alarm = 1
Kaldoc.~$AlarmDescription = Kaleintrag
Kaldoc.~$AlarmOffset = -15
Kaldoc.~_ViewIcon = 160
Kaldoc.~$PublicAccess = "1"

Dim rtitem As NotesRichTextItem
Set rtitem = Kaldoc.CreateRichTextItem("Body" )
Call rtitem.AppendText("TA: " & doc.Anlass(0))   
Call rtitem.AppendText("  -> ")   
Call rtitem.AppendDocLink(doc, "")

Call Kaldoc.Save(True, False)
End Sub

--- Ende Code ---

klaussal:
Auch bei "normalen" Kalendereinträgen ist ExcludeFromView eine Textliste wenn mehrere Werte drin stehen oder auch nur ein Textfeld (Länge 1 Byte), wenn nur "D" drin steht. Der Fehler müsste demnach woanders zu suchen sein. 

Driri:
Hi,

Schuß ins Blaue :

Schau doch mal in den Vorgaben bei den beiden betroffenen Usern nach, was dort unter Kalender/Aufgaben -> Anzeigen im Abschnitt "Kalendereinträge in Mail-Ansichten anzeigen" gesetzt ist. Per Standard ist dort z.B. die Option "Neue Besprechungseinladungen nicht in der Ansicht 'Gesendet' anzeigen" gesetzt.

Navigation

[0] Themen-Index

[#] Nächste Seite