将图片嵌入Outlook mail body excel vba
我正在尝试将工作表中的一个范围作为图像嵌入outlook邮件正文中。它正在正确保存图片，但我只在outlook邮件正文中看到空白图像。我做错了什么？
Sub View_Email()
tName = Trim(MAIN.Range("tEmail"))
If Not tName Like "*@*.*" Then MsgBox "Invalid Email address": Exit Sub
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'File path/name of the gif file
Fname = ThisWorkbook.Path & "\Claims.jpg"
Set oCht = Charts.Add
STAT.Range("A3:G26").CopyPicture xlScreen, xlBitmap
With oCht
.Paste
.Export Filename:=Fname, Filtername:="JPG"
'.Delete
End With
On Error Resume Next
With OutMail
.To = tName
.CC = ""
.BCC = ""
.Subject = STAT.Range("C1").Value
.HTMLBody = "<html><p>Summary of Claim Status.</p>" & _
"<img src=" & Fname & "' height=520 width=750>"
.display
'.Send 'or use .Display
End With
On Error GoTo 0
'Delete the gif file
'Kill Fname
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
共有1个答案
您需要添加图像并隐藏它。位置0将添加并隐藏它。
.Attachments.Add Fname, 1, 0
1是Outlook常量olByValue
添加图像后，必须使用“cid:FILENAME.jpg”，如下所示。
试试这个
With OutMail
.To = tName
.CC = ""
.BCC = ""
.Subject = STAT.Range("C1").Value
.Attachments.Add Fname, 1, 0
.HTMLBody = "<html><p>Summary of Claim Status.</p>" & _
"<img src=""cid:Claims.jpg""height=520 width=750>"
.Display
End With
截图
-
问题内容： 我正在尝试在HTML 的元素上显示png图像。该按钮与图像的大小相同，并且显示了图像，但由于某种原因不在中心，因此无法看到全部。换句话说，图像的右上角似乎位于按钮的中心而不是按钮的右上角。 这是HTML代码： 更新： 我认为实际发生的是利润问题。我得到两个像素的边距，因此背景图像从按钮中消失了。该按钮和图像的大小相同，这是唯一的，所以这是非常noticable ......我试过，但它
-
问题内容： 我目前有一个程序，可以从列表中随机选择引号并通过电子邮件发送。我现在也尝试在电子邮件中嵌入图片。我遇到了一个问题，可以附加电子邮件，但报价不再起作用。我已经在网上进行了研究，但解决方案对我不起作用。请注意，我使用的是Python 3.2.2。 任何指导将不胜感激。 从上面的代码可以看出，我尝试了不同的方法（引用＃） 问题答案： 您正在费力地在中构造有效的MIME消息，然后放弃它并发送一
-
问题内容： 如何将.png文件嵌入空白的“file.html”中，以便在任何浏览器中打开该文件时都能看到该图像？在这种情况下，图像文件不是从HTML链接到的，而是图像数据嵌入在HTML本身中。 问题答案： 在线上有一些base64编码器可以帮助您解决此问题，这可能是我见过的最好的编码器： 该页面显示了CSS的主要选项： 或标签本身，如下所示：
-
使用EasyExcel导出excel，图片无法嵌入单元格 使用低版本时，图片不会跟随单元格大小变化而变化。 使用高版本图片大小会跟随单元格大小变化而变化，但是还是无法嵌入到单元格
-
问题内容： 我正在使用python 3.5.2，我想制作一个嵌入了png图像的饼图。我有一些我想插入切片的散装产品的图片。例如，一片草莓，另一片覆盆子。就像http://www.python- course.eu/images/pie_chart_with_raspberries.png 显示的图片一样。 我可以生成图像，甚至可以绘制图像而不是点，如此处所示Matplotlib：如何绘制图像而不是
-
我有一个问题'XWPF文档'。程序的一部分获取docx文件，并将其中的所有内容复制到一个输出docx文件中。包括文字、表格、图片和公式。我在这方面有一个很好的结果，但是最近我有一个错误：一张图片没有复制到结果中。这是源代码，这是结果。结果你可以看到“3.1.6.2”部分的哪些图像被成功复制，但是不在“3.1.6.1”。 我是这样做的： 这里的关键是： 我从'运行'得到嵌入的图片。在坏的文件中，我有