表格做正文"/>
邮件 发送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表格做正文
发布评论