Abwesenheitsagent

[Schdrubbi]

nein, ich teste die ganze zeit mit einem existierenden mailfile

[Driri]

Der Vorgabewert für das Feld zieht nicht, wenn das Dokument schon erstellt wurde. Du müßtest also schon in einer neuen DB testen oder das Profildokument löschen und neu erzeugen.

[Schdrubbi]

und wo finde ich das profildokument ?

[Driri]

Da kommst Du so direkt nicht dran. Das müßte dann schon per Script gekillt werden.

Funktionierts denn überhaupt, wenn Du mit dem Template eine neue Datenbank erstellst ?

[Schdrubbi]

Nein, funktioniert auch nicht. Wenn du sagst, das funktioniert mit einer vorhandenen Dtaenbank nicht, müsste das dann nicht genauso sein, wenn ich in einer vorhandenen DB den Vorgabewert für z.B. ReturnReciept ändere? Weil das funktioniert nämlich

[Lossa]

nein, wenn du noch nie eine Abwesenheit aktiviert hast, dann gibt es dazu kein Profildokument und dann ist der Schalter den du geändert hast dann automatisch aktiviert. Du hast aber doch schon einmal eine Abwesenheit erfasst, und wie du siehst sind deine letzten Angaben vorhanden. Diese Info kommt eben aus dem Profil.
Deine Änderung greift nur, wenn du kein Profil hast, für deine bestehenden User bedeutet das, du müsstest bei allen das Profil löschen und dann würde beim nächsten mal der Schalter aktiviert sein.

[Schdrubbi]

Nun sind wir wieder beim profil löschen. Wie mache ich das? Weil das ganze soll ja für alle User gelten und nicht nur für neu angelegte mit der neuen geändetren Schablone

[Lossa]

Dazu brauchst du ein kleines Script, das kannst du per Mail in einer Schaltfläche an alle User versenden, oder du kannst es in einen Agenten stecken der über alle Maildatenbanken rennt und dieses Profil löscht.

hier ein Beispiel für, löschen des Profils in der aktuellen DB

Dim s as New NotesSession
Dim db as NotesDatabase
Dim doc As NotesDocument
Set db = s.CurrentDatabase
set doc = db.GetProfileDocument("(EditOfficeProfile)")
If not doc is nothing then
call doc.Remove(true)
EndIf

und weg ist das Profil.

[Schdrubbi]

Habe es nun so eingestellt, dass das profil jedesmal gelöscht wird, wenn mein Mailfile geschlossen wird. Dies wird bestätigt durch eine kleine Messagebox, die ich eingebaut habe. Also das Skript wirtd wirklich ausgeführt.
Nun habe ich zwar immer noch die Werte drin im Out Of Office Profil, nur der Haken ist immer noch nicht gesetzt...

[Lossa]

Hi,

entschuldige bitte es muss
OutOfOfficeProfile
und nicht
(EditOfficeProfile)

[Schdrubbi]

So, Skript geändert...funktioniert aber leider immer noch nicht. Noch irgendwelche Ideen?

[Driri]

Besorg dir mal NotesPeek und schau damit mal ins OoOProfil rein.

NotesPeek ND6

Btw : Du solltest das später auf jeden Fall wieder deaktivieren, daß beim Schließen des Mailfiles das Profil gekillt wird. Sonst ists Essig mit dem OoO 

[Schdrubbi]

Habe mir das Profil angeschaut, bei ExcludeInternetEmail steht als Vlaue nur "" drin, sonst nichts

[Driri]

Wird das Profil denn gelöscht, wenn Du das Script ausführst ?

[Schdrubbi]

jetzt wo du es sagst...nee, ist immer noch ein OoO Profil drin wenn mit notespeek nachschaue

[Driri]

Gib mal noch nen Print mit aus :

Dim s as New NotesSession
Dim db as NotesDatabase
Dim doc As NotesDocument
Set db = s.CurrentDatabase
set doc = db.GetProfileDocument("OutOfOfficeProfile")
If not doc is nothing then
  call doc.Remove(true)
  Print "Profil gelöscht"
Else
  Print "Kein Profil gefunden"
EndIf

[Schdrubbi]

wo soll diese meldung denn auftauchen?

[Driri]

In der Statuszeile des Clients.

[Schdrubbi]

nach 2-mailgem neustart von lotus notes wurde endlich profil gelöscht. nun scheint dies immer zu funktionieren...

nun ist auch der haken aktiv und ausgegraut. habe es mit 2 weiteren usern getestet, dort hat es auch funktioniert.

danke für eure hilfe.

[Driri]

Gerne. Denk aber dran, das Löschen des Profils beim Schließen der DB auszubauen. Sonst funktioniert der OoO später nicht, weil jedesmal das Profil gekillt wird.