Set
OutlookApp = CreateObject(
"Outlook.Application"
)
Set
OutlookMail = OutlookApp.CreateItem(
0
)
With
OutlookMail
.
To
=
"收件人地址"
.Subject =
"邮件主题"
MyTable =
"<table border='1'><tr><td>列1</td><td>列2</td><td>列3</td></tr>"
_
&
"<tr><td>1</td><td>2</td><td>3</td></tr>"
_
&
"<tr><td>4</td><td>5</td><td>6</td></tr></table>"
.HTMLBody =
"邮件正文"
& MyTable
.Display
End
With
Set
OutlookMail =
Nothing
Set
OutlookApp =
Nothing
End
Sub
将代码中的收件人地址、邮件主题、邮件正文和表格 HTML 代码替换为实际的内容。
运行代码，将会创建一个新邮件，并在正文中插入表格。
注意，邮件正文中的表格必须以 HTML 格式添加。上述代码中的 MyTable 变量就是一个 HTML 代码的字符串，其中包含一个带有边框的表格。你可以根据需要更改表格的大小、样式和内容。
希望这个回答能帮到你。如果你还有其他问题，请随时提问。
