excel群发邮件 支持html,vba excel使用带有html链接的父mailenvelope发送电子邮件

我发现一些非常相似的代码似乎使用了稍微不同的方法 . 也许它会起作用 . 它似乎绕过了您正在尝试的Mail.Envelope方法 . 从Ron de Bruin's页面 . 不幸的是我无法在我当前的机器上测试它，所以我希望它有所帮助 .

Sub Make_Outlook_Mail_With_File_Link()

'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm

'Working in Excel 2000-2013

Dim OutApp As Object

Dim OutMail As Object

Dim strbody As String

If ActiveWorkbook.Path <> "" Then

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

strbody = "" & _

"Colleagues,
" & _

"I want to inform you that the next sales Order :" & _

ActiveWorkbook.Name & " is created.
" & _

"Click on this link to open the file : " & _

"

""">Link to the file

" & _

"
Regards," & _

"
Account Management"

On Error Resume Next

With OutMail

.To = "ron@debruin.nl"

.CC = ""

.BCC = ""

.Subject = ActiveWorkbook.Name

.HTMLBody = strbody

.Display 'or use .Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

Else

MsgBox "The ActiveWorkbook does not have a path, Save the file first."

End If

End Sub