如何 在 vba 发送邮件 添加背景 图片

oralspeaking

请教各位大侠，现在已经能通过 excel vba 发送邮件，现在如果想在邮件中添加 背景图片 使邮件带有水印效果 如何在已有的程序代码中增加语句呢？
使用版本为winxp，outlook2007
On Error Resume Next
Dim rowCount, endRowNo
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem

'取得当前工作表与Cells(1,1)相连的数据区行数
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
'创建objOutlook为Outlook应用程序对象
Set objOutlook = New Outlook.Application

'开始循环发送电子邮件
For rowCount = 2 To endRowNo
'创建objMail为一个邮件对象
Set objMail = objOutlook.CreateItem(olMailItem)  '每次循环都新建一个邮件对象
With objMail
'.Body = Range("A2").Value '邮件内容 仅限定于文本
.Subject = Range("B2").Value  '设置邮件主题
.To = Range("C2").Value  '设置收件人地址（从通讯录表的"E-mail地址"字段中获得）
.Send   '自动发送邮件
End With

zyg365

不好办吧……