将格式化的 Excel 范围粘贴到 Outlook 邮件中答案

【问题标题】：Pasting formatted Excel range into Outlook message将格式化的 Excel 范围粘贴到 Outlook 邮件中
【发布时间】：2010-03-23 18:43:56
【问题描述】：

我想将一系列格式化的 Excel 单元格粘贴到 Outlook 邮件中。

以下代码（我从各种来源提取的）运行没有错误并发送一条空消息。

Sub SendMessage(SubjectText As String, Importance As OlImportance)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim iAddr As Integer, Col As Integer, SendLink As Boolean
'Dim Doc As Word.Document, wdRn As Word.Range
Dim Doc As Object, wdRn As Object

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

Set Doc = objOutlookMsg.GetInspector.WordEditor
'Set Doc = objOutlookMsg.ActiveInspector.WordEditor
Set wdRn = Doc.Range
wdRn.Paste

Set objOutlookRecip = objOutlookMsg.Recipients.Add("MyAddress@MyDomain.com")
objOutlookRecip.Type = 1
objOutlookMsg.Subject = SubjectText
objOutlookMsg.Importance = Importance

With objOutlookMsg
    For Each objOutlookRecip In .Recipients
        objOutlookRecip.Resolve
        ' Set the Subject, Body, and Importance of the message.
        '.Subject = "Coverage Requests"
        'objDrafts.GetFromClipboard
    Next
    .Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub

【问题讨论】：

斯蒂芬，请不要交叉发帖；此问题将自动迁移。如果您在 Stack Overflow 上注册了一个帐户，并将您的帐户关联到您的用户个人资料中，那么您将在问题迁移后保留该问题的所有权。
您确定 objOutlookMsg.BodyFormat 已初始化为“Outlook.OlBodyFormat.olFormatRichText”还是“Outlook.OlBodyFormat.olFormatHTML”？在其他格式中，粘贴不起作用。
相关：stackoverflow.com/questions/29092999/…

标签： excel vba outlook

【解决方案1】：

我认为您需要在完成所有更改后在邮件项目 (objOutlookMsg) 上调用 .Save。

【讨论】：

【解决方案2】：

将 .Display 放在 .Send 之前，

简单但快速的修复，您的问题是电子邮件在发送之前没有刷新粘贴的内容，强制它首先显示给它时间......

还要确保您有另一个在此之前运行的宏以将范围复制到剪贴板...

【讨论】：

【解决方案3】：

在 excel 中有一个按钮可以执行此操作，“发送给邮件处方”通常不在功能区上。

您还可以通过 VBA 中的 MailEnvelope 使用 Office 内置的简单 mapi

.. 一篇关于你正在尝试做什么的好文章http://www.rondebruin.nl/mail/folder3/mail4.htm

【讨论】：