Question

我有一个要求文件位置的单元格。我想通过将clickable link指定为文档位置，将该文档位置的电子邮件发送为href。

我从单元格中提取了文档位置：

document_location = Range("F22").Value

我将document_location作为字符串。

现在，问题是我想发送一封电子邮件，而电子邮件正文应该包含一个document_location为href的链接。

我试过了：

olMail.HTMLBody = "<BODY style=font-size:10pt;font-family:Verdana>" & "<a href=" & document_location & ">" & document_location_as_clickable_link & "</a>" & "</BODY>"

但是这会将document_location_as_clickable_link显示为文本，而不是阅读href语句。

我也试过这个：

olMail.HTMLBody = "<BODY style=font-size:10pt;font-family:Verdana>" & "<a href=document_location>" & document_location_as_clickable_link & "</a>" & "</BODY>"

这将document_location_as_clickable_link转换为超链接，但href部分被视为＆＃34; document_location＆＃34;，而不是从单元格中提取的值。我的意思是，当我点击document_location_as_clickable_link时，它会在新标签页中打开，但地址结果为：http://document_location/，这不是从单元格中提取的值。

请帮忙。谢谢。

Answer 1

尝试：

Sub MailLink()
With CreateObject("Outlook.Application").CreateItem(0)
    .To = Cells(1, 1)
    .CC = Cells(2, 1)
    .Subject = "Test"
    .HTMLBody = "<BODY style=font-size:10pt;font-family:Verdana>" & "<a href=""" & Range("F22") & """ >" & Range("F22") & " </a>" & "</BODY>"
    .display
End With

End Sub

发送电子邮件中的超链接作为从Excel单元格中提取的链接

1 个答案: