使用 powershell 将 Outlook 日历导出到 iCalendar 匿名

问：

正常的日历条目导出为精细且无神秘化，但不会导出约会系列。有没有人知道如何在没有 3party 工具的情况下解决这个问题？

我的代码如下所示：

# Create Outlook application
$outlook = New-Object -ComObject Outlook.Application

# Open calendar folder (default calendar)
$calendar = $outlook.Session.GetDefaultFolder(9)

# Export file path
$exportFilePath = "C:\AnonymizedCalendar.ics"

# Number of days before and after the current date for the time frame
$daysBefore = 10  # Adjust the number of days before
$daysAfter = 60   # Adjust the number of days after

# Calculate the start and end dates based on the days before and after
$startDate = (Get-Date).AddDays(-$daysBefore)
$endDate = (Get-Date).AddDays($daysAfter)

# Open the export file and add the iCalendar header
$icalHeader = "BEGIN:VCALENDAR
VERSION:2.0"
$icalFooter = "END:VCALENDAR"
$icalData = $icalHeader

# Function to anonymize text
function Anonymize-Text($text) {
    return "Work"  # Replace "Work" with your desired anonymization
}

# Function to convert DateTime to iCalendar format
function Convert-To-iCalendarDateTime($dateTime) {
    return $dateTime.ToUniversalTime().ToString("yyyyMMddTHHmmssZ")
}

# Iterate through all calendar events and export them
$calendar.Items | ForEach-Object {
    $item = $_
    if ($item.Start -le $endDate -and $item.End -ge $startDate) {
        $subject = Anonymize-Text($item.Subject)  # Anonymize the text
        $uid = [System.Guid]::NewGuid()  # Unique UID for the event

        if ($item.IsRecurring) {
            $recurrence = $item.GetRecurrencePattern()
            $range = $recurrence.GetRecurrenceRange()
            $start = $range.StartDate
            $end = $range.EndDate

            $occurrences = $recurrence.GetOccurrence()

            foreach ($occurrence in $occurrences) {
                $occurrenceDate = $occurrence.Start
                if ($occurrenceDate -ge $startDate -and $occurrenceDate -le $endDate) {
                    $start = Convert-To-iCalendarDateTime($occurrence.Start)
                    $end = Convert-To-iCalendarDateTime($occurrence.End)

                    $icalEvent = "BEGIN:VEVENT
UID:$uid
DTSTAMP:$((Get-Date).ToUniversalTime().ToString("yyyyMMddTHHmmssZ"))
DTSTART:$start
DTEND:$end
SUMMARY:$subject
END:VEVENT"

                    # Add anonymized iCalendar data to the iCalendar header
                    $icalData += "`r`n$icalEvent"
                }
            }
        } else {
            $start = Convert-To-iCalendarDateTime($item.Start)
            $end = Convert-To-iCalendarDateTime($item.End)

            $icalEvent = "BEGIN:VEVENT
UID:$uid
DTSTAMP:$((Get-Date).ToUniversalTime().ToString("yyyyMMddTHHmmssZ"))
DTSTART:$start
DTEND:$end
SUMMARY:$subject
END:VEVENT"

            # Add anonymized iCalendar data to the iCalendar header
            $icalData += "`r`n$icalEvent"
        }
    }
}

# Add iCalendar footer
$icalData += "`r`n$icalFooter"

# Write iCalendar data to the file
$icalData | Out-File -FilePath $exportFilePath -Encoding utf8

• 谷歌
• ChatGPT的 等。

问题是，它应该在没有管理员权限的情况下使用默认的 Windows 工具运行。所以没有第三方工具。