PowerShell脚本统计Outlook邮件关键词计数异常求助

核心问题分析 #

你的计数翻倍问题并非来自Outlook邮件的关键词检测，而是Excel写入逻辑的重复累加：

• 脚本中先执行了$Feuille.Cells.Item(1, 2) = $CompteurBasc，将本次检测的计数直接写入B1单元格
• 随后又读取B1的当前值（此时已经是本次计数），再与$CompteurBasc相加，最终写入的是$CompteurBasc * 2的结果

这就导致无论单封邮件是否含关键词，最终统计结果都会翻倍。

修复后的完整脚本 #

# 加载Outlook组件
Add-Type -AssemblyName Microsoft.Office.Interop.Outlook

# 初始化Outlook实例
$Outlook = New-Object -ComObject Outlook.Application

# 获取收件箱
$Inbox = $Outlook.Session.GetDefaultFolder([Microsoft.Office.Interop.Outlook.OlDefaultFolders]::olFolderInbox)

# 定义目标关键词
$Bascules = "Bascule OK"

# 初始化计数器
$CompteurBasc = 0

# 遍历未读邮件
$Inbox.Items | Where-Object { $_.UnRead -eq $true } | ForEach-Object {
    if ($_ -is [Microsoft.Office.Interop.Outlook.MailItem]) {
        # 检测邮件正文是否包含关键词，单封邮件仅计数一次
        if ($_.Body -like "*$Bascules*") {
            $CompteurBasc++
        }
        # 可选：打印邮件正文用于调试，若不需要可注释
        # Write-Host $_.Body
    }
}   

# 定义Excel文件路径
$CheminFichierExcel = "D:\PowerShell\GestionMails\donnees.xlsx"

# 初始化Excel实例
$Excel = New-Object -ComObject Excel.Application
# 可选：设置Excel可见，调试时启用
# $Excel.Visible = $true

# 打开目标Excel文件
$Classeur = $Excel.Workbooks.Open($CheminFichierExcel)

# 选择第一个工作表
$Feuille = $Classeur.Sheets.Item(1)

# 读取B1单元格的历史累计值
$ValeurExistante = $Feuille.Range("B1").Value()

# 处理空值或非数值情况
if ([string]::IsNullOrEmpty($ValeurExistante)) {
    $ValeurExistante = 0
} else {
    $ValeurExistante = [double]([string]$ValeurExistante)
}

# 计算新的累计值：历史值 + 本次检测计数
$NouvelleValeur = $ValeurExistante + $CompteurBasc

# 写入表头（仅首次运行需要？若文件已存在表头可注释）
$Feuille.Cells.Item(1, 1) = "Bascules"
# 写入最终累计值到B1
$Feuille.Range("B1").Value() = $NouvelleValeur

# 保存并关闭Excel
$Classeur.Save()
$Excel.Quit()

# 关闭Outlook并释放内存
$Outlook.Quit()
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

exit

额外优化建议 #

• 避免无效输出：注释掉Write-Host $_.Body可提升脚本运行效率，仅在调试时启用
• 匹配规则调整：若需要不区分大小写的关键词检测，可将-like改为-ilike；若需严格大小写匹配则用-clike
• Excel调试可视化：调试时可启用$Excel.Visible = $true，方便实时查看写入结果

内容的提问来源于stack exchange，提问作者Antoinemrl