嘿，这个问题我太有共鸣了——Outlook的自动完成确实帮我们省了不少打字的功夫，但时间一长，那些半年甚至一年没联系过的邮箱地址还躺在列表里，一不小心就选错人。遗憾的是Outlook本身并没有自带「按时间自动清理长期未使用地址」的原生功能，但我们可以通过两种方式实现这个需求：

方法一：手动导出清理+Windows任务计划定期触发（适合不想写代码的用户） #

这个方法是利用Outlook的导出/导入功能，结合Excel筛选和系统任务计划来实现自动化：

• 第一步，导出自动完成列表：打开Outlook，点击「文件」>「选项」>「邮件」，在「发送邮件」区域找到「使用自动完成列表建议收件人姓名」，点击「清空自动完成列表」旁边的「导出到文件」，把列表导出成.csv格式。
• 第二步，用Excel筛选有效地址：打开导出的csv文件，找到「Last Used Time」（最后使用时间）列，筛选出近3个月内有记录的地址，把这些地址保存成一个新的.csv文件。
• 第三步，设置任务计划定期执行：用Windows任务计划创建一个定时任务，定期运行Excel宏来完成筛选替换，再自动把清理后的csv文件导入回Outlook（导入按钮就在导出按钮旁边）。
• 小提示：不同版本的Outlook导出的csv字段可能略有差异，记得确认「最后使用时间」字段存在后再操作。

方法二：用VBA脚本自动清理（更高效的自动化方案） #

如果你能接受写点简单的VBA代码，这个方案会更直接，不需要手动导出导入：

1. 打开Outlook，按下Alt + F11打开VBA编辑器。
2. 在左侧「项目」窗口右键点击你的邮箱项目，选择「插入」>「模块」。
3. 粘贴下面的脚本：

Sub CleanupOldAutoCompleteEntries()
    Dim objNS As NameSpace
    Dim objRecipients As Recipients
    Dim objRecip As Recipient
    Dim dtCutoff As Date
    Dim i As Integer
    
    ' 设置清理阈值：删除3个月前未使用的地址
    dtCutoff = DateAdd("m", -3, Now())
    
    Set objNS = Application.GetNamespace("MAPI")
    Set objRecipients = objNS.Session.AutoCompleteEntries
    
    ' 倒序遍历，避免删除时索引混乱
    For i = objRecipients.Count To 1 Step -1
        Set objRecip = objRecipients.Item(i)
        ' 检查最后修改/使用时间是否早于阈值
        If objRecip.LastModificationTime < dtCutoff Then
            objRecipients.Remove i
        End If
    Next i
    
    MsgBox "自动完成列表清理完成！已删除超过3个月未使用的地址。", vbInformation
    
    ' 释放对象
    Set objRecip = Nothing
    Set objRecipients = Nothing
    Set objNS = Nothing
End Sub

4. 保存脚本后，你可以设置触发条件：比如每次启动Outlook时自动执行这个宏，或者用Windows任务计划定期调用（需要先在Outlook的「信任中心」>「宏设置」里启用宏功能，建议选择「通知数字签名的宏」，安全性更高）。

• 小补充：如果想要完全自动定期运行，VBA本身没有内置定时功能，可以结合Outlook的「提醒」事件，或者用Windows任务计划调用Outlook宏来实现。

备注：内容来源于stack exchange，提问作者Ole Tange