kspeeckaert/Set-OOO.ps1

## Set-OOO.ps1
#Requires -Module ExchangeOnlineManagement
#Requires -Module BurntToast

$UPN = 'john.appleseed@apple.com'
$DateFormatCulture = [CultureInfo]'en-GB'

# This has to be at the top, before the calendar, to avoid the 'single thread apartment' error
Write-Host 'Connecting to Exchange Online...'
Connect-ExchangeOnline -UserPrincipalName $UPN

# Taken from: https://www.sapien.com/blog/2009/08/24/writing-form-centered-scripts-with-primalforms/
$DatesOOO = Invoke-Expression ".\Get-GuiDate.ps1 -DisplayMode 1 -FirstDayofWeek Monday -WeekNumbers -Title 'Select Out Of Office dates'"

$StartDateTime = $DatesOOO[0]
$EndDateTime = $DatesOOO[-1].AddDays(1).AddSeconds(-1)

$OooMessageInternal =
@"
<html>
<body>
<div>
<p>
Hello,
</p>
<p>
As you might have noticed, I am not in the office! I'll be back on <b>$($EndDateTime.AddSeconds(1).ToString('dddd, MMMM dd yyyy', $DateFormatCulture))</b>.
</p>
<p>
See you!<br>
John
</p>
</div>
</body>
</html>
"@


$OooMessageExternal =
@"
<html>
<body>
<div>
<p>
Hello,
</p>
<p>
I am currently out of the office, returning <b>$($EndDateTime.AddSeconds(1).ToString('dddd, MMMM dd yyyy', $DateFormatCulture))</b>.
</p>
<p>
Best regards,<br>
John Appleseed
</p>
</div>
</body>
</html>
"@

try {
    Set-MailboxAutoReplyConfiguration `
        -Identity $UPN `
        -AutoDeclineFutureRequestsWhenOOF $true `
        -AutoReplyState Scheduled `
        -StartTime $StartDateTime.ToUniversalTime() `
        -EndTime $EndDateTime.ToUniversalTime() `
        -ExternalMessage $OooMessageExternal `
        -InternalMessage $OooMessageInternal

    $MbxConfig = Get-MailboxAutoReplyConfiguration -Identity $UPN
    New-BurntToastNotification `
        -AppLogo outlook.png `
        -Text "Out of Office activated!",
            "From $($MbxConfig.StartTime.ToString('dddd, MMMM dd', $DateFormatCulture)) until $($MbxConfig.EndTime.ToString('dddd, MMMM dd', $DateFormatCulture)) (included)"

}
finally {
    Disconnect-ExchangeOnline -Confirm:$false | Out-Null
}
	#Requires -Module ExchangeOnlineManagement
	#Requires -Module BurntToast

	$UPN = 'john.appleseed@apple.com'
	$DateFormatCulture = [CultureInfo]'en-GB'

	# This has to be at the top, before the calendar, to avoid the 'single thread apartment' error
	Write-Host 'Connecting to Exchange Online...'
	Connect-ExchangeOnline -UserPrincipalName $UPN

	# Taken from: https://www.sapien.com/blog/2009/08/24/writing-form-centered-scripts-with-primalforms/
	$DatesOOO = Invoke-Expression ".\Get-GuiDate.ps1 -DisplayMode 1 -FirstDayofWeek Monday -WeekNumbers -Title 'Select Out Of Office dates'"

	$StartDateTime = $DatesOOO[0]
	$EndDateTime = $DatesOOO[-1].AddDays(1).AddSeconds(-1)

	$OooMessageInternal =
	@"
	<html>
	<body>
	<div>
	<p>
	Hello,
	</p>
	<p>
	As you might have noticed, I am not in the office! I'll be back on <b>$($EndDateTime.AddSeconds(1).ToString('dddd, MMMM dd yyyy', $DateFormatCulture))</b>.
	</p>
	<p>
	See you!<br>
	John
	</p>
	</div>
	</body>
	</html>
	"@


	$OooMessageExternal =
	@"
	<html>
	<body>
	<div>
	<p>
	Hello,
	</p>
	<p>
	I am currently out of the office, returning <b>$($EndDateTime.AddSeconds(1).ToString('dddd, MMMM dd yyyy', $DateFormatCulture))</b>.
	</p>
	<p>
	Best regards,<br>
	John Appleseed
	</p>
	</div>
	</body>
	</html>
	"@

	try {
	Set-MailboxAutoReplyConfiguration `
	-Identity $UPN `
	-AutoDeclineFutureRequestsWhenOOF $true `
	-AutoReplyState Scheduled `
	-StartTime $StartDateTime.ToUniversalTime() `
	-EndTime $EndDateTime.ToUniversalTime() `
	-ExternalMessage $OooMessageExternal `
	-InternalMessage $OooMessageInternal

	$MbxConfig = Get-MailboxAutoReplyConfiguration -Identity $UPN
	New-BurntToastNotification `
	-AppLogo outlook.png `
	-Text "Out of Office activated!",
	"From $($MbxConfig.StartTime.ToString('dddd, MMMM dd', $DateFormatCulture)) until $($MbxConfig.EndTime.ToString('dddd, MMMM dd', $DateFormatCulture)) (included)"

	}
	finally {
	Disconnect-ExchangeOnline -Confirm:$false \| Out-Null
	}