无需第三方程序导出Outlook QuickSteps至Excel及跨账户迁移咨询

一、无需第三方工具导出QuickSteps到Excel #

Outlook没有内置直接导出到Excel的功能，但可通过内置VBA脚本实现：

1. 打开Outlook，按下Alt + F11启动VBA编辑器
2. 右键左侧项目窗格中的ThisOutlookSession，选择「插入」→「模块」
3. 将以下代码粘贴到模块窗口：

Sub ExportQuickStepsToExcel()
    Dim objQuickSteps As Outlook.QuickSteps
    Dim objQuickStep As Outlook.QuickStep
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Dim i As Integer
    
    Set objQuickSteps = Application.Session.DefaultStore.QuickSteps
    If objQuickSteps.Count = 0 Then
        MsgBox "未找到任何QuickSteps。", vbInformation
        Exit Sub
    End If
    
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    Set objWorkbook = objExcel.Workbooks.Add
    Set objWorksheet = objWorkbook.Sheets(1)
    
    ' 写入表头
    objWorksheet.Cells(1, 1).Value = "QuickStep名称"
    objWorksheet.Cells(1, 2).Value = "包含操作数"
    objWorksheet.Cells(1, 3).Value = "描述"
    
    ' 遍历并写入所有QuickSteps
    i = 2
    For Each objQuickStep In objQuickSteps
        objWorksheet.Cells(i, 1).Value = objQuickStep.Name
        objWorksheet.Cells(i, 2).Value = objQuickStep.Actions.Count
        objWorksheet.Cells(i, 3).Value = objQuickStep.Description
        i = i + 1
    Next
    
    ' 格式化表格
    objWorksheet.Rows(1).Font.Bold = True
    objWorksheet.Columns.AutoFit
    
    ' 释放对象
    Set objQuickStep = Nothing
    Set objQuickSteps = Nothing
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub

4. 点击VBA编辑器工具栏的绿色运行按钮（或按F5），脚本会自动打开Excel并填充QuickSteps数据，手动保存Excel文件即可。

二、跨账户迁移QuickSteps（无需第三方工具） #

方法1：注册表导出/导入（最简便） #

QuickSteps的配置存储在注册表中，可直接迁移：

导出（源账户）

• 完全关闭Outlook
• 按下Win + R，输入regedit打开注册表编辑器
• 导航到对应路径：
  • Outlook 365/2019/2016：HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\QuickSteps
  • Outlook 2013：HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\QuickSteps
  • Outlook 2010：HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook\QuickSteps
• 右键QuickSteps项，选择「导出」，将配置保存为.reg文件

导入（目标账户）

• 关闭目标账户的Outlook
• 双击保存的.reg文件，确认导入注册表
• 重新打开Outlook，目标账户即可看到迁移过来的QuickSteps

方法2：VBA脚本导出/导入XML配置 #

如果不想操作注册表，也可以用VBA导出QuickSteps的XML配置，再导入到目标账户：

导出脚本（源账户）

Sub ExportQuickStepsXML()
    Dim objQuickSteps As Outlook.QuickSteps
    Dim xmlContent As String
    Dim filePath As String
    
    Set objQuickSteps = Application.Session.DefaultStore.QuickSteps
    xmlContent = objQuickSteps.Xml
    
    filePath = Environ("USERPROFILE") & "\Documents\OutlookQuickSteps.xml"
    Open filePath For Output As #1
    Print #1, xmlContent
    Close #1
    
    MsgBox "QuickSteps已导出至：" & filePath, vbInformation
End Sub

运行后会在「文档」文件夹生成OutlookQuickSteps.xml文件。

导入脚本（目标账户）

Sub ImportQuickStepsXML()
    Dim objQuickSteps As Outlook.QuickSteps
    Dim xmlContent As String
    Dim filePath As String
    
    filePath = Environ("USERPROFILE") & "\Documents\OutlookQuickSteps.xml"
    Open filePath For Input As #1
    xmlContent = Input$(LOF(1), 1)
    Close #1
    
    Set objQuickSteps = Application.Session.DefaultStore.QuickSteps
    objQuickSteps.Xml = xmlContent
    
    MsgBox "QuickSteps导入完成。", vbInformation
End Sub

将导出的XML文件放到目标账户的「文档」文件夹，运行脚本即可完成导入。

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