Out of Office automatisierung

[bluepoint]

Hallo Leute , gibt es eine möglichkeit den O-O-O agent zu automatisieren?
Ich arbeite in ständigwechselden Projekten, so das angebracht wäre den ooo kurzfristig zu aktivieren/deaktivieren gibt es da etwas in der art eines smarticons o.ä??
eingesetzt wird r4.5.x , r5.0.10 und r 6

[bluepoint]

Habs selbst hinbekommen :-)
Menu Erstellen / Gestaltung / Agent
Agentname = "Bin heute weg"
"Wann soll dieser Agent gestartet werden?" = "Manuell aus dem Menue Aktionen
"Fuer welche Dokumente soll er gelten?" = "Einmal ausfuehren (..."
"Was soll dieser Agent ausfuehren?" = "Lotus Script"
Declaration
Const nachricht = |

ich bin heute nicht im Buero.



Mit freundlichen Gruessen,
|
Const sign = |

|
Const subj1 = "...  ist nicht im Büro vom "
Const subj2 = " bis zum "
Const subj3 = "  (mit Zusatzinformation)"

Sub Initialize
     Dim s As New notessession
     If s.effectiveusername = s.currentdatabase.getprofiledocument("CalendarProfile").Owner(0) Then
          Print "Current User is the Owner of Current Database"
          Dim pk As notesdatabase    
          Set pk = s. currentdatabase
          Dim ooo As New notesdocument ( pk)
          With ooo
               .From=s.effectiveusername
               .Form="OutOfOffice"
               .Type="OutOfOffice"
               .TargetDBName=Evaluate("@MailDbName")
               .DelegatorName=s.effectiveusername
               .OOOService="NOT"
               .StartDate=Fix(Date)+1/12 ' 2:00 Uhr
               .EndDate=Fix(Date)+23/24 ' 23:00 Uhr
               .StartDateTime=Fix(Date)+1/12 ' 2:00 Uhr
               .EndDateTime=Fix(Date)+23/24 ' 23:00 Uhr
               .AbsentBody = nachricht & s.commonusername & sign
               .AbsentSubject = subj1 & Format$(Date, "Short Date") & subj2 & Format$(Date, "Short Date") & subj3
               Call .save(1,0)
          End With
     End If
End Sub