在outlook邮件正文excel vba中embedded图片
我试图从工作表中embedded范围作为图像在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
您需要添加图像并隐藏它。 位置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
截图
- Excel VBA Outlooksearch多个标准(ID和date)
- 在Excel中创build一个“检查姓名”button
- 如何设置一个macros来启动每次电子邮件到达Outlook 2007中的某个子文件夹?
- 如何从Excel中发送电子邮件中的embedded式图像
- 邮寄多张表和一张表内的特定范围
- 检查是否有未读电子邮件,附件名称中包含“Production_Plan”作为名称的一部分,使用excel – vba
- VBA'用户定义types未定义'与Outlook编译错误
- VBA – Outlook到Excel:对象_global的方法行失败
- 使用Outlook的Excel VBA错误“用户定义types未定义”