Untitled

<#
Name......: Autoreply.ps1
Version...: 21.10.1
Author....: Dario CORRADA

This script sets an autoreply message in Outlook. In the following example I will set an autoreply from 04:00pm to 09:00am of the day after.
see also https://superuser.com/questions/1683334/scheduled-autoreply/1683591#1683591
#>

# elevated script execution with admin privileges
$currentUser = New-Object Security.Principal.WindowsPrincipal $([Security.Principal.WindowsIdentity]::GetCurrent())
$testadmin = $currentUser.IsInRole([Security.Principal.WindowsBuiltinRole]::Administrator)
if ($testadmin -eq $false) {
    Start-Process powershell.exe -Verb RunAs -ArgumentList ('-noprofile -file "{0}" -elevated' -f ($myinvocation.MyCommand.Definition))
    exit $LASTEXITCODE
}

# get working directory
$fullname = $MyInvocation.MyCommand.Path
$fullname -match "([a-zA-Z_\-\.\\\s0-9:]+)\\Autoreply\.ps1$" > $null
$workdir = $matches[1]

# header
$ErrorActionPreference= 'SilentlyContinue'
Set-ExecutionPolicy -Scope LocalMachine -ExecutionPolicy Bypass -Force
Write-Host "ExecutionPolicy Bypass" -fore Green
$ErrorActionPreference= 'Inquire'
$WarningPreference = 'SilentlyContinue'
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
Add-Type -AssemblyName PresentationFramework
Import-Module -Name "$workdir\Modules\Forms.psm1"

# import the EXO V2 module
$ErrorActionPreference= 'Stop'
try {
    Import-Module ExchangeOnlineManagement
} catch {
    Install-Module ExchangeOnlineManagement -Confirm:$False -Force
    Import-Module ExchangeOnlineManagement
}
$ErrorActionPreference= 'Inquire'

$answ = [System.Windows.MessageBox]::Show("Close Outlook client and then click Ok...",'WARNING','Ok','Warning')

# get credentials
$form = FormBase -w 520 -h 270 -text "ACCOUNT"
$font = New-Object System.Drawing.Font("Arial", 12)
$form.Font = $font
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,20)
$label.Size = New-Object System.Drawing.Size(500,30)
$label.Text = "Username:"
$form.Controls.Add($label)
$usrname = New-Object System.Windows.Forms.TextBox
$usrname.Location = New-Object System.Drawing.Point(10,60)
$usrname.Size = New-Object System.Drawing.Size(450,30)
$form.Controls.Add($usrname)
$label2 = New-Object System.Windows.Forms.Label
$label2.Location = New-Object System.Drawing.Point(10,100)
$label2.Size = New-Object System.Drawing.Size(500,30)
$label2.Text = "Password:"
$form.Controls.Add($label2)
$passwd = New-Object System.Windows.Forms.MaskedTextBox
$passwd.PasswordChar = '*'
$passwd.Location = New-Object System.Drawing.Point(10,140)
$passwd.Size = New-Object System.Drawing.Size(450,30)
$form.Controls.Add($passwd)
$OKButton = New-Object System.Windows.Forms.Button
OKButton -form $form -x 200 -y 190 -text "Ok"
$form.Topmost = $true
$result = $form.ShowDialog()

# setting autoreply
$username = $usrname.Text
$username -match "^([a-zA-Z_\-\.\\\s0-9:]+)@.+$" > $null
$unique = $matches[1]
$password = ConvertTo-SecureString $passwd.Text -AsPlainText -Force
$UserCredential = New-Object System.Management.Automation.PSCredential -ArgumentList ($username, $password)
Connect-ExchangeOnline -Credential $UserCredential
$message = @'
<html> <body> <div  style="font-family:Calibri,Arial,Helvetica,sans-serif; font-size:12pt; color:rg b(0,0,0)">
<p>Hi there,</p>
<p>currently I am out of office.</p>
<p>I will be available from monday to friday, 09:00-16:00. Preferably, I will reply to your email in such period.</p>
<p>Kind regards</p>
</div> </body> </html>
'@
Set-MailboxAutoReplyConfiguration -Identity $unique -AutoReplyState "Scheduled" -ExternalMessage $message -InternalMessage $message -StartTime (Get-Date -Hour 16 -Minute 0 -Second 0) -EndTime (((Get-Date -Hour 9 -Minute 0 -Second 0).AddDays(1))) -ExternalAudience All