将Excel区域复制粘贴到Outlook邮件时出现GetInspector错误

错误详情 #

执行邮件发送代码时出现以下错误：

com_error: (-2147352567, 'Exception occurred.', (4096, 'Microsoft Outlook', 'The operation failed.', None, 0, -2147467259), None)

错误出现在msg.GetInspector.WordEditor.Range(Start=0, End=0).Paste()行，调用栈如下：

Cell In[78], line 9
      7 msg = outlook.CreateItem(0)
      8 msg.HTMLBody = ''
----> 9 msg.GetInspector.WordEditor.Range(Start=0, End=0).Paste()

File ~\AppData\Roaming\Python\Python310\site-packages\win32com\client\dynamic.py:620, in CDispatch.__getattr__(self, attr)
    616 debug_attr_print(
    617     "Getting property Id 0x%x from OLE object" % retEntry.dispid
    618 )
    619 try:
---> 620     ret = self._oleobj_.Invoke(retEntry.dispid, 0, invoke_type, 1)
    621 except pythoncom.com_error as details:
    622     if details.hresult in ERRORS_BAD_CONTEXT:
    623         # May be a method.

原代码 #

import win32com.client

path = 'C:\\Documents\\'
filename = 'Book1.xlsx'

excel = win32com.client.gencache.EnsureDispatch('Excel.Application')

def send_email(path, filename):
    book = excel.Workbooks.Open(path+filename)
    book.Sheets(1).Range("A1:B2").Copy()
    outlook = win32com.client.Dispatch("Outlook.Application")
    msg = outlook.CreateItem(0)
    msg.HTMLBody = ''
### msg.Display 
    msg.GetInspector.WordEditor.Range(Start=0, End=0).Paste()
    msg.To = 'myemail@outlook.com'
    msg.Send

send_email(path,filename)

现象说明 #

• 自动执行代码时触发上述错误
• 取消注释msg.Display，手动粘贴剪贴板内容并发送，邮件能正常发送且表格保留Excel格式
• 目标Excel表格（A1:B2区域）：

期望邮件中粘贴的表格保留原Excel格式（如边框、单元格样式）。

解决方案 #

问题根源是Outlook邮件对象未初始化编辑器环境：未调用msg.Display时，GetInspector.WordEditor无法获取有效的Word编辑对象，导致粘贴操作失败。同时原代码中msg.Send未加括号，无法触发发送动作。

修改后的代码：

import win32com.client
import time

path = 'C:\\Documents\\'
filename = 'Book1.xlsx'

excel = win32com.client.gencache.EnsureDispatch('Excel.Application')

def send_email(path, filename):
    book = excel.Workbooks.Open(path+filename)
    book.Sheets(1).Range("A1:B2").Copy()
    outlook = win32com.client.Dispatch("Outlook.Application")
    msg = outlook.CreateItem(0)
    msg.To = 'myemail@outlook.com'
    
    # 调用Display初始化编辑器，传入False隐藏窗口避免弹窗
    msg.Display(False)
    # 短暂等待确保编辑器和剪贴板就绪
    time.sleep(0.5)
    
    # 粘贴剪贴板内容到邮件正文开头
    msg.GetInspector.WordEditor.Range(Start=0, End=0).Paste()
    
    # 执行发送（注意加括号）
    msg.Send()
    # 关闭Excel工作簿，避免进程残留
    book.Close(SaveChanges=False)

send_email(path,filename)

关键修改点 #

1. msg.Display(False)：初始化Word编辑环境，同时隐藏邮件窗口
2. time.sleep(0.5)：等待异步加载完成，避免粘贴失败
3. 修正msg.Send为msg.Send()：触发邮件发送动作
4. 增加book.Close(SaveChanges=False)：清理Excel进程

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