如何将Python实现的Outlook参会人格式化功能集成到Outlook宏并绑定快捷键/右键菜单

方案1：调用现有Python脚本实现（无需修改你的Python逻辑） #

Windows系统和Outlook自带的能力即可实现，无需安装任何第三方软件，步骤如下：

1. 把你写的Python函数整理为独立脚本，保存到本地无权限限制的目录，比如C:\Users\你的用户名\Documents\outlook_invite_tool.py，内容参考：

import re
import sys

def format_invitees(string):
    return ''.join(x.strip(' \n')+'\n' for x in re.sub("[<].*?[>]", "", string).replace(' ; ', ';').split(';')).strip('\n')

if __name__ == "__main__":
    input_str = sys.argv[1]
    print(format_invitees(input_str))

2. 打开Outlook，按Alt+F11调出VBA编辑器，右键点击左侧的「VBAProject (OTM文件)」，选择「插入」-「模块」，粘贴如下VBA代码：

Sub 提取参会人列表()
    Dim curItem As Object
    Dim inputStr, pythonPath, scriptPath, command, result As String
    Dim shellObj, execObj As Object
    
    ' 读取当前打开的会议邀请收件人字段
    If TypeName(ActiveWindow) = "Inspector" Then
        Set curItem = ActiveInspector.CurrentItem
        inputStr = curItem.To
    Else
        MsgBox "请先打开目标会议邀请窗口", vbExclamation
        Exit Sub
    End If
    
    ' 替换为你本地的Python路径和脚本路径，Python路径可在CMD执行where python获取
    pythonPath = "C:\Python310\python.exe"
    scriptPath = "C:\Users\你的用户名\Documents\outlook_invite_tool.py"
    
    ' 构造执行命令，处理引号转义
    command = pythonPath & " " & scriptPath & " """ & Replace(inputStr, """", """""") & """"
    
    ' 执行脚本获取结果
    Set shellObj = CreateObject("WScript.Shell")
    Set execObj = shellObj.Exec(command)
    result = execObj.StdOut.ReadAll()
    
    ' 将格式化后的列表写入邮件正文光标位置
    curItem.GetInspector.WordEditor.Application.Selection.TypeText result
End Sub

3. 绑定快捷键/添加到右键菜单：

• 快捷键绑定：打开Outlook「文件」-「选项」-「自定义功能区」，点击底部「键盘快捷方式：自定义」，在类别中选择「宏」，选中刚创建的提取参会人列表宏，指定自定义快捷键后保存即可。
• 右键菜单添加：同样在「自定义功能区」设置页，左侧下拉框选择「宏」，找到对应宏后添加到你需要的右键菜单组中即可。

方案2：纯VBA实现（无需依赖Python环境，更稳定） #

如果你担心Python执行权限问题，我把你的Python逻辑直接转成了VBA原生实现，完全无需调用外部程序，直接把下面代码粘贴到VBA模块中即可使用，绑定快捷键/添加右键菜单的方法和上面一致：

Sub 提取参会人列表_纯VBA版()
    Dim curItem As Object
    Dim inputStr, result As String
    Dim regex As Object
    Dim nameArr, i As Variant
    
    If TypeName(ActiveWindow) = "Inspector" Then
        Set curItem = ActiveInspector.CurrentItem
        inputStr = curItem.To
    Else
        MsgBox "请先打开目标会议邀请窗口", vbExclamation
        Exit Sub
    End If
    
    ' 正则移除邮箱地址
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.Pattern = "<.*?>"
    inputStr = regex.Replace(inputStr, "")
    inputStr = Replace(inputStr, " ; ", ";")
    
    ' 拆分生成每行一个的姓名列表
    nameArr = Split(inputStr, ";")
    result = ""
    For i = LBound(nameArr) To UBound(nameArr)
        If Trim(nameArr(i)) <> "" Then
            result = result & Trim(nameArr(i)) & vbCrLf
        End If
    Next
    
    ' 写入正文光标位置
    curItem.GetInspector.WordEditor.Application.Selection.TypeText result
End Sub

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