邮件 发送excel表格做正文

表格做正文"/>

邮件 发送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()