使用Python自动填充Outlook发送触发的多选表单参数

在公司环境下使用Outlook发送邮件时，点击「发送」会触发On Action Event，弹出名为“select form”的窗口，必须从下拉菜单选择选项并点击「确定」后邮件才会发送。运行下方代码后该弹窗依然会出现，希望通过代码自动填充表单，实现无需手动干预即可完成邮件发送。

import win32com.client as win32
 
olApp = win32.Dispatch('Outlook.Application')
olNS = olApp.GetNameSpace('MAPI')
 
# construct email item object
mailItem = olApp.CreateItem(0)
mailItem.Subject = 'Hello 123'
mailItem.BodyFormat = 1
mailItem.Body = 'Hello There'
mailItem.To = '<recipient email>'
mailItem.Sensitivity  = 2
# optional (account you want to use to send the email)
mailItem._oleobj_.Invoke(*(64209, 0, 8, 0, olNS.Accounts.Item('<senders email>')))
mailItem.Display()
#mailItem.Save()
mailItem.Send()

解决方案 #

方法1：直接设置弹窗对应的自定义属性 #

这个弹窗大概率是公司自定义Outlook表单或扩展属性触发的，优先尝试找到下拉菜单对应的邮件Item属性，直接通过代码赋值：

• 通过Outlook VBA编辑器或MFCMapi工具定位该自定义属性的名称（例如可能是SelectFormOption这类标识）
• 在代码中添加属性赋值语句：

  # 替换为实际自定义属性名和目标选项值
  mailItem.UserProperties.Add("SelectFormChoice", 3).Value = "目标选项内容"
  

  注：代码中的3对应Outlook的olText属性类型，若下拉选项是枚举值，需替换为对应数值类型（比如olInteger对应1）。

方法2：用Windows API模拟弹窗操作 #

如果无法找到对应属性，可通过pywin32的win32gui模块模拟用户点击操作：

1. 导入所需模块：

   import win32gui
   import win32con
   import time
   import threading
   

2. 编写弹窗处理函数（需用Spy++工具确认弹窗和控件的类名/名称）：

   def auto_handle_form_dialog():
       time.sleep(1)  # 等待弹窗加载，可根据实际调整时长
       # 查找"select form"弹窗句柄
       dialog_hwnd = win32gui.FindWindow(None, "select form")
       if not dialog_hwnd:
           return
       # 查找下拉框控件
       combo_hwnd = win32gui.FindWindowEx(dialog_hwnd, None, "ComboBox", None)
       if combo_hwnd:
           # 设置选中第一个选项（参数0为索引，可根据需要修改）
           win32gui.SendMessage(combo_hwnd, win32con.CB_SETCURSEL, 0, 0)
       # 查找并点击"确定"按钮
       confirm_btn_hwnd = win32gui.FindWindowEx(dialog_hwnd, None, "Button", "确定")
       if confirm_btn_hwnd:
           win32gui.SendMessage(confirm_btn_hwnd, win32con.BM_CLICK, 0, 0)
   

3. 在发送邮件前启动线程执行处理函数：

   # 启动线程避免主线程阻塞
   threading.Thread(target=auto_handle_form_dialog).start()
   mailItem.Send()
   

   注：此方法依赖窗口和控件的固定标识，若公司修改弹窗样式可能失效，需重新获取控件信息。

方法3：临时禁用Outlook事件 #

若弹窗由公司的Outlook插件或VBA宏触发，可尝试临时禁用Outlook事件：

olApp.EnableEvents = False
mailItem.Send()
olApp.EnableEvents = True

注：此方法可能影响其他必要的Outlook自动化功能，需在测试环境验证后使用。

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