邮件发送excel表格做正文

1.excel 表格转换为htm格式，可以在邮件中作为正文发送。

Sub Macro_Htm(sourcefile, targetfile)
Call hide_htm_null_row(sourcefile)

Dim TempWB As Workbook
Set TempWB = Workbooks.Open(sourcefile, False)

With ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=targetfile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With

TempWB.Close False

End Sub

2.excel中的chart 可以导出为图片，在邮件html里

Sub ExportChart(sourcefile, targetfile)
Dim TempWB As Workbook
Set TempWB = Workbooks.Open(sourcefile, False)
Set Sh1 = TempWB.Sheets("Chart")

Dim myChart As Chart
Dim myFileName As String

Set myChart = Sh1.ChartObjects(1).Chart

On Error Resume Next

' For Each CH In ThisWorkbook.Charts
' CH.Export Filename:=ThisWorkbook.Path & "" & CH.Name & ".JPG", Filtername:="JPG"
' Next

myChart.Export Filename:=targetfile, Filtername:="JPG"
Set myChart = Nothing
End Sub

2.1 邮件设置display属性，图片才能显示出来

mail.HTMLBody = strStyle + HTMLBody
mail.Display()

邮件发送excel表格做正文相关推荐

SQLSERVER 数据库邮件发送以表格形式发送（存储过程内容发邮件）
SQLSERVER 数据库邮件发送以表格形式发送直接开始不哔哔! 一.数据库配置(以图文展现) 1.以sa或者windows身份登录数据库 2.选择数据库管理下面的数据库邮件: 3.选择数据库邮件左 ...
Java计划任务(任务调度),定时器,定时安排任务,如定时发送Excel表格到用户邮箱(quartz+poi+javax.mail)
文章中使用到的发送邮件代码就不写了,之前发布过--https://blog.csdn.net/yan95520/article/details/89366606 1.在pom.xml中导入jar包(m ...
VBA按列名称或是按表格标题给EXCEL表格做排序
VBA给EXCEL表格做排序按列名称或是按标题给表格排序按列名称或是按标题给表格排序在VBA编程时,经常会对表格内容进行排序,为了方便对不同需求下的内容排序,编制了下面这个函数,此函数可以根据给 ...
字典写入excel_使用Python扫描邮件/填写Excel表格实现办公自动化
题图:希腊德尔斐(Delphi)神庙遗址.传说此地原为巨蟒Python盘踞,阿波罗来到此地射杀Python后建立起神庙,成为古希腊的精神圣地. 关键词:Python, 邮件扫描, yaml配置文件,邮 ...
java邮件中添加excel_基于javaMail的邮件发送--excel作为附件
基于JavaMail的Java邮件发送 Author xiuhong.chen@hand-china.com Desc 简单邮件发送 Date 2017/12/8 项目中需要根据物料资质的状况实时给用 ...
Excel 表格做系统导入数据，获取表格内的数据。
// fileName 文件的路径 public Map<String, String> setDataMap( String fileName){ //保存到MAP上也可以使用其他数 ...
用excel表格做的项目进度图
一..正方形表格的设置核心绘制这方形表格的办法列宽设置为10磅,行高设置为63磅,点击确定: 1.选中所有表格,在行的位置选择右键设置行高10,在选择列的地方设置列宽 63 选择后就是如下的正方 ...
JavaWeb(三)：java和javaWeb实现邮件发送
JavaWeb-实现邮件发送学习视频:B站狂神说Java – https://www.bilibili.com/video/BV12J41137hu?p=1 学习资料笔记:csdn dream_F ...
excel查找指定表计算机,两个excel表格找文本相同数据库-excel如何查找并自动填写对应数据...
excel表格怎么检查有重复的数据库在EXCEL中如何统计同时满足两个条件的的数据个数安装Beyond Compare3 1.在百度网页搜索中输入Beyond Compare,找到红色箭头所指的软 ...

邮件发送excel表格做正文

邮件发送excel表格做正文相关推荐

最新文章

热门文章

邮件 发送excel表格做正文

邮件 发送excel表格做正文相关推荐

最新文章

热门文章

邮件发送excel表格做正文

邮件发送excel表格做正文相关推荐