使用outlook向电子邮件正文添加html超链接似乎很简单 . 但是,我想在电子表格中发送一系列单元格,并在介绍中发送指向该文件的链接 . 或者轻松点击电子邮件中创建的图像和文件的超链接 .
我有以下代码,但如果我将引言指定为HTMLintroduction,那么它就不会允许它 .
有任何想法吗?
Sub SendMail2()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
'Dim Sendrng As Range
Set Sendrng = Worksheets("Dashboard").Range("A1:Q34")
If ActiveWorkbook.Path <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<font size=""3"" face=""Calibri"">" & _
ActiveWorkbook.Name & "</B> is created.<br>" & _
"Click on this link to open the file : " & _
"<A HREF=""file://" & ActiveWorkbook.FullName & _
""">Link to the file</A>"
With Sendrng
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
.Introduction = strbody
On Error Resume Next
With ActiveSheet.MailEnvelope.Item
.To = "ac@uk.com"
.CC = ""
.BCC = ""
.Subject = ActiveWorkbook.Name
'.HTMLBody = strbody
.Display 'or use .Send
End With
End With
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "Email not sent."
End If
End Sub
1 回答
EDIT - (http://vba-useful.blogspot.com/2014/01/send-html-email-with-embedded-images.html)
以上链接详细说明了如何将jpg排除在范围之外并将其发送到电子邮件中 .
我发现一些非常相似的代码似乎使用了稍微不同的方法 . 也许它会起作用 . 它似乎绕过了您正在尝试的Mail.Envelope方法 . 从Ron de Bruin's页面 . 不幸的是我无法在我当前的机器上测试它,所以我希望它有所帮助 .