Hallo zusammen!
Ich lasse aus einer Datenbank einen Kalendereintrag erstellen (wir verwenden Notes 6.5.3).
...
Kaldoc.AppointmentType = "0"
Kaldoc.ExcludeFromView = "D"
...
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
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.
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