Powershell EWS Kalendereintrag aus Mail erstellen

$Error.Clear()
#-------------------------------------------------------------------------------------------------------------------------------------------
# Script zum Laden und Vergleichen von Outlook-Kalenderdaten
#-------------------------------------------------------------------------------------------------------------------------------------------
# Festlegung des Arbeitsverzeichnisses
$scriptDirectory = Split-Path -Parent $MyInvocation.MyCommand.Path
Set-Location -Path $scriptDirectory

# Outlook-Kalendername
$mailboxName = "Wartungskalender_PF@abc.de"  

# Wie weit das Script in die Zukunft schaut
$zukunfttage = 30

# Pfad zur EWS-Datei
$EWSPath = Join-Path $scriptDirectory "lib\Microsoft.Exchange.WebServices.dll"  
$HtmlAgilityPack = Join-Path $scriptDirectory "lib\Net40\HtmlAgilityPack.dll"  

# Einbinden der EWS-Module
Import-Module $HtmlAgilityPack
Import-Module $EWSPath
Add-Type -Path $EWSPath
$version = [Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2015_SP2
$service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService($version)
$service.AutodiscoverUrl($mailboxName)

# Funktion zum Erstellen eines Kalendereintrags
function CreateCalendarEntry($subject, $body, $start, $end, $category) {
    $calendarId = new-object Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Calendar, $mailboxName)
    Write-Host $service
    $appointment = New-Object Microsoft.Exchange.WebServices.Data.Appointment($service)
    $appointment.Subject = $subject
    #$appointment.Body = $body
    $appointment.Start = $start
    $appointment.End = $end
    $appointment.Categories.Add($category)
    $appointment.Save([Microsoft.Exchange.WebServices.Data.SendInvitationsMode]::SendToNone)
}

function GF-MailtoCal {
       
    #$Inbox = [Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox, $mailboxName
    #$Inbox = new-object Microsoft.Exchange.WebServices.Data.Inbox([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox, $mailboxName)
    $Inbox = new-object Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::Inbox, $mailboxName)
    $Viewmail = New-Object Microsoft.Exchange.WebServices.Data.ItemView(50)  # Anzahl der Nachrichten anpassen
    

    $EmailItems = $service.FindItems($Inbox, $Viewmail)
    #echo $EmailItems.Items
    #Write-Host $FindResults
    foreach ($Email in $EmailItems.Items) {
        #Write-Host "DIE EMAIL IST: $Email"  
        $MailSubject = $Email.Subject
        $MailBody = $Email.Body.Text
        $MailIsRead = $Email.IsRead
        $SenderAddress = $Email.From.Address.ToLower()
        $starttime = "26.09.2023 10:00:00"  
        $endtime = "26.09.2023 10:00:00"  
        $dateTimestart = [DateTime]::ParseExact($starttime, "dd.MM.yyyy HH:mm:ss", $null)  
        $dateTimeend = [DateTime]::ParseExact($endtime, "dd.MM.yyyy HH:mm:ss", $null)  
        
        if ($MailIsRead -match "False" -and $MailSubject -notmatch "AW:" -and $MailSubject -notmatch "FW:"){  
        
            # Überprüfen, ob die E-Mail von Team1 stammt
            if ($SenderAddress -eq "ich@abc.de") {  
                Write-Host "Das Subject der Mail ist: $MailSubject"  
                Write-Host "Sauber - Markus hat geschrieben"  
                CreateCalendarEntry $MailSubject "" $dateTimestart $dateTimeend "Kat1"  


                # E-Mail als gelesen markieren
                #$Email.IsRead = $true
                #$Email.Update([Microsoft.Exchange.WebServices.Data.ConflictResolutionMode]::AlwaysOverwrite)
                
            }
        }

    }
    
}