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()

custom_email 使用 Excel 表格 自定义电子 邮件 发件人 使用google mail api google app engine apache poi library开发 使用 ide , netbeans 每天打开读写保护的每日工作报告 表格 ，记录工作时间，打卡时间，工作内容然后按一定格式 做 成发到指定邮箱（OutLook）。 第一步：新建一个EXECEL文件，借由该文件中的 VBA 代码打开指定的每日工作报告，该每日工作报告文件有写保护密码。 VBA 代码如下： Private Sub Workbook_Open() Application.DisplayAlerts = False Application.ScreenUpdating = False Mon = Sheet1.Cel... 第一次使用 VBA 自动 发送邮件 ，酷！示例代码：Sub 邮件 发送 () Dim cm As New CDO.Message 'Set cm = CreateObject("CDO.Message") '创建对象 '引用路径：C:\Windows\system32\cdosys.dll cm.From = "1234567@qq.com" '设置发信人的邮箱" cm.To = "649725266@qq.... 最近工作中遇到同事经常要 发送 销售日报之类的， 邮件 内容极为相似， 发送 内容有： 邮件 主题，报表，报表附件， 发送 抄送不同人员。 本分享实现内容，可以填入不同 发送 服务器，不同工作表、附件、 发送 给对应的接收人， 邮件 主题， 邮件 主要内容可以自定义，也可以默认进行 发送 。 附件说明： 工作表：“查询按钮” B1：b3，填写 发送邮件 服务器， 发送 邮箱， 发送 邮箱密码 B9：c16填写 邮件 接收人、抄送人员邮箱，多个接收人用... Private Sub CommandButton1_Click()Dim AWorksheet As WorksheetDim Sendrng As RangeDim rng As RangeOn Error GoTo StopMacroWith Application.ScreenUpdating = False.EnableEvents = FalseEnd WithSet Sendrng ... 网上看到的一个例子，需要将以下 表格 根据内容将近7天的数据自动 发送 给不同的客户。原始数据如下： 需要将生的最近n天明细 表格 如下 大概思路如下：获取邮箱->处理数据->生成 EXCEL ->生成Email在实际处理中，比较困难的Email在内容中添加数据时，不能直接复制 表格 。一定要将数据转换成htm才能添加。具体代码如下：Const d_Span = 7Sub AutoEmail_Htm... 财务MM经常要给员工 发送 每月的工资信息，一个个 发送 实在是太忙了。本文将介绍使用 VBA 实现工资信息的自动 发送 。有了这个功能，财务MM只需要把基本数据准备好，然后按下按钮只要选择需要 发送 的对象。就可以快速将 邮件 发送 出去，有没有一种火箭发射的感觉。再也不用一个个拷贝 发送 了。可以喝喝茶，化化妆，聊聊天。很不是很赞呢？功能设计思路设计以下3个sheet页因为需要发 邮件 ，为了保证程序的可扩展性。用户可以自己配...