vba 发送邮件 html,VBA自动发送邮件+内容+附件

网上看到的一个例子，需要将以下表格根据内容将近7天的数据自动发送给不同的客户。

原始数据如下：

需要将生的最近n天明细表格如下

大概思路如下：获取邮箱->处理数据->生成EXCEL->生成Email

在实际处理中，比较困难的Email在内容中添加数据时，不能直接复制表格。一定要将数据转换成htm才能添加。

具体代码如下：

Const d_Span = 7

Sub AutoEmail_Html()

'---------------Define Workbook------------------------------

Dim Dic As Object, Pin$, key, k

Dim c_Date As Date, b_Date As Date

Dim arr, brr

Dim wb As Workbook

'---------------Define Outlook-------------------------------

Dim wbStr As String, nlist As String

Dim OutlookApp As Outlook.Application

Dim OutlookItem As Outlook.MailItem

Dim newMail

Dim strAdr$

'=================================================