Hier ist es nun, mein eigenes Script.
Diese Seite beinhaltet alle Relevanten Informationen zu dem Script sowie das Change Log. Selbstverständlich kann das Script hier auch als *.zip-Datei heruntergeladen werden :)
Out of Office Tool 2.3 (90.3 KiB)
Out of Office Tool 2.3 (o. *.exe) (46.5 KiB)
Out of Office Tool 2.2 (o. *.exe) (45.1 KiB)
Out of Office Tool Version 2.2 (87.0 KiB)
Out of Office Tool Version 2.1 (92.6 KiB)
Out of Office Tool Version 2.1 (o. *.EXE) (47.8 KiB)
Out of Office Tool Version 2.0 (228.0 KiB)
 |
 |
Der Leser Stafan hat noch folgenden Hinweis für die Verwendung auf Windows 8.1 x64 Systemen:
Das Problem scheint hauptsächlich mit der .dll Datei zusammen zu hängen, ich habe den Folgenden Schritt jedoch für die .dll, .config, .ps1 und .ini ausgeführt: Rechtsklick auf die jeweilige Datei –> Eigenschaften –> Unten der Button „Diese Datei stammt von einem anderen Computer…“ –> Zulassen
Danke Stefan :)
<# Exchange Server / O365 Out of Office Tool 2.3 © Andres Sichel // asichel.de // blog@asichel.de Hilft bei der Konfiguration von Abwesenheitsnachrichten für Benutzer mit Mailboxen auf einem Exchange Server 2010 / 2013 / 2016 / O365 Changelog 2.3: - Sprachauswahl der GUI (EN oder DE) - Language selection (EN or DE) - Code aufgeräumt - Liste mit allen Mailboxen mit aktiven Out Of Office Changelog 2.2: - Benutzerliste wird geldaen (Nur Mailboxen von 2007 & höher werden berücksichtig) - Fehlerbeseitigung und ProgressBar - Neues Icon - Variablen mit Start-OU für Benutzerlisten (Settings.ini) - Weiterleitung kann konfiguriert werden - Login nach Office 365 implementiert (Settings.ini) - Start der Anwendung optimiert, nur noch .Net4 oder höher - Code aufgeräum / optimiert - Zugehörige Dateien: - GvS.Controls.HtmlTextbox.dll - icon.ico - settings.ini - exit.png - OOO_2.2.exe - aktiv.png - inaktiv.png Changelog 2.1: - Benutzerliste wird geldaen (Nur Mailboxen von 2007 & höher werden berücksichtig) - Fehlerbeseitigung und ProgressBar - Benutzerliste kann auf Knopfdruck neu erzeugt werden um evtl. neue Mailboxen vorzuschlagen - Tool kann in die Infosymbolleiste minimiert werden - Neues Icon - Variablen mit Servernamen und anmeldung (Settings.ini) - Start der Anwendung optimiert - Je nach Anzahl der Benutzer kann der Start dauern! - Code aufgeräum / optimiert - Zugehörige Dateien: - GvS.Controls.HtmlTextbox.dll - icon.ico - settings.ini - exit.png - OOO_2.2.exe #>
# Ausführungspfad wichtig für die HTML DLL GvS.controls muss im Pfad vom Script liegen
$scriptRoot = [System.AppDomain]::CurrentDomain.BaseDirectory.TrimEnd('\')
if ($scriptRoot -eq $PSHOME.TrimEnd('\'))
{
$scriptRoot = $PSScriptRoot
}
#########################################################################################################################################
# Systembibliotheken laden
[Reflection.Assembly]::LoadFile("$scriptRoot\GvS.Controls.HtmlTextbox.dll")
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[void][reflection.assembly]::Load("mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
[void][reflection.assembly]::Load("System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
[void][reflection.assembly]::Load("System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
[void][reflection.assembly]::Load("System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
[void][reflection.assembly]::Load("System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a")
[void][reflection.assembly]::Load("System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
[void][reflection.assembly]::Load("System.DirectoryServices, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a")
[void][reflection.assembly]::Load("System.Core, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
[void][reflection.assembly]::Load("System.ServiceProcess, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a")
#########################################################################################################################################
#INIfile laden
function Get-IniContent ($scriptRoot)
{
$ini = @{}
switch -regex -file $scriptRoot
{
"^\[(.+)\]" # Section
{
$section = $matches[1]
$ini[$section] = @{}
$CommentCount = 0
}
"^(;.*)$" # Comment
{
$value = $matches[1]
$CommentCount = $CommentCount + 1
$name = "Comment" + $CommentCount
$ini[$section][$name] = $value
}
"(.+?)\s*=(.*)" # Key
{
$name,$value = $matches[1..2]
$ini[$section][$name] = $value
}
}
return $ini
}
$globalsettingsfile = "$scriptRoot\settings.ini"
$inifile = get-inicontent "$globalsettingsfile"
#########################################################################################################################################
#Werte aus der Settings.INI einlesen und weitere globale Variablen
# Yes & No und der Haken "Anmledung mit aktuellem benutzer" ist bereits beim start des Programms gesetzt - Wird bei O365 ingoniert
# Steht hier Yes kann der Wert im programm nicht geändert werden
$LoggedOnUser = $inifile.LogonSettings.LoggedOnUser
# Ist der Servername gesetzt muss dieser nicht immer angegeben werden,
# ist hier ein Wert vergeben kann dieser im Programm nicht geändert werden
$SetServername = $inifile.LogonSettings.SetServername
# Wenn Yes müssen beide obrigen werte gesetzt sein da es sonst zum fehler kommt.
# Andernfalls wird die Anmeldung ausgeführt sobald das Programm startet
$LogOnatStart = $inifile.LogonSettings.LogOnatStart
#Anmeldung an Office 365, OU muss leer sein anedere werte werden ignoriert
$LogOntoO365 = $inifile.LogonSettings.O365
#Display language - Anzeigesprache konfigurieren
$DisplayLang = $inifile.LogonSettings.DisplayLang
# Gibt an aus welcher OU die Benutzer eingelesen werden, wenn der Wert "0" ist werden alle Benutzer geladen (OU muss eindeutig sein!)
# nicht gültig für Office 365, da muss der wert leer sein
$OU = $inifile.LogonSettings.OrganizationalUnit
# Globale Variable für die versionsnummer
$VersionNumber ="2.3"
#########################################################################################################################################
#Ladebalkenfenster für ersten Start anzeigen (Benutzer werden geladen)
$Icon = [system.drawing.icon]::ExtractAssociatedIcon("$scriptRoot\icon.ico")
$Font = New-Object System.Drawing.Font("Arial",10,[System.Drawing.FontStyle]::Regular)
$Fenster0 = New-Object System.Windows.Forms.Form
$Fenster0.Size = New-Object System.Drawing.Size(890,710)
$Fenster0.Height = 100
$Fenster0.Width = 500
$Fenster0.Text = "Out of Office Tool Version $VersionNumber $MsgLoadUser"
$Fenster0.StartPosition = "CenterScreen"
$Fenster0.BackColor = "#B2E4FF"
$Fenster0.Icon = $Icon
$Fenster0.Font = $Font
$Fenster0.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedSingle
#########################################################################################################################################
# Hauptfensterfenster erstellen und konfigurieren
$Fenster1 = New-Object System.Windows.Forms.Form
$Fenster1.Size = New-Object System.Drawing.Size(890,710)
$Fenster1.MaximumSize = "890,710"
$Fenster1.MinimumSize = "890,710"
$Fenster1.Text = "Exchange Server / O365 Out of Office Tool Version $VersionNumber © Andres Sichel"
$Fenster1.StartPosition = "CenterScreen"
$Fenster1.BackColor = "#B2E4FF"
$Fenster1.Icon = $Icon
$Fenster1.Font = $Font
$Fenster1.WindowState = "Normal"
$Fenster1.add_SizeChanged({Minimieren})
$Fenster1.KeyPreview = $True #Enter drücken zulassen (nur für Benutzerabfragen)
$Fenster1.Add_KeyDown({if ($_.KeyCode -eq "Enter"){Abfrage}})
$Fenster1.Add_KeyDown({if ($_.KeyCode -eq "Escape"){Abmelden}}) # Mit Escape wird Abmelden ausgeführt und das Fenster wird geschlossen
#########################################################################################################################################
# Minimieren funktion einbauen
#Kontextmenü für Icon erstellen
$Kontext = New-Object System.Windows.Forms.ContextMenu
$KontextExit = New-Object System.Windows.Forms.MenuItem
$KontextInfo = New-Object System.Windows.Forms.MenuItem
$KontextExit.Text = "Exit"
$KontextExit.Index = 1
$KontextExit.add_Click({$NotifyIcon.Visible = $False,$Fenster1.close()})
$KontextInfo.Text = "Info"
$KontextInfo.Index = 2
$KontextInfo.add_Click({ShowInfo})
# NotifyIcon erstellen, erscheint wenn Fenster minimiert worden ist
$NotifyIcon = New-Object System.Windows.Forms.NotifyIcon
$NotifyIcon.Icon = $Icon
$NotifyIcon.Visible = $false
$NotifyIcon.add_Click({Iconclick})
$NotifyIcon.Text = "Out of Office Tool $VersionNumber"
$NotifyIcon.BalloonTipTitle = "Out of Office Tool $VersionNumber"
$NotifyIcon.BalloonTipIcon = "Info"
$NotifyIcon.ContextMenu = $Kontext
$NotifyIcon.ContextMenu.MenuItems.AddRange($KontextInfo)
$NotifyIcon.ContextMenu.MenuItems.AddRange($KontextExit)
function ShowInfo
{
$Fenster1.Hide()
$Fenster2 = New-Object System.Windows.Forms.Form
$Fenster2.Size = New-Object System.Drawing.Size(300,300)
$Fenster2.MaximumSize = "300,300"
$Fenster2.MinimumSize = "300,300"
$Fenster2.Text = "Out of Office Tool $VersionNumber Info"
$Fenster2.StartPosition = "CenterScreen"
$Fenster2.BackColor = "#B2E4FF"
$Fenster2.Icon = $Icon
$Fenster2.Font = $Font
$Fenster2.WindowState = "Normal"
#Text1
$Text3 = New-Object System.Windows.Forms.Label
$Text3.Location = New-Object System.Drawing.Size(20,20)
$Text3.Size = New-Object System.Drawing.Size(240,150)
$Text3.Text = "Out of Office Tool
Erstellt von Andres Sichel
blog@asichel.de
Version $VersionNumber"
$Text3.TextAlign = "MiddleCenter"
$Fenster2.Controls.Add($Text3)
$FontB = New-Object System.Drawing.Font("Arial",14,[System.Drawing.FontStyle]::Regular)
$CloseInfo = New-Object System.Windows.Forms.Button
$CloseInfo.Location = New-Object System.Drawing.Size(90,200)
$CloseInfo.Size = New-Object System.Drawing.Size(100,30)
$CloseInfo.Text = "OK"
$CloseInfo.BackColor = "#0064AF"
$CloseInfo.font = $FontB
$CloseInfo.foreColor = "White"
$CloseInfo.Add_Click({$Fenster2.Close()})
$Fenster2.Controls.Add($CloseInfo)
$Fenster2.Add_Shown({$Fenster2.Activate()})
[void] $Fenster2.ShowDialog()
}
function Minimieren
{
if($Fenster1.WindowState -eq [Windows.Forms.FormWindowState]"Minimized")
{
$Fenster1.Hide()
$NotifyIcon.Visible = $True
$NotifyIcon.ShowBalloonTip(5000)
}
}
function IconClick
{
if($Fenster1.Visible)
{
$Fenster1.Hide()
}
else
{
$Fenster1.Show()
$Fenster1.WindowState = [Windows.Forms.FormWindowState]"Normal"
}
}
#########################################################################################################################################
#Globale Objekte erstellen
$progressBar1 = New-Object System.Windows.Forms.ProgressBar
$TextProgressBar = New-Object system.Windows.Forms.Label
$GroupBox1 = New-Object System.Windows.Forms.GroupBox
$GroupBox2 = New-Object System.Windows.Forms.GroupBox
$GroupBox3 = New-Object System.Windows.Forms.GroupBox
$GroupBox4 = New-Object System.Windows.Forms.GroupBox
$GroupBox5 = New-Object System.Windows.Forms.GroupBox
$GroupBox6 = New-Object System.Windows.Forms.GroupBox
$GroupBox7 = New-Object System.Windows.Forms.GroupBox
$UserName = New-Object System.Windows.Forms.Combobox
$Abfrage = New-Object System.Windows.Forms.Button
$ReportGrid = New-Object System.Windows.Forms.Button
$TextExtern = New-Object System.Windows.Forms.Label
$TextZeitStart = New-Object System.Windows.Forms.Label
$TextZeitEnde = New-Object System.Windows.Forms.Label
$About1 = New-Object System.Windows.Forms.Label
$ServerName = New-Object System.Windows.Forms.Textbox
$Login = New-Object System.Windows.Forms.Button
$WindowsUser = New-Object System.Windows.Forms.CheckBox
$Speichern = New-Object System.Windows.Forms.Button
$Abmelden = New-Object System.Windows.Forms.Button
$BenutzerLaden = New-Object System.Windows.Forms.Button
$HTMLForm1 = New-Object GvS.Controls.HtmlTextbox
$HTMLForm2 = New-Object GvS.Controls.HtmlTextbox
$RadioDisabled = New-Object System.Windows.Forms.RadioButton
$RadioDisabled.Checked = $true
$RadioEnabled = New-Object System.Windows.Forms.RadioButton
$Extern = New-Object System.Windows.Forms.CheckBox
$ExternKontakte = New-Object System.Windows.Forms.RadioButton
$ExternAlle = New-Object System.Windows.Forms.RadioButton
$Zeit = New-Object System.Windows.Forms.CheckBox
$ZeitStart = New-Object System.Windows.Forms.DateTimePicker
$DatumStart = New-Object System.Windows.Forms.DateTimePicker
$ZeitEnde = New-Object System.Windows.Forms.DateTimePicker
$DatumEnde = New-Object System.Windows.Forms.DateTimePicker
$Ausgabe1 = New-Object System.Windows.Forms.Label
$ExitBild = New-Object System.Windows.Forms.PictureBox
$StatusBild = New-Object System.Windows.Forms.PictureBox
$ToolTip = New-Object System.Windows.Forms.ToolTip
$Weiterleitung = New-Object System.Windows.Forms.CheckBox
$WeiterleitungMail = New-Object System.Windows.Forms.ComboBox
$WeiterleitungMailKopie = New-Object System.Windows.Forms.CheckBox
$TextWeiterleitung = New-Object System.Windows.Forms.Label
#########################################################################################################################################
#GUI text / Display language
if ($DisplayLang -eq "de")
{
<# statische texte #>
$NotifyIcon.BalloonTipText = "Out of Office Tool wurde minnimiert, Klick zum öffnen"
$GroupBox1.Text = "Zusatzoption bei aktiven Out of Office"
$GroupBox2.Text = "Verbindungs / Benutzeroptionen"
$GroupBox3.Text = "Out of Office Status abfragen / setzen"
$GroupBox4.Text = "Informationen"
$GroupBox5.Text = "Nachricht für Interne Empfänger"
$GroupBox6.Text = "Erweiterte Einstellungen"
$GroupBox7.Text = "Report"
$TextProgressBar.text="Programmstart wird vorbereitet!"
$TextExtern.Text = "Nachricht für Externe Empfänger:"
$TextZeitStart.Text = "Startzeit:"
$TextZeitEnde.Text = "Endzeit:"
$TextWeiterleitung.Text = "Keine Informationen über Mailweiterleitung abgefragt"
$TextProgressBar.Text = "Start wird vorbereitet"
$Login.Text = "Anmelden"
$WindowsUser.Text = "Anmeldung mit aktuellem Benutzer"
$Abfrage.Text = "Abfragen"
$ReportGrid.Text = "Liste aller Benutzer mit OoO"
$Speichern.Text = "Speichern / aktualisieren"
$BenutzerLaden.Text = "Benutzerliste erneut laden?"
$RadioDisabled.Text = "Out of Office deaktivieren / ist deaktiviert"
$RadioEnabled.Text = "Out of Office aktivieren / ist aktiviert"
$Extern.Text = "Auch an Absender außerhalb der Organisation senden?"
$ExternKontakte.Text = "Antworten nur an Absender in meiner Kontaktliste senden"
$ExternAlle.Text = "Antworten an alle externen Absender senden"
$Zeit.Text = "Antworten nur in diesem Zeitraum senden:"
$Weiterleitung.Text = "E-Mail weiterleitung an anderen Empfänger?"
$WeiterleitungMail.Text = "E-Mail zur Weiterleitung"
$WeiterleitungMailKopie.Text = "Nachrichten an Empfänger und alternativen Empfänger übermitteln?"
<# dynamische Texte in Funktionen #>
$MsgLogonFail = "Anmeldung nicht erfolgreich"
$MsgLogonSuccess ="Erfolgreich angemeldet, los gehts!`
Benutzerliste wird geladen!"
$MsgLoadUser = "Benutzer werden geladen"
$MsgNoUser = "Es wurde kein Benutzer eingetragen oder der Benutzer existiert nicht."
$MsgOOOdisabled = "Abwesenheitsassistent ist deaktiviert"
$MsgOOOEnabledAll = "Abwesenheitsassistent ist mit Nachrichten an alle Absender aktiv"
$MsgOOOEnabledContact = "Abwesenheitsassistent ist mit Nachrichten an bekannte Absender aktiv"
$MsgOOOEnabledInt = "Abwesenheitsassistent ist mit Nachrichten an interne Absender aktiv"
$MsgOOOEnabledTmAll = "Abwesenheitsassistent ist Zeitgesteuert mit Nachrichten an alle Absender aktiv"
$MsgOOOEnabledTmContact = "Abwesenheitsassistent ist Zeitgesteuert mit Nachrichten an bekannt Absender aktiv"
$MsgOOOEnabledTmInt = "Abwesenheitsassistent ist Zeitgesteuert mit Nachrichten an interne Absender aktiv"
$MsgFwDisabled = "Keine E-Mail weiterleitung eingerichtet!"
$MsgFwEnableCopy = "Mails werden an angebene Adresse in Kopie weitergeleitet"
$MsgFwEnableNoCopy = "Mails werden an angebene Adresse weitergeleitet"
$MsgOOOSetDisable = "Die Abwesenheitsnotiz fuer den Benutzer $Mailbox1 wurde deaktiviert"
$MsgNoText = "Bitte einen Text hinterlegen"
$MsgOOOsetAll = "Die Abwesenheistnotiz fuer das Konto $Mailbox1 wurde gespeichert / aktualisiert. Es wird eine Externe Nachricht an ALLE Absender verschickt."
$MsgOOOSetContact = "Die Abwesenheistnotiz fuer das Konto $Mailbox1 wurde gespeichert / aktualisiert. Es wird eine Externe Nachricht nur an ALLE Absender aus der Kontaktliste verschickt"
$MsgOOOSetInt = "Die Abwesenheistnotiz fuer das Konto $Mailbox1 wurde gespeichert / aktualisiert. Es wird KEINE Externe Nachricht"
$MsgOOOSetTmAll = "Die Abwesenheistnotiz fuer das Konto $Mailbox1 wurde gespeichert / aktualisiert. Nachricht an alle externen Absender! Zusätzlich ist eine Zeitspanne konfiguriert! Von $StartZeit bis $EndZeit."
$MsgOOOSetTmContact = "Die Abwesenheistnotiz fuer das Konto $Mailbox1 wurde gespeichert / aktualisiert. Nachricht nur an Bekannte Absender! Zusätzlich ist eine Zeitspanne konfiguriert! Von $StartZeit bis $EndZeit."
$MsgOOOSetTmInt = "Die Abwesenheistnotiz fuer das Konto $Mailbox1 wurde gespeichert / aktualisiert. Keine Nachricht an Externe Absender. Zusätzlich ist eine Zeitspanne konfiguriert! Von $StartZeit bis $EndZeit."
$MsgFwSet = "E-Mail weiterleitung eingerichtet!"
$MsgFwSetCopy = "E-Mail Kopie-Weiterleitung eingerichtet!"
$MsgFwSetNo = "Keine E-Mail weiterleitung eingerichtet!"
$MsgLogoff = "Erfolgreich abgemeldet"
$MsUserLoadSuccess = "Benutzerliste wurde erneut geladen"
$MsgAutoLogonDisabeld = "Automatische Anmeldung wurde deaktiviert"
$MsgAutoLogonFailedText = "Bitte Variablen in Settings.ini setzen"
$MsgAutoLogonFailedTitle = "Automatischer Login fehlgeschlagen"
$MsgTextGridTitle = "Alle Benutzer mit Out of Office"
}
if ($DisplayLang -eq "en")
{
<# statische texte #>
$NotifyIcon.BalloonTipText = "Out of Office Tool was minimized, click to open"
$GroupBox1.Text = "Automatic replies settings"
$GroupBox2.Text = "Connection settings"
$GroupBox3.Text = "Out of Office enable / enabled"
$GroupBox4.Text = "Additional informations"
$GroupBox5.Text = "Message for internal reciepients"
$GroupBox6.Text = "Advanced settings"
$GroupBox7.Text = "Report"
$TextProgressBar.text="Programm starts..."
$TextExtern.Text = "Message for external recipients"
$TextZeitStart.Text = "Start time"
$TextZeitEnde.Text = "End time"
$TextWeiterleitung.Text = "No informations about mail forwarding"
$TextProgressBar.Text = "Start in progress"
$Login.Text = "Log on"
$WindowsUser.Text = "Log on with Windows User"
$Abfrage.Text = "Query"
$ReportGrid.Text = "Report all users with OoO"
$Speichern.Text = "Save / update"
$BenutzerLaden.Text = "Rerun User query"
$RadioDisabled.Text = "Out of Office disabled"
$RadioEnabled.Text = "Out of Office enabled"
$Extern.Text = "Send message to external reciepients?"
$ExternKontakte.Text = "Send replies only to senders in my contacts list"
$ExternAlle.Text = "Send replies to all senders"
$Zeit.Text = "Send replies only during this time period"
$Weiterleitung.Text = "Forward mails to another recipient?"
$WeiterleitungMail.Text = "Mail forwarding"
$WeiterleitungMailKopie.Text = "Deliver message to both forwarding address and mailbox"
<# dynamische Texte in Funktionen #>
$MsgLogonFail = "Logon not successfull"
$MsgLogonSuccess ="Logon successfull, lets go!`
Userlist loaded"
$MsgLoadUser = "Userlist loading"
$MsgNoUser = "No username set or user does not exist"
$MsgOOOdisabled = "Out of Office is disabled"
$MsgOOOEnabledAll = "Out of Office for all external senders enabled"
$MsgOOOEnabledContact = "Out of Office for all senders in contact list enabled"
$MsgOOOEnabledInt = "Out of Office only for internal senders enabled"
$MsgOOOEnabledTmAll = "Out of Office for all external senders with time peroid enabled"
$MsgOOOEnabledTmContact = "Out of Office for all senders in contact list with time period enabled"
$MsgOOOEnabledTmInt = "Out of Office only for internal senders with time period enabled"
$MsgFwDisabled = "No mailforwarding settings"
$MsgFwEnableCopy = "Copy forwarding to adress enabled"
$MsgFwEnableNoCopy = "Forwarding to address enabled"
$MsgOOOSetDisable = "Out of Office for user $Mailbox1 disabled"
$MsgNoText = "Please insert Out of Office Message"
$MsgOOOsetAll = "Out of Office settings for $Mailbox1 saved / refreshed. Replay send to all external senders."
$MsgOOOSetContact = "Out of Office settings for $Mailbox1 saved / refreshed. Reply send to all senders in contact list"
$MsgOOOSetInt = "Out of Office settings for $Mailbox1 saved / refreshed. Reply send only to internal senders"
$MsgOOOSetTmAll = "Out of Office settings for $Mailbox1 saved / refreshed. Reply send to all external senders! Time period configured from $StartZeit till $EndZeit."
$MsgOOOSetTmContact = "Out of Office settings for $Mailbox1 saved / refreshed. Reply send to all senders in contact list! Time period configured from $StartZeit till $EndZeit."
$MsgOOOSetTmInt = "Out of Office settings for $Mailbox1 saved / refreshed. Reply send only to internal senders. Time period configured from $StartZeit till $EndZeit."
$MsgFwSet = "E-Mail forwarding configured"
$MsgFwSetCopy = "E-Mail copy forwarding configured"
$MsgFwSetNo = "No E-Mail forwarding configured"
$MsgLogoff = "Logoff successfull"
$MsUserLoadSuccess = "user list refreshed succsessfull"
$MsgAutoLogonDisabeld = "Automatic logon disabeld"
$MsgAutoLogonFailedText = "Please set variables in settings.ini file"
$MsgAutoLogonFailedTitle = "Automatic logon failure"
$MsgTextGridTitle = "All Users with Out of Office"
}
#########################################################################################################################################
#Gruppenboxen: Namen vergeben und Layout erstellen
# Gruppenbox für Zusatzoptionen
$GroupBox1.Location = New-Object System.Drawing.Size(400,100)
$GroupBox1.size = New-Object System.Drawing.Size(465,190)
$GroupBox1.Font = $Font
$Fenster1.Controls.Add($GroupBox1)
# Gruppenbox fuer Server Benutzer und usw
$GroupBox2.Location = New-Object System.Drawing.Size(5,50)
$GroupBox2.size = New-Object System.Drawing.Size(380,190)
$GroupBox2.Font = $Font
$Fenster1.Controls.Add($GroupBox2)
# Gruppenbox fuer Status Out of Office
$GroupBox3.Location = New-Object System.Drawing.Size(400,10)
$GroupBox3.size = New-Object System.Drawing.Size(370,80)
$GroupBox3.Font = $Font
$Fenster1.Controls.Add($GroupBox3)
# Gruppenbox Ergebnisausgabe
$GroupBox4.Location = New-Object System.Drawing.Size(5,480)
$GroupBox4.size = New-Object System.Drawing.Size(380,180)
$GroupBox4.Font = $Font
$Fenster1.Controls.Add($GroupBox4)
# Gruppenbox HTML Felder
$GroupBox5.Location = New-Object System.Drawing.Size(400,300)
$GroupBox5.size = New-Object System.Drawing.Size(465,360)
$GroupBox5.Font = $Font
$Fenster1.Controls.Add($GroupBox5)
# Gruppenbox Erweiterte Optionen
$GroupBox6.Location = New-Object System.Drawing.Size(5,300)
$GroupBox6.size = New-Object System.Drawing.Size(380,170)
$GroupBox6.Font = $Font
$Fenster1.Controls.Add($GroupBox6)
#Gruppenbox für Report
$GroupBox7.Location = New-Object System.Drawing.Size(5,245)
$GroupBox7.size = New-Object System.Drawing.Size(380,50)
$GroupBox7.Font = $Font
$Fenster1.Controls.Add($GroupBox7)
#########################################################################################################################################
#Form für Ladebalken erstellen
$progressBar1 = New-Object System.Windows.Forms.ProgressBar
$progressBar1.Name = 'progressBar1'
$progressBar1.Value = 0
$progressBar1.Style="Continuous"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 500 - 40
$System_Drawing_Size.Height = 20
$progressBar1.Size = $System_Drawing_Size
$progressBar1.Left = 5
$progressBar1.Top = 40
$Fenster0.Controls.Add($progressBar1)
$Fenster0.Show()| out-null
$Fenster0.Refresh()
#########################################################################################################################################
# Funktionen erstellen
function Anmelden
{
if ($LogOntoO365 -eq "yes")
{
#Anmeldung an Office 365 iniitieren
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::WaitCursor
#Am Exchange Server anmelden
#Zertifikatsprüfungen abschalten
$SkipCertificate = New-PSSessionOption -SkipCACheck -SkipCNCheck -SkipRevocationCheck -Verbose
#Servernamen auslesen
$Server = "outlook.office365.com"
$ServerName.Text = "outlook.office365.com"
#Anmeldedaten erfragen
$cred = Get-Credential
#PS-Session starten --> Bei connection URI den korrekten Exchange 2010 oder 2013 Servernamen eingeben, vorzugsweise CAS-Server
$Session = New-PSSession `
-ConfigurationName Microsoft.Exchange `
-ConnectionUri https://$Server/PowerShell-liveid/ `
-Authentication basic `
-SessionOption $SkipCertificate `
-credential $cred `
-AllowRedirection `
-Name Exchange
#Importieren der erzeugten Session in die aktuelle Session, lokal gleichlautende Befehle werden ersetzen
Import-PSSession -Session $Session -AllowClobber -Verbose
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::Arrow
if (!$Session.State -eq "open")
{
$Ausgabe1.text = $MsgLogonFail
}
else
{
$Ausgabe1.text = $MsgLogonSuccess
$Fenster0.Show()
if ($OU -notlike $null)
{
$UserArray = Get-User -OrganizationalUnit $OU -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
else
{
$UserArray = Get-User -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
$i = 0
foreach($user in $UserArray)
{
$i++
[int]$pct = ($i/$UserArray.count)*100
$progressbar1.Value = $pct
$TextProgressBar.text="$MsgLoadUser : $($user.name)"
$Fenster0.Refresh()
$UserName.items.add($user.Name)
$WeiterleitungMail.items.add($user.Name)
}
$BenutzerLaden.Enabled = $true
}
$Fenster0.Hide()
$UserName.Enabled = $true
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Weiterleitung.Enabled = $true
$ReportGrid.Enabled = $true
}
else
{
if (!$WindowsUser.Checked) #Wenn anmeldung nicht automatsich erfolgt
{
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::WaitCursor
#Am Exchange Server anmelden
#Zertifikatsprüfungen abschalten
$SkipCertificate = New-PSSessionOption -SkipCACheck -SkipCNCheck -SkipRevocationCheck -Verbose
#Servernamen auslesen
$Server = $ServerName.Text;
#Anmeldedaten erfragen
$cred = Get-Credential
#PS-Session starten --> Bei connection URI den korrekten Exchange 2010 oder 2013 Servernamen eingeben, vorzugsweise CAS-Server
$Session = New-PSSession `
-ConfigurationName Microsoft.Exchange `
-ConnectionUri http://$Server/PowerShell/ `
-Authentication Kerberos `
-SessionOption $SkipCertificate `
-credential $cred `
-Name Exchange
#Importieren der erzeugten Session in die aktuelle Session, lokal gleichlautende Befehle werden ersetzen
Import-PSSession -Session $Session -AllowClobber -Verbose
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::Arrow
if (!$Session.State -eq "open")
{
$Ausgabe1.text = $MsgLogonFail
}
else
{
$Ausgabe1.text =$MsgLogonSuccess
$Fenster0.Show()
if ($OU -notlike $null)
{
$UserArray = Get-User -OrganizationalUnit $OU -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
else
{
$UserArray = Get-User -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
$i = 0
foreach($user in $UserArray)
{
$i++
[int]$pct = ($i/$UserArray.count)*100
$progressbar1.Value = $pct
$TextProgressBar.text="$MsgLoadUser : $($user.name)"
$Fenster0.Refresh()
$UserName.items.add($user.Name)
$WeiterleitungMail.items.add($user.Name)
}
$BenutzerLaden.Enabled = $true
}
$Fenster0.Hide()
$UserName.Enabled = $true
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Weiterleitung.Enabled = $true
$ReportGrid.Enabled = $true
}
else
{
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::WaitCursor
#Am Exchange Server anmelden
#Zertifikatsprüfungen abschalten
$SkipCertificate = New-PSSessionOption -SkipCACheck -SkipCNCheck -SkipRevocationCheck -Verbose
#Servernamen auslesen
$Server = $ServerName.Text;
#Anmeldedaten erfragen
#PS-Session starten --> Bei connection URI den korrekten Exchange 2010 oder 2013 Servernamen eingeben, vorzugsweise CAS-Server
$Session = New-PSSession `
-ConfigurationName Microsoft.Exchange `
-ConnectionUri http://$Server/PowerShell/ `
-Authentication Kerberos `
-SessionOption $SkipCertificate `
-Name Exchange
#Importieren der erzeugten Session in die aktuelle Session, lokal gleichlautende Befehle werden ersetzen
Import-PSSession -Session $Session -AllowClobber -Verbose
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::Arrow
if (!$Session.State -eq "open")
{
$Ausgabe1.text = $MsgLogonFail
}
else
{
$Ausgabe1.text = $MsgLogonSuccess
$Fenster0.Show()
if ($OU -notlike $null)
{
$UserArray = Get-User -OrganizationalUnit $OU -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
else
{
$UserArray = Get-User -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
$i = 0
foreach($user in $UserArray)
{
$i++
[int]$pct = ($i/$UserArray.count)*100
$progressbar1.Value = $pct
$TextProgressBar.text="$MsgLoadUser : $($user.name)"
$Fenster0.Refresh()
$UserName.items.add($user.Name)
$WeiterleitungMail.items.add($user.Name)
}
$BenutzerLaden.Enabled = $true
}
$Fenster0.Hide()
$UserName.Enabled = $true
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Weiterleitung.Enabled = $true
$ReportGrid.Enabled = $true
}
}
}#Beende Funktion Anmelden
function Abfrage
{
#Felder leeren
$HTMLForm1.Text = $null
$HTMLForm2.Text = $null
$WeiterleitungMail.Text = $null
$Ausgabe1.Text = $null
$Mailbox = $username.text
if (($Username.text.Length -eq 0) -or (!(Get-Recipient $Username.text -ErrorAction SilentlyContinue)))
{
$Ausgabe1.text = $MsgNoUser
}
else {
$Info = Get-MailboxAutoReplyConfiguration -Identity $Mailbox | select AutoReplyState,StartTime,Endtime,ExternalAudience,ExternalMessage,InternalMessage
$info2 = Get-Mailbox $Mailbox | select DeliverToMailboxAndForward,ForwardingAddress,ForwardingSmtpAddress
#$Ausgabe1.text = $Info | Out-String
<# Hier werden nun die verschieden Stati abgefrgat, Buttons und Boxen aktiviert / deaktiviert und die Entsprechenden Daten vom Postfach hineingeschrieben #>
if (($Info.AutoReplyState -match "Disabled") -and ($Info.ExternalAudience -match "All") )
{
$Radiodisabled.Checked = $true
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Extern.Checked = $true
$Extern.Enabled = $false
$ExternKontakte.Enabled = $false
$ExternAlle.Enabled = $false
$ExternAlle.Checked = $true
$Zeit.Enabled = $false
$Zeit.Checked = $false
$ZeitStart.Enabled = $false
$DatumStart.Enabled = $false
$ZeitEnde.Enabled = $false
$DatumEnde.Enabled = $false
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Ausgabe1.Text = $MsgOOOdisabled
$StatusBild.ImageLocation = "$scriptRoot\inaktiv.png"
$HTMLForm1.Enabled = $false
$HTMLForm2.Enabled = $false
}
if (($Info.AutoReplyState -match "Disabled") -and ($Info.ExternalAudience -match "Known"))
{
$Radiodisabled.Checked = $true
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Extern.Checked = $true
$Extern.Enabled = $false
$ExternKontakte.Enabled = $false
$ExternAlle.Enabled = $false
$ExternKontakte.Checked = $true
$Zeit.Enabled = $false
$Zeit.Checked = $false
$ZeitStart.Enabled = $false
$DatumStart.Enabled = $false
$ZeitEnde.Enabled = $false
$DatumEnde.Enabled = $false
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Ausgabe1.Text = $MsgOOOdisabled
$StatusBild.ImageLocation = "$scriptRoot\inaktiv.png"
$HTMLForm1.Enabled = $false
$HTMLForm2.Enabled = $false
}
if (($Info.AutoReplyState -match "Disabled") -and ($Info.ExternalAudience -match "None"))
{
$Radiodisabled.Checked = $true
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Extern.Checked = $false
$Extern.Enabled = $false
$ExternKontakte.Enabled = $false
$ExternAlle.Enabled = $false
$ExternKontakte.Checked = $false
$Zeit.Enabled = $false
$Zeit.Checked = $false
$ZeitStart.Enabled = $false
$DatumStart.Enabled = $false
$ZeitEnde.Enabled = $false
$DatumEnde.Enabled = $false
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Ausgabe1.Text = $MsgOOOdisabled
$StatusBild.ImageLocation = "$scriptRoot\inaktiv.png"
$HTMLForm1.Enabled = $false
$HTMLForm2.Enabled = $false
}
if (($Info.AutoReplyState -match "Enabled") -and ($Info.ExternalAudience -match "All") )
{
$RadioEnabled.Checked = $true
$RadioEnabled.Enabled = $true
$Radiodisabled.Enabled = $true
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Extern.Checked = $true
$Extern.Enabled = $true
$ExternAlle.Enabled = $true
$ExternAlle.Checked = $true
$ExternKontakte.Enabled =$true
$Zeit.Checked = $false
$Zeit.Enabled = $true
$Ausgabe1.Text = $MsgOOOEnabledAll
$StatusBild.ImageLocation = "$scriptRoot\aktiv.png"
$HTMLForm1.Enabled = $true
$HTMLForm2.Enabled = $true
}
if (($Info.AutoReplyState -match "Enabled") -and ($Info.ExternalAudience -match "Known"))
{
$RadioEnabled.Checked = $true
$RadioEnabled.Enabled = $true
$Radiodisabled.Enabled = $true
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Extern.Checked = $true
$Extern.Enabled = $true
$ExternAlle.Enabled = $true
$ExternKontakte.Enabled =$true
$ExternKontakte.Checked = $true
$Zeit.Checked = $false
$Zeit.Enabled = $true
$Ausgabe1.Text = $MsgOOOEnabledContact
$StatusBild.ImageLocation = "$scriptRoot\aktiv.png"
$HTMLForm1.Enabled = $true
$HTMLForm2.Enabled = $true
}
if (($Info.AutoReplyState -match "Enabled") -and ($Info.ExternalAudience -match "None"))
{
$RadioEnabled.Checked = $true
$RadioEnabled.Enabled = $true
$Radiodisabled.Enabled = $true
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Extern.Checked = $false
$Extern.Enabled = $true
$ExternAlle.Checked = $false
$ExternKontakte.Checked = $false
$Zeit.Checked = $false
$Zeit.Enabled = $true
$Ausgabe1.Text = $MsgOOOEnabledInt
$StatusBild.ImageLocation = "$scriptRoot\aktiv.png"
$HTMLForm1.Enabled = $true
$HTMLForm2.Enabled = $true
}
if (($info.AutoReplyState -match "Scheduled") -and ($Info.ExternalAudience -match "All"))
{
$RadioEnabled.Checked = $true
$RadioEnabled.Enabled = $true
$Radiodisabled.Enabled = $true
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Extern.Checked = $true
$Extern.Enabled = $true
$ExternAlle.Enabled = $true
$ExternAlle.Checked = $true
$ExternKontakte.Enabled =$true
$Zeit.Checked = $true
$Zeit.Enabled = $true
$ZeitStart.Text = [System.Timespan]::Parse($Info.StartTime.ToString("HH:mm"))
$ZeitEnde.Text = [System.Timespan]::Parse($Info.EndTime.ToString("HH:mm"))
$DatumStart.Value = $Info.StartTime
$DatumEnde.Value = $Info.EndTime
$Ausgabe1.Text = $MsgOOOEnabledTmAll
$StatusBild.ImageLocation = "$scriptRoot\aktiv.png"
$HTMLForm1.Enabled = $true
$HTMLForm2.Enabled = $true
}
if (($Info.AutoReplyState -match "Scheduled") -and ($Info.ExternalAudience -match "Known"))
{
$RadioEnabled.Checked = $true
$RadioEnabled.Enabled = $true
$Radiodisabled.Enabled = $true
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Extern.Checked = $true
$Extern.Enabled = $true
$ExternAlle.Enabled = $true
$ExternKontakte.Enabled =$true
$ExternKontakte.Checked = $true
$Zeit.Checked = $true
$Zeit.Enabled = $true
$ZeitStart.Text = [System.Timespan]::Parse($Info.StartTime.ToString("HH:mm"))
$ZeitEnde.Text = [System.Timespan]::Parse($Info.EndTime.ToString("HH:mm"))
$DatumStart.Value = $Info.StartTime
$DatumEnde.Value = $Info.EndTime
$Ausgabe1.Text = $MsgOOOEnabledTmContact
$StatusBild.ImageLocation = "$scriptRoot\aktiv.png"
$HTMLForm1.Enabled = $true
$HTMLForm2.Enabled = $true
}
if (($Info.AutoReplyState -match "Scheduled") -and ($Info.ExternalAudience -match "None"))
{
$RadioEnabled.Checked = $true
$RadioEnabled.Enabled = $true
$Radiodisabled.Enabled = $true
$HTMLForm1.Text = $Info.InternalMessage
$HTMLForm2.Text = $Info.ExternalMessage
$Extern.Checked = $false
$Extern.Enabled = $true
$ExternAlle.Checked = $false
$ExternKontakte.Checked = $false
$Zeit.Checked = $True
$Zeit.Enabled = $true
$ZeitStart.Text = [System.Timespan]::Parse($Info.StartTime.ToString("HH:mm"))
$ZeitEnde.Text = [System.Timespan]::Parse($Info.EndTime.ToString("HH:mm"))
$DatumStart.Value = $Info.StartTime
$DatumEnde.Value = $Info.EndTime
$Ausgabe1.Text = $MsgOOOEnabledTmInt
$StatusBild.ImageLocation = "$scriptRoot\aktiv.png"
$HTMLForm1.Enabled = $true
$HTMLForm2.Enabled = $true
}
if ($info2.ForwardingAddress -eq $null)
{
$WeiterleitungMail.Enabled = $false
$Weiterleitung.Checked = $false
$Weiterleitung.Enabled = $true
$WeiterleitungMailKopie.Enabled = $false
$WeiterleitungMailKopie.Checked = $false
$TextWeiterleitung.Text = $MsgFwDisabled
}
}
if ( ($info2.ForwardingAddress -ne $null) -and ($info2.DeliverToMailboxAndForward -eq $true))
{
$info3 = get-mailbox $info2.ForwardingAddress
$Weiterleitung.Enabled = $true
$Weiterleitung.Checked = $true
$WeiterleitungMail.Enabled = $true
$WeiterleitungMail.Text = $info3
$WeiterleitungMailKopie.Checked = $true
$TextWeiterleitung.Text = $MsgFwEnableNoCopy
}
if ( ($info2.ForwardingAddress -ne $null) -and ($info2.DeliverToMailboxAndForward -eq $false))
{
$info3 = get-mailbox $info2.ForwardingAddress
$Weiterleitung.Enabled = $true
$Weiterleitung.Checked = $true
$WeiterleitungMail.Enabled = $true
$WeiterleitungMail.Text = $info3
$WeiterleitungMailKopie.Checked = $false
$TextWeiterleitung.Text = $MsgFwEnableNoCopy
}
} # Beendet die Funktion Abfrage
function Speichern {
$Mailbox1 = $username.text
if (($Username.text.Length -eq 0) -or (!(Get-Recipient $Username.text -ErrorAction SilentlyContinue)))
{
$Ausgabe1.text = $MsgNoUser
}
else {
<# Hir werden jetzt alle Variationen abgerfgat die eingetragen werden können, mit Zeit, ohne Externe Absender usw. Jeweils auch die Abfrage ob Text hinterlegt worden ist #>
if ($RadioDisabled.Checked)
{
Set-MailboxAutoReplyConfiguration $Mailbox1 -AutoReplyState disabled
$Ausgabe1.Text = $MsgOOOSetDisable
}
if (($RadioEnabled.Checked) -and ($Extern.checked) -and ($ExternAlle.Checked) -and (!$ExternKontakte.Checked) -and (!$Zeit.Checked)) #Aktiv, alle externen
{
if (($HTMLForm1.Text.Length -eq 0) -or ($HTMLForm2.Text.Length -eq 0))
{
$Ausgabe1.Text = $MsgNoText
}
else
{
$Intern = $HTMLForm1.Text
$Extern = $HTMLForm2.Text
Set-MailboxAutoReplyConfiguration $Mailbox1 -AutoReplyState enabled -InternalMessage "$intern" -ExternalMessage "$extern" -ExternalAudience All
$Ausgabe1.text = $MsgOOOsetAll
}
}
if (($RadioEnabled.Checked) -and ($Extern.checked) -and (!$ExternAlle.Checked) -and ($ExternKontakte.Checked) -and (!$Zeit.Checked)) #aktiv, extern nur kontakte
{
if (($HTMLForm1.Text.Length -eq 0) -or ($HTMLForm2.Text.Length -eq 0))
{
$Ausgabe1.Text = $MsgNoText
}
else
{
$Intern = $HTMLForm1.Text
$Extern = $HTMLForm2.Text
Set-MailboxAutoReplyConfiguration $Mailbox1 -AutoReplyState enabled -InternalMessage "$intern" -ExternalMessage "$extern" -ExternalAudience Known
$Ausgabe1.text = $MsgOOOSetContact
}
}
if (($RadioEnabled.Checked) -and (!$Extern.checked) -and (!$ExternAlle.Checked) -and (!$ExternKontakte.Checked) -and (!$Zeit.Checked)) #aktiv, keine Externen nachrichten keine Zeitspanne
{
if (($HTMLForm1.Text.Length -eq 0) -or ($HTMLForm2.Text.Length -eq 0))
{
$Ausgabe1.Text = $MsgSet
}
else
{
$Intern = $HTMLForm1.Text
$Extern = $HTMLForm2.Text
Set-MailboxAutoReplyConfiguration $Mailbox1 -AutoReplyState enabled -InternalMessage "$intern" -ExternalMessage "$extern" -ExternalAudience none
$Ausgabe1.text = $MsgOOOSetInt
}
}
if (($RadioEnabled.Checked) -and ($Extern.checked) -and ($ExternAlle.Checked) -and (!$ExternKontakte.Checked) -and ($Zeit.Checked)) #aktiv, extern alle und Zeitspanne
{
if (($HTMLForm1.Text.Length -eq 0) -or ($HTMLForm2.Text.Length -eq 0))
{
$Ausgabe1.Text = $MsgNoText
}
else
{
$Gebiet = New-Object system.globalization.cultureinfo 'en-us'
$Datum_Start = [System.DateTime]::Parse($DatumStart.Value.ToString("MM.dd.yyyy"),$Gebiet)
$Zeit_Start = [System.Timespan]::Parse($ZeitStart.Value.ToString("HH:mm"))
$StartZeit = $Datum_Start.Add($Zeit_Start)
$StartZeit = Get-Date $StartZeit -format 'MM.dd.yyyy HH:mm'
$Datum_Ende = [System.DateTime]::Parse($DatumEnde.Value.ToString("MM.dd.yyyy"),$Gebiet)
$Zeit_Ende = [System.Timespan]::Parse($ZeitEnde.Value.ToString("HH:mm"))
$EndZeit = $Datum_Ende.Add($Zeit_Ende)
$EndZeit = Get-Date $EndZeit -format 'MM.dd.yyyy HH:mm'
$Intern = $HTMLForm1.Text
$Extern = $HTMLForm2.Text
Set-MailboxAutoReplyConfiguration $Mailbox1 -AutoReplyState scheduled -InternalMessage "$intern" -ExternalMessage "$extern" -StartTime $StartZeit -EndTime $EndZeit -ExternalAudience all
$Ausgabe1.text = $MsgOOOSetTmAll
}
}
if (($RadioEnabled.Checked) -and ($Extern.checked) -and (!$ExternAlle.Checked) -and ($ExternKontakte.Checked) -and ($Zeit.Checked)) #aktiv, extern nur kontakte und Zeitspanne
{
if (($HTMLForm1.Text.Length -eq 0) -or ($HTMLForm2.Text.Length -eq 0))
{
$Ausgabe1.Text = $MsgNoText
}
else
{
$Gebiet = New-Object system.globalization.cultureinfo 'en-us'
$Datum_Start = [System.DateTime]::Parse($DatumStart.Value.ToString("MM.dd.yyyy"),$Gebiet)
$Zeit_Start = [System.Timespan]::Parse($ZeitStart.Value.ToString("HH:mm"))
$StartZeit = $Datum_Start.Add($Zeit_Start)
$StartZeit = Get-Date $StartZeit -format 'MM.dd.yyyy HH:mm'
$Datum_Ende = [System.DateTime]::Parse($DatumEnde.Value.ToString("MM.dd.yyyy"),$Gebiet)
$Zeit_Ende = [System.Timespan]::Parse($ZeitEnde.Value.ToString("HH:mm"))
$EndZeit = $Datum_Ende.Add($Zeit_Ende)
$EndZeit = Get-Date $EndZeit -format 'MM.dd.yyyy HH:mm'
$Intern = $HTMLForm1.Text
$Extern = $HTMLForm2.Text
Set-MailboxAutoReplyConfiguration $Mailbox1 -AutoReplyState scheduled -InternalMessage "$intern" -ExternalMessage "$extern" -StartTime $StartZeit -EndTime $EndZeit -ExternalAudience Known
$Ausgabe1.text = $MsgOOOSetTmContact
}
}
if (($RadioEnabled.Checked) -and (!$Extern.checked) -and (!$ExternAlle.Checked) -and (!$ExternKontakte.Checked) -and ($Zeit.Checked)) #aktiv, keine Externen und Zeitspanne
{
if (($HTMLForm1.Text.Length -eq 0) -or ($HTMLForm2.Text.Length -eq 0))
{
$Ausgabe1.Text = $MsgNoText
}
else
{
$Gebiet = New-Object system.globalization.cultureinfo 'en-us'
$Datum_Start = [System.DateTime]::Parse($DatumStart.Value.ToString("MM.dd.yyyy"),$Gebiet)
$Zeit_Start = [System.Timespan]::Parse($ZeitStart.Value.ToString("HH:mm"))
$StartZeit = $Datum_Start.Add($Zeit_Start)
$StartZeit = Get-Date $StartZeit -format 'MM.dd.yyyy HH:mm'
$Datum_Ende = [System.DateTime]::Parse($DatumEnde.Value.ToString("MM.dd.yyyy"),$Gebiet)
$Zeit_Ende = [System.Timespan]::Parse($ZeitEnde.Value.ToString("HH:mm"))
$EndZeit = $Datum_Ende.Add($Zeit_Ende)
$EndZeit = Get-Date $EndZeit -format 'MM.dd.yyyy HH:mm'
$Intern = $HTMLForm1.Text
$Extern = $HTMLForm2.Text
Set-MailboxAutoReplyConfiguration $Mailbox1 -AutoReplyState scheduled -InternalMessage "$intern" -ExternalMessage "$extern" -StartTime $StartZeit -EndTime $EndZeit -ExternalAudience none
$Ausgabe1.text = $MsgOOOSetTmInt
}
}
if (($Weiterleitung.Checked) -and (!$WeiterleitungMailKopie.Checked))
{
$ForwardAddress = $WeiterleitungMail.Text
Set-Mailbox $Mailbox1 -ForwardingAddress $ForwardAddress -DeliverToMailboxAndForward $false
$TextWeiterleitung.Text = $MsgFwSet
}
if (($Weiterleitung.Checked) -and ($WeiterleitungMailKopie.Checked))
{
$ForwardAddress = $WeiterleitungMail.Text
Set-Mailbox $Mailbox1 -ForwardingAddress $ForwardAddress -DeliverToMailboxAndForward $true
$TextWeiterleitung.Text = $MsgFwSetCopy
}
if (!$Weiterleitung.Checked)
{
Set-Mailbox $Mailbox1 -ForwardingAddress $null
$TextWeiterleitung.Text = $MsgFwSetNo
}
}
} # Beendet die Funktion Speichern
function Abmelden {
Remove-PSSession -Name Exchange
$Ausgabe1.text = $MsgLogoff
$Fenster1.Close()
} # Beendet die Funktion Abmelden
<# Aktionen bei veränderten Radio Buttons für aktiviertes /deaktiviertes Out of Office Jenachdem welcher Status abgerfragt wird, bzw welcher Status gesetzt wird müssen die Buttons ein und ausgeschaltet werden #>
function Button_Status
{
if ($RadioEnabled.Checked)
{
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Extern.Enabled = $true
$ExternKontakte.Enabled = $false
$ExternAlle.Enabled = $False
$Zeit.Enabled = $true
$ZeitStart.Enabled = $false
$ZeitEnde.Enabled = $false
$DatumStart.Enabled = $false
$DatumEnde.Enabled = $false
$HTMLForm1.Enabled = $true
$HTMLForm2.Enabled = $true
}
else
{
$RadioDisabled.Enabled = $true
$RadioEnabled.Enabled = $true
$Extern.Enabled = $false
$Extern.Checked = $false
$ExternKontakte.Enabled = $false
$ExternAlle.Enabled = $False
$Zeit.Enabled = $false
$Zeit.Checked = $false
$ZeitStart.Enabled = $false
$ZeitEnde.Enabled = $false
$DatumStart.Enabled = $false
$DatumEnde.Enabled = $false
$HTMLForm1.Enabled = $false
$HTMLForm2.Enabled = $false
}
if ($Extern.Checked)
{
$ExternKontakte.Enabled = $true
$ExternAlle.Enabled = $true
}
else
{
$ExternKontakte.Enabled = $false
$ExternKontakte.Checked = $false
$ExternAlle.Enabled = $false
$ExternAlle.Checked = $false
}
if ($Zeit.Checked)
{
$ZeitStart.Enabled = $true
$ZeitEnde.Enabled = $true
$DatumStart.Enabled = $true
$DatumEnde.Enabled = $true
}
if ($Weiterleitung.Checked)
{
$WeiterleitungMail.Enabled = $true
$WeiterleitungMailKopie.Enabled = $true
}
else
{
$WeiterleitungMail.Enabled = $false
$WeiterleitungMailKopie.Enabled = $false
}
}
if ($RadioDisabled.Checked) {Button_Status}
$handler_UserArray = {
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::WaitCursor
$Fenster0.Show() | Out-Null
$UserName.Items.Clear();
if ($OU -notlike $null)
{
$UserArray = Get-User -OrganizationalUnit $OU -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
else
{
$UserArray = Get-User -RecipientTypeDetails UserMailbox -SortBy Name -ResultSize Unlimited
}
$i = 0
foreach($user in $UserArray)
{
$i++
[int]$pct = ($i/$UserArray.count)*100
$progressbar1.Value = $pct
$TextProgressBar.text="$MsgLoadUser $($user.name)"
$Fenster0.Refresh()
$UserName.items.add($user.Name)
$WeiterleitungMail.items.add($user.Name)
}
$Fenster0.Close()
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::Arrow
$Ausgabe1.Text = $MsUserLoadSuccess
}
$handler_Report = {
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::WaitCursor
if ($OU -notlike $null)
{
$QueryMBXReport = (Get-Mailbox -OrganizationalUnit $OU -ResultSize Unlimited -RecipientTypeDetails UserMailbox).Name
$QueryMBXReport | Get-MailboxAutoReplyConfiguration | ? {($_.AutoReplyState -eq "Enabled") -or ($_.AutoReplyState -eq "Scheduled") } |select Identity,AutoReplyState,ExternalAudience,StartTime,EndTime | Out-GridView -Title $MsgTextGridTitle
}
else
{
$QueryMBXReport = (Get-Mailbox -ResultSize Unlimited -RecipientTypeDetails UserMailbox).Name
$QueryMBXReport | Get-MailboxAutoReplyConfiguration | ? {($_.AutoReplyState -eq "Enabled") -or ($_.AutoReplyState -eq "Scheduled") } |select Identity,AutoReplyState,ExternalAudience,StartTime,EndTime | Out-GridView -Title $MsgTextGridTitle
}
$Fenster1.Cursor = [System.Windows.Forms.Cursors]::Arrow
$Ausgabe1.Text = $MsUserLoadSuccess
}
#########################################################################################################################################
# Sämtliche Texte hinzufügen
$TextExtern.Location = New-Object System.Drawing.Size(10,185)
$TextExtern.Size = New-Object System.Drawing.Size(450,20)
$GroupBox5.Controls.Add($TextExtern)
# Text fuer die Start und Endzeit einbauen
$TextZeitStart.Location = New-Object System.Drawing.Size(25,133)
$TextZeitStart.Size = New-Object System.Drawing.Size(70,20)
$GroupBox1.Controls.Add($TextZeitStart)
$TextZeitEnde.Location = New-Object System.Drawing.Size(25,163)
$TextZeitEnde.Size = New-Object System.Drawing.Size(60,20)
$GroupBox1.Controls.Add($TextZeitEnde)
#Text für Ergebnisausgabe E-Mail weiterleitung
$TextWeiterleitung.Location = New-Object System.Drawing.Size(10,130)
$TextWeiterleitung.Size = New-Object System.Drawing.Size(350,35)
$GroupBox6.Controls.Add($TextWeiterleitung)
# Info-Text Anzeigen lassen
$About1.Location = New-Object System.Drawing.Size(5,10)
$About1.Size =New-Object System.Drawing.Size(400,35)
$About1.Text = "Exchange Server / O365 Out of Office Tool Version $VersionNumber
© Andres Sichel // asichel.de // blog@asichel.de"
$Fenster1.Controls.Add($About1)
$TextProgressBar.Left=5
$TextProgressBar.Top= 10
$TextProgressBar.Width= 500 - 20
$TextProgressBar.Height=15
$Fenster0.controls.add($TextProgressBar)
#########################################################################################################################################
# Verbindungsoptionen
# Eingabefeld für Servernamen bauen
If ($SetServername -gt 0)
{
$SetServer = $SetServername
$ServerName.ReadOnly = $true
}
else { $SetServer = "'Servername im FQDN'" }
$ServerName.Location = New-Object System.Drawing.Size(10,40)
$ServerName.Size = New-Object System.Drawing.Size(200,20)
$ServerName.Text = "$SetServer"
$ServerName.TabIndex = 1
$GroupBox2.Controls.Add($ServerName)
# Anmeldebutton bauen
$Login.Location = New-Object System.Drawing.Size(250,40)
$Login.Size = New-Object System.Drawing.Size(80,22)
$Login.TabIndex = 3
$Login.BackColor = "white"
$Login.Add_Click({Anmelden})
$GroupBox2.Controls.Add($Login)
# Abfrage aktuelle Benutzer
If ($LoggedOnUser -eq "Yes")
{ $WindowsUser.Checked = $true
$WindowsUser.Enabled = $false
}
else { $WindowsUser.Checked = $false }
$WindowsUser.Location = New-Object System.Drawing.Size(10,70)
$WindowsUser.Size = New-Object System.Drawing.Size(250,20)
$WindowsUser.TabIndex = 2
$GroupBox2.Controls.Add($WindowsUser)
# Eingabefeld für Usernamen bauen
$UserName.Location = New-Object System.Drawing.Size(10,100)
$UserName.Size = New-Object System.Drawing.Size(200,20)
$UserName.AutoCompleteMode = 3
$UserName.AutoCompleteSource = 256
$UserName.DataBindings.DefaultDataSourceUpdateMode = 0
$UserName.FormattingEnabled = $True
$UserName.Enabled = $false
$UserName.TabIndex = 4
$GroupBox2.Controls.Add($UserName)
# Abfragebutton bauen
$Abfrage.Location = New-Object System.Drawing.Size(250,100)
$Abfrage.Size = New-Object System.Drawing.Size(80,22)
$Abfrage.TabIndex = 5
$Abfrage.BackColor = "white"
$Abfrage.Add_Click({Abfrage})
$GroupBox2.Controls.Add($Abfrage)
# Speicherbutton bauen
$Speichern.Location = New-Object System.Drawing.Size(25,140)
$Speichern.Size = New-Object System.Drawing.Size(170,22)
$Speichern.TabIndex = 20
$Speichern.BackColor = "white"
$Speichern.Add_Click({Speichern})
$GroupBox2.Controls.Add($Speichern)
# Benutzer neu laden bauen
$BenutzerLaden.Location = New-Object System.Drawing.Size(230,140)
$BenutzerLaden.Size = New-Object System.Drawing.Size(120,40)
$BenutzerLaden.TabIndex = 7
$BenutzerLaden.Enabled = $false
$BenutzerLaden.BackColor = "white"
$BenutzerLaden.Add_Click($handler_UserArray)
$GroupBox2.Controls.Add($BenutzerLaden)
#Reportbutton bauen
$ReportGrid.Location = New-Object System.Drawing.Size(5,20)
$ReportGrid.Size = New-Object System.Drawing.Size(200,20)
$ReportGrid.TabIndex = 7
$ReportGrid.Enabled = $false
$ReportGrid.BackColor = "white"
$ReportGrid.Add_Click($handler_Report)
$GroupBox7.Controls.Add($ReportGrid)
# Abmeldebutton bauen
$ToolTip.SetToolTip($ExitBild, "Abmelden & Exit")
$ExitBild.Location = New-Object System.Drawing.Size(790,22)
$ExitBild.ImageLocation = "$scriptRoot\exit.png"
$ExitBild.SizeMode = "AutoSize"
$ExitBild.Text = "Exit"
$ExitBild.TabIndex = 21
$ExitBild.add_mouseclick{Abmelden}
$Fenster1.Controls.Add($ExitBild)
#########################################################################################################################################
#HTML Felder
# Interne Nachricht
$HTMLForm1.Location = New-Object System.Drawing.Size(10,25)
$HTMLForm1.Size = New-Object System.Drawing.Size(450,150)
$HTMLForm1.ToolbarStyle = 2
$HTMLForm1.TabIndex = 18
$HTMLForm1.Enabled = $false
$GroupBox5.Controls.Add($HTMLForm1)
# Externe Nachricht
$HTMLForm2.Location = New-Object System.Drawing.Size(10,205)
$HTMLForm2.Size = New-Object System.Drawing.Size(450,150)
$HTMLForm2.ToolbarStyle = 2
$HTMLForm2.TabIndex = 19
$HTMLForm2.Enabled = $false
$GroupBox5.Controls.Add($HTMLForm2)
#########################################################################################################################################
# Optionsfelder erstellen
# Auswahlbuttons erstellen
$RadioDisabled.Location = New-Object System.Drawing.Size(10,25)
$RadioDisabled.Size = New-Object System.Drawing.Size(350,20)
$RadioDisabled.Enabled = $false
$RadioDisabled.TabIndex = 8
$RadioDisabled.add_Click({Button_Status})
$GroupBox3.Controls.Add($RadioDisabled)
$RadioEnabled.Location = New-Object System.Drawing.Size(10,50)
$RadioEnabled.Size = New-Object System.Drawing.Size(350,20)
$RadioEnabled.Enabled = $false
$RadioEnabled.TabIndex = 9
$RadioEnabled.add_Click({Button_Status})
$GroupBox3.Controls.Add($RadioEnabled)
# Checkbox auch für Externe Empfänger
$Extern.Location = New-Object System.Drawing.Size(10,25)
$Extern.Size = New-Object System.Drawing.Size(370,20)
$Extern.TabIndex = 10
$Extern.add_Click({Button_Status})
$GroupBox1.Controls.Add($Extern)
# RadioButton Extern nur Kontaktliste
$ExternKontakte.Location = New-Object System.Drawing.Size(25,45)
$ExternKontakte.Size = New-Object System.Drawing.Size(380,20)
$ExternKontakte.TabIndex = 11
$GroupBox1.Controls.Add($ExternKontakte)
# RadioButton Extern alle
$ExternAlle.Location = New-Object System.Drawing.Size(25,70)
$ExternAlle.Size = New-Object System.Drawing.Size(380,20)
$ExternAlle.TabIndex = 12
$GroupBox1.Controls.Add($ExternAlle)
# Checkbox Zeitintervall
$Zeit.Location = New-Object System.Drawing.Size(10,100)
$Zeit.Size = New-Object System.Drawing.Size(370,20)
$Zeit.add_Click({Button_Status})
$Zeit.TabIndex = 13
$GroupBox1.Controls.Add($Zeit)
# StartzeitFeld einbauen
$ZeitStart.Location = New-Object System.Drawing.Size(100,130)
$ZeitStart.Size = New-Object System.Drawing.Size(70,20)
$ZeitStart.CustomFormat = "HH:mm"
$ZeitStart.Format = 'Custom'
$ZeitStart.Name = "Startzeit"
$TextZeitStart.TabIndex = 14
$ZeitStart.ShowUpDown = $true
$GroupBox1.Controls.Add($ZeitStart)
# StartdatumFeld einbauen
$DatumStart.Location = New-Object System.Drawing.Size(180,130)
$DatumStart.Size = New-Object System.Drawing.Size(130,20)
$DatumStart.CustomFormat = " ddd dd.MM.yyyy"
$DatumStart.Format = 'Custom'
$DatumStart.Name = "Startdatum"
$DatumStart.TabIndex = 15
$GroupBox1.Controls.Add($DatumStart)
# EndzeitFeld einbauen
$ZeitEnde.Location = New-Object System.Drawing.Size(100,160)
$ZeitEnde.Size = New-Object System.Drawing.Size(70,20)
$ZeitEnde.CustomFormat = "HH:mm"
$ZeitEnde.Format = 'Custom'
$ZeitEnde.Name = "Endzeit"
$ZeitEnde.TabIndex = 16
$ZeitEnde.ShowUpDown = $true
$GroupBox1.Controls.Add($ZeitEnde)
# EnddatumFeld einbauen
$DatumEnde.Location = New-Object System.Drawing.Size(180,160)
$DatumEnde.Size = New-Object System.Drawing.Size(130,20)
$DatumEnde.CustomFormat = " ddd dd.MM.yyyy"
$DatumEnde.Format = 'Custom'
$DatumEnde.Name = "Enddatum"
$DatumEnde.TabIndex = 17
$GroupBox1.Controls.Add($DatumEnde)
# Ausgabetextfeld bauen
$Ausgabe1.Location = New-Object System.Drawing.Size(5,25)
$Ausgabe1.Size = New-Object System.Drawing.Size(200,150)
$Ausgabe1.Font = $Font
$GroupBox4.Controls.Add($Ausgabe1)
# Ststusbild anzeigen lassen
$ToolTip.SetToolTip($StatusBild, "Out of Office Status")
$StatusBild.Location = New-Object System.Drawing.Size(225,25)
$StatusBild.SizeMode = "AutoSize"
$StatusBild.Text = "Out of Office Status"
$StatusBild.TabIndex = 21
$GroupBox4.Controls.Add($StatusBild)
#########################################################################################################################################
# Erweiterte optionen
# Checkbox Zeitintervall
$Weiterleitung.Location = New-Object System.Drawing.Size(10,25)
$Weiterleitung.Size = New-Object System.Drawing.Size(320,20)
$Weiterleitung.Enabled = $false
$Weiterleitung.add_Click({Button_Status})
$Weiterleitung.TabIndex = 13
$GroupBox6.Controls.Add($Weiterleitung)
$WeiterleitungMail.Location = New-Object System.Drawing.Size(25,45)
$WeiterleitungMail.Size = New-Object System.Drawing.Size(300,20)
$WeiterleitungMail.AutoCompleteMode = 3
$WeiterleitungMail.AutoCompleteSource = 256
$WeiterleitungMail.DataBindings.DefaultDataSourceUpdateMode = 0
$WeiterleitungMail.FormattingEnabled = $True
$WeiterleitungMail.TabIndex = 1
$WeiterleitungMail.Enabled = $false
$GroupBox6.Controls.Add($WeiterleitungMail)
$WeiterleitungMailKopie.Location = New-Object System.Drawing.Size(25,70)
$WeiterleitungMailKopie.Size = New-Object System.Drawing.Size(340,40)
$WeiterleitungMailKopie.Enabled = $false
$WeiterleitungMailKopie.add_Click({Button_Status})
$WeiterleitungMailKopie.TabIndex = 13
$GroupBox6.Controls.Add($WeiterleitungMailKopie)
#########################################################################################################################################
# Aktion für automatsiche Anmledung ausführen
<# Dies ist keine Funktion. Ist der Wert zur Automatischen anmeldung auf "Yes" festgelegt, so wird unmittelbar nach Programmstart die Anmeldung ausgeführt!#>
if (($LogOnatStart -eq "Yes") -and ($SetServername -gt 0) -and ($LoggedOnUser -eq "Yes"))
{
Anmelden
}
if ($LogOnatStart -eq "no")
{
$Ausgabe1.Text = $MsgAutoLogonDisabeld
$Fenster0.hide()
}
if (($LogOnatStart -eq "Yes") -and ($SetServername -lt 0) -and ($LoggedOnUser -eq "No"))
{
$AutoLogonFail = [Windows.Forms.MessageBox]
$AutoLogonFail::Show($MsgAutoLogonFailedText , $MsgAutoLogonFailedTitle, "OK", "Error")
}
if (($LogOnatStart -eq "Yes") -and ($SetServername -lt 0) -and ($LoggedOnUser -eq "Yes"))
{
$AutoLogonFail = [Windows.Forms.MessageBox]
$AutoLogonFail::Show($MsgAutoLogonFailedText , $MsgAutoLogonFailedTitle, "OK", "Error")
}
#########################################################################################################################################
# Fenster anzeigen lassen
[System.Windows.Forms.Application]::Run($Fenster1)
[System.Windows.Forms.Application]::EnableVisualStyles()
[System.Windows.Forms.Application]::DoEvents()
$Fenster1.Add_Shown({$Fenster1.Activate()})
$notifyIcon.Dispose()
Click edit button to change this text.
Hallo zusammen,
ich bekomme die Textfelder für die Nachrichten nicht angezeigt, kennt jemand dieses Phänomen und weiß Abhilfe?!
Vielen Dank
Hallo Andi,
vielen Dank für Dein Tool. Ich habe noch ein bisschen was daran gebastelt, sodass Ich per AD Gruppe steuern kann welcher Abteilungsleiter Konfigurationen für welchen Mitarbeiter vornehmen kann, aber ohne Dein Tool wäre ich ganz sicher daran verzweifelt.
Viele Grüße
Johannes
Klasse Tool.
Ich kann leider keine Abwesenheit editieren, ob wohl GvS.Controls.HtmlTextbox.dll im Verzeichnis liegt. Es wird gar nichts angezeigt.
Gibt es da noch einen weiteren Trick?
Verwende das Tool unter Win10Pro
Hallo
super Tool, vielen Dank dafür
Ich habe nur eine Frage: In welchem Format muss man im ini File die OU angeben?
Vielen Dank
Michael
Vielen Dank für das tolle Skript. Ich war schon drauf und dran das Rad neu zu erfinden und stieß bei den Recherchen auf dieses fantastische Tool.
Da wir mit der Mitarbeiter/Vorgesetzten Hierarchie im AD arbeiten, wollten wir (eigentlich) den Vorgesetzten die Möglichkeit geben die Anforderung zu Abwesenheitsnotizen selbst einzutragen. Die Combobox also nur mit den Kontakten zu füllen, die mir als Mitarbeiter eingepflegt sind. So eine Art Self-Service
Es breitet sich immer eine gewisse Panik aus, wenn Mitarbeiter in Schlüsselpositionen ihre E-Mails unvorhergesehen nicht mehr abrufen können.
Danke nochmals und alles Gute!
Sieht erstmal gut aus. Programm startet aber leider werden nur „normale“ Benutzerpostfächer angezeigt. Wir arbeiten aber nur mit linked Mailboxen. Die fehlen in der Auflistung. Gibt es einen Trick oder Anpassung wie die linked Mailboxen angezeigt werden können?
Vielen Dank für das Tool. Allerdings ist nicht bei allen Usern die Benutzerliste gefüllt, sondern leer. Die Powershell 5.1 ist installiert. Am selben Gerät als anderer Benutzer wird die Liste auch angezeigt. An anderen Geräten mit dem vorherigen Benutzer funktioniert es ebenfalls.
Gibt es irgendeine Einstellung, die noch als Benutzer in Windows oder im Profil vorgenommen werden muss?
Prima Tool. Einen Verbesserungswusch hätte ich aber noch. Viele unserer Benutzer haben eine Regel eingetragen, die eine Abwesenheitsmail bei JEDER eingehenden Mail versendet. Es wäre schön, wenn man diese Regel im Scripts auch noch einmal einlesen/bearbeiten könnte
Hey Lars,
das geht leider nicht.
Andi
Hallo Andi,
gibt es eine Möglickeit das Tool „out of Office“ auch komplett im Vollbildmodus zu betreiben?
Gruß Markus
Hey Markus,
nein bisher nicht.
LG
Hallo Andi, vielen Dank für das tolle Tool, wir setzen es erfolgreich in unserer Behörde ein.
Zwei Vorschläge hätte ich: da wir im AD auf mehrere OUs verteilt sind, wäre es schön, wenn man in der INI-Datei mehrere OUs angeben könnte. Im Programm dann am besten mit einer Auswahl welche der konfigurierten OUs eingelesen werden soll. Das ist nämlich nur im Vertretungsfall (je OU ein Admin) nötig. Die gesamte Domäne wäre aber wieder zuviel, da noch weitere Behörden in der selben Domäne sind.
Auserdem wäre es schön, wenn man gleich ein paar vorgefertigte Texte für die Abwesenheit abspeichern könnte und bei Auswahl eines gespeicherten Textes dieser gleich in die Zwischenablage kopiert wird. So braucht man die Vorlage nur noch in die Text-Boxen kopieren und anzupassen. Zur Zeit speichern wir die Vorlage in einer Text-Datei.
Viele Grüße und weiter so.
Hallo Andi,
super Script (v2.3).
Leider kommt bei mir in Zeile 1393 folgender Fehler:
In …\Downloads\OOO_2.3\OOO_2.3.ps1:1393 Zeichen:25
+ $ExitBild.add_mouseclick{Abmelden}
+ ~
Unerwartetes Token „{“ in Ausdruck oder Anweisung.
+ CategoryInfo : ParserError: (:) [], ParentContainsErrorRecordException
+ FullyQualifiedErrorId : UnexpectedToken
Ist das nur bei meinem download so?
Sorry,
habe es auf einem Win7 (mit Powershell v3) getestet.
Auf Win10 (mit PowerShell v5) funktioniert es.
Freut mich! Viel spaß damit!
Andi
Hallo Andres, leider ist mein Post von heute Vormittag verschwunden. Ich habe das Problem, das die Abwesenheitsmeldung mit einem Zeitversatz von +2 Stunden erstellt wird(Office 365). Danke für einen Tip. Gruss René
Hallo Andres, vielen Dank für das Script. Nach Speichern/aktualisieren wird nur die Nachricht für interne Empfänger gesetzt. Als Zusatzoptionen ist die CheckBox „Auch an Absender ausserhalb der Organisation senden“ aktiviert. Zudem wird der Responder mit einem Zeitversatz von 2 Stunden eingestellt. Ich stelle im Tool als Startzeit 10:55 ein, im Autoresponder wird aber 12:55 eingetragen.
Hallo Andi,
Vielen Dank, dass Du Dein tolles Tool mit uns teilst. Nun ist es wesentlich einfacher und datenschutzkonform, eine Abwesenheitsnotiz für einen Mitarbeiter zu erstellen, der bereits abwesend ist.
Viele Grüße,
Nick
Hi Andi,
erst mal danke für das geniale Tool. Dieses erleichtert uns Admins doch das Leben wieder ein wenig mehr :)
Ich habe bei dem Tool das Phänomen das mir manchmal nach dem Starten der Editor für die Abwesenheitsnotizen nicht angezeigt wird. Der Editor wird hier dann augenscheinlich nicht eingebunden. Nach mehrmaligen starten des Tools funktioniert es dann wieder.
Vielleicht hast du ja einen Lösungsansatz für mich?
Mit freundlichem Gruß aus Rietberg
Mathias
Hi Andi,
auch unter Windows Server 2012 R2 greift der Tipp von Stefan. Nachdem ich die Dateien zugelassen haben funktioniert das Script einwandfrei.
Cooles Tool. Aber es heißt „Reply“ und nicht „Replay“ ;)
Hallo,
ein wirklich tolles Tool! Für unsere Einsatzzwecke müssten wir kleine Veränderungen an der .ps1 Datei vornehmen. Sobald ich diese dann als .exe Datei umwandele und starte, erscheint im Hintergrund die geöffnete CMD. Hast du einen Tip wie sich dies verhindern lässt? Das exportieren geschieht übrigens über das Tool PowerShellStudio.
Beste Grüße und weiter so!
Danke :)
Schau doch mal hier:
https://asichel.de/2016/08/12/powershell-to-exe-so-entstehen-meine-tools/
LG Andi