Kalendereintrag selbst gestalten

[Don Pasquale]

Hallo Leute,

Ich habe mir aus eknori´s Schatzkiste die Wiedervorlage eingebaut, allerdings möchte ich den Eintragstyp und das Icon im Kalender selbst gestalten, aber LoNo weigert sich hartnäckig.

Wo kann ich etwas über die folgenden Parameter erfahren ?
Ich würde gerne diese Zeile hardkodiert auf 7 Uhr setzen
         .StartTime = dateTime.lsLocaltime

Code

      With reminderDoc
         .Form = "Appointment" 
         .ReplaceItemValue "$Alarm", 1
         .ReplaceItemValue "$AlarmDescription", popUpStr
         .ReplaceItemValue "$AlarmMemoOptions", ""
         .ReplaceItemValue "$AlarmOffset", 0
         .ReplaceItemValue "$AlarmUnit", "M"
         .ReplaceItemValue "ViewIcon", "67"
'         .ReplaceItemValue "ViewIcon", "11"  scheint keinen Einfluss zu haben 
         .ReplaceItemValue "ExcludeFromView", "D"
         .ReplaceItemValue "NoticeType", "R"
         .ReplaceItemValue "tmpDoNotProcess", "1" 
         .Subject = subjectStr
         .Alarms = "1"
         .CalendarDateTime = dateTime.lsLocalTime
         .StartDate = dateTime.lsLocaltime
         .StartTime = dateTime.lsLocaltime
         .StartDateTime = dateTime.lsLocaltime
         .EndDate = dateTime.lsLocaltime
         .EndTime = dateTime.lsLocaltime
         .EndDateTime = dateTime.lsLocaltime
         .AppointmentType = "4"            ' hier geht wohl nur 0 bis 4

[Don Pasquale]

Soviel weiss ich bis jetzt :

.ReplaceItemValue "$Alarm", 1        
.ReplaceItemValue "$AlarmDescription", popUpStr   Beschreibung (für Mail)

.ReplaceItemValue "$AlarmMemoOptions", ""
.ReplaceItemValue "$AlarmOffset", X         Mail Erinnerung X Minuten vorher

.ReplaceItemValue "$AlarmUnit", "M"
.ReplaceItemValue "ViewIcon", "67"
.ReplaceItemValue "Location", "XYZ"            Ort/Raum : erscheint auch im PopUp

.ReplaceItemValue "ExcludeFromView", "D"
.ReplaceItemValue "NoticeType", "R"
.ReplaceItemValue "tmpDoNotProcess", "1"
.Subject = subjectStr                                     Thema
.Alarms = "1"                                                 1 mit Mail Erinnerung  <> 1 Ohne


.CalendarDateTime = dateTime.lsLocalTime
.StartDate = dateTime.lsLocaltime
.StartTime = dateTime.lsLocaltime
.StartDateTime = dateTime.lsLocaltime
.EndDate = dateTime.lsLocaltime
.EndTime = dateTime.lsLocaltime
.EndDateTime = dateTime.lsLocaltime

.AppointmentType = "4"                0: Termin  
                                                      1: Jahrestag
                                                      2: Ganztägige Veranstaltung
                                                      4: Erinnnerung
                                                      3: Besprechung

[Don Pasquale]

Hallo Leute,
ich will es noch ein letztes Mal probieren,

ich kann zwar Termine generieren, kann aber das Icon nicht beeinflussen.
Dabei ist diese zeile doch eindeutig:
 .ReplaceItemValue "ViewIcon", "67"

Auch diese Einstellung scheint nirgendwo dokumentiert, das Feld kann ich in der Maske Appointment nicht finden:
.ReplaceItemValue "NoticeType", "R"

Wer weis Rat ?

Ciao

Don Pasquale

[Bastlwastl]

Wenn man per LS das Icon setzten will, dann muß man das so machen:

Dim ICON As NOTEsItem   
Set Icon = New NotesItem ( NEWDOC , "_ViewIcon" , 83 ) ' Icon = Daumenhoch
ICON.IsSummary = True     

Zwei Dinge sind dabei wichtig, erstmal der Feldname und dann die Feldeigenschaft!