Kalendereintrag - Besprechung soll als Entwurf abgelegt werden

[Lutzw]

Hallo,

vieleicht kann mir jemand den entscheiden Tipp geben. Ich erzeuge per LotusScript ein Besprechungsdokument. Funktioniert wunderbar - es soll aber die Funktionalität haben, als wenn es "als Entwurf speichern" abgelegt wäre.
ich habe auch die entsprechende Einstellungen als Formelsprache gefunden.
MEMO_DRAFT:="4096";@SetField("ActionInProgress";MEMO_DRAFT);

aber, wie könnte ich das entsprechend mit LotusScript umsetzen?

zur besseren Erkärung - mein Quellcode:

Code

' Termin erstellen
	Dim termin As New NotesDocument(maildb)
	Dim terminName  As New NotesName(User)
	Dim StartDatum As New NotesDateTime(sStartDate & " " & sStartTime)
	Dim EndDatum As New NotesDateTime(sEndDate & " " & sEndTime)
	Dim item As NotesItem
	
	With termin
		.location = Location
		.Subject = Subject
		Set item = New NotesItem(termin, "$AltPrincipal", session.UserName, NAMES)
		Set item = New NotesItem(termin, "AltChair", session.UserName, NAMES)
		Set item = New NotesItem(termin, "Principal", session.UserName, NAMES)
		
		Dim TBody As New NotesRichTextItem(termin, "Body")
		TBody.AppendText Body
		
		Set .~$NoPurge =  EndDatum
		Set .CalendarDateTime = StartDatum
		Set .StartDate = StartDatum
		Set .StartDateTime =  StartDatum
		Set .StartTime =  StartDatum
		Set .EndDate =  EndDatum
		Set .EndDateTime =  EndDatum
		Set .EndTime =  EndDatum
		
		.~$Alarm = 1
		.~$AlarmMemoOptions = ""
		.~$AlarmOffset = -60
		.~$AlarmSendTo = ""
		.~$BusyPriority = "1"
		.~$CSVersion = "2"
		.~$LangChair = ""
		.~$LangPrincipal = ""
		.~$PublicAccess = "1"
		.Alarms = "1"
		.~_ViewIcon = 58
		.AppointmentType = "3"	'Besprechung
		.Chair = sLeitung 		' Leitung
		.RequiredAttendees= sTeilnehmer' Erforderliche Beteiligte
		.SendTo =sTeilnehmer
	                .Categories = sKategorie
		.Form = "Appointment"

		Dim exclude ( 1 To 2 ) As String
		exclude(1) = "D"
		exclude(2) = "S"
		.ExcludeFromView = exclude
		.Save True, True
	End With

Danke und Gruss
Lutz

[ghost]

Indem Du das Feld ActionInProgress auf "4096" setzt.

Call termin.ReplaceItemValue("ActionInProgress", "4096")

oder so ähnlich.

Viele Grüße
ghost

[ghost]

Aber ist es nicht so, dass die Felder $BusyPriority und PostedDate nicht gesetzt sein dürfen?

Viele Grüße
ghost

[Lutzw]

Hi Chost,

Call termin.ReplaceItemValue("ActionInProgress", "4096") hatte ich schon vorher ausprobiert, zeigte aber auch nicht die gewünschte Wirkung.

$BusyPriority habe gerade mal rausgenommen, das war´s auch nicht.

Gruss Lutz

[Glombi]

Anbei ein Screenshot, den ich mit Teamstudio Delta (Delta of 2 Documents) erstellt habe.
Links = Entwurf | Rechts = Gesendet

Die aktuellen Feldwerte stehen in den eckigen Klammern, damit sollte ersichtlich sein, welche Felder wie gesetzt sein müssen.

Andreas

[Glombi]

Besonderen Augenmerk würde ich auf
MailOptions ( = "0" bei Entwurf) und

_ViewIcon werfen. Dieses Item ist bei einem Entwurf nicht da!

Andreas

[LN4ever]

Um die MilOptions wieder von "0" wegzubekommen (damit die Einladung zur Besprechung dann versendet wird) braucht es aber Klimmzüge (zweimaliges Ändern des Typs des Kalendereintrags).

Wenn man sich die Maske für den Kalendereintrag einmal anschaut, sieht man recht schnell ziemlich deutlich, daß dort die Einladung nicht als Entwurf bzw. ohne Versendung vorgesehen ist (zumindest, solange man chair ist, kann man nicht SPEICHERN ohne zu versenden).

Füll alle Felder aus, speichere das als TERMIN - und sag den Anwendern, daß sie es auf Besprechung ändern müssen, damit es klappt. Beim Wechsel von TERMIN auf BESPRECHUNG werden die MAILOPTIONS dann auch von "0" auf "1" gesetzt.