将Excel中的图片复制到Outlook正文
我正在尝试找出如何将Excel中的电子表格中的图片放入Outlook邮件正文中。以下是我目前掌握的情况：
它根据我需要的数据分组创建图片，
将其复制到下面，
打开带有我需要的初始消息的邮件
但我不知道如何将这两个创建的图像链接到电子邮件的正文中。到目前为止，我已经从创建的每个选项卡中剪切它们，并将它们粘贴到身体中。
Sub EmailDashboards()
Dim OutApp As Object
Dim outMail As Object
Sheets("CAM Dashboard Burdened").Select
Range("C1:J47").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Range("K36").Select
ActiveSheet.Paste
Sheets("CAM Dashboard Direct").Select
Range("C1:J47").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Range("K36").Select
ActiveSheet.Paste
Sheets("CAM Dashboard Burdened").Select
Range("K36").Select
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set outMail = OutApp.CreateItem(0)
With outMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "CCM EV Dashboard"
.Body = "Here are the latest Burdened and Direct EV Dashboards for your area: "
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set outMail = Nothing
Set OutApp = Nothing
End Sub
共有1个答案
通过调用以下代码行：
ActiveSheet.Paste
您可以将图像粘贴到Excel工作表中，而不是Outlook中。
您可以尝试使用Word对象模型将图像粘贴到邮件项目中。Outlook对象模型为工作项主体提供了三种主要方式：
- Body-表示Outlook项目的明文正文的字符串
- HTMLBody—表示指定项的HTML正文的字符串
- Word editor—正在显示的邮件的Microsoft Word文档对象模型。Inspector类的WordEditor属性从Word对象模型返回文档类的实例，您可以使用该实例设置消息体
您可以在第17章：使用条目正文中阅读更多关于所有这些方法的信息。
Selection类的粘贴方法在指定的选择处插入剪贴板的内容。
您还可以将图像附加到邮件项目，将其标记为隐藏设置为适当的低级属性，并在正文的HTML标记中提及它们。
Attachment attachment = newMail.Attachments.Add(
@"E:\Pictures\image001.jpg"
, OlAttachmentType.olEmbeddeditem
, null
, "Some image display name"
);
string imageCid = "image001.jpg@123";
attachment.PropertyAccessor.SetProperty(
"http://schemas.microsoft.com/mapi/proptag/0x3712001E"
, imageCid
);
newMail.HTMLBody = String.Format(
"<body><img src=\"cid:{0}\"></body>"
, imageCid
);
有关更多信息，请参阅如何将c#中的html正文中的图像嵌入Outlook mail。
-
我正在尝试将工作表中的一个范围作为图像嵌入outlook邮件正文中。它正在正确保存图片，但我只在outlook邮件正文中看到空白图像。我做错了什么？
-
问题内容： 首先，关于SO将图像复制到python中的剪贴板的问题导致答案用PIL和win32clipboard将图像写入python中的Windows剪贴板？，这仅对Python 2.x有用。-我尝试过，但是没有用。我克服了一个问题：Python 3.0中没有StringIO和cStringIO模块 ，但是碰到了另一个： 因此，对于Python 3再次提出相同的问题-如何在Python 3中将图
-
我已经使用这个网站一段时间了，通常研究我所有的问题，但这一个已经让我难倒了几天。 我有一个Excel工作簿的工作表，将允许用户输入特定的数据，一旦宏被使用，将创建一个Word文档的格式专门为每个宏。
-
本文向大家介绍使用python 将图片复制到系统剪贴中，包括了使用python 将图片复制到系统剪贴中的使用技巧和注意事项，需要的朋友参考一下 需要安装pywin32,pillow 依赖包 以上这篇使用python 将图片复制到系统剪贴中就是小编分享给大家的全部内容了，希望能给大家一个参考，也希望大家多多支持呐喊教程。
-
我有一个excel工作簿，每张工作表有一个图表和多个工作表，我试图将所有图表作为图片导出到PowerPoints中。问题是我的当前代码无法工作。我的代码出现错误: > 简报按预期打开 将复制我在运行前选择的活动工作表的图表 复制的图表粘贴在PowerPoint中 PowerPoint创建下一张幻灯片 现在问题再次复制同一工作表中的同一图表！我希望代码移动到下一张工作表，选择上面的图表，并在下一张幻
-
本文向大家介绍js实现点击图片将图片地址复制到粘贴板的方法，包括了js实现点击图片将图片地址复制到粘贴板的方法的使用技巧和注意事项，需要的朋友参考一下 本文实例讲述了js实现点击图片将图片地址复制到粘贴板的方法。分享给大家供大家参考。具体如下： 希望本文所述对大家的javascript程序设计有所帮助。