如何将超链接和表插入到Excel工作表中的单元格中？

这是Outlook VBA中的代码

Sub Sendmail() Dim olItem As Outlook.MailItem Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSht As Excel.Worksheet Dim sPath As String Dim iRow As Long Dim strRFIitems As String Dim Signature As String sPath = "**" ' // Excel Set xlApp = CreateObject("Excel.Application") ' // Workbook Set xlBook = xlApp.Workbooks.Open(sPath) ' // Sheet Set xlSht = xlBook.Sheets("Sheet1") ' // Create e-mail Item Set olItem = Application.CreateItem(olMailItem) strRFIitems = xlSht.Range("E2") Signature = xlSht.Range("F2") With olItem .To = Join(xlApp.Transpose(xlSht.Range("A2", xlSht.Range("A9999").End(xlUp))), ";") .CC = Join(xlApp.Transpose(xlSht.Range("B2", xlSht.Range("B9999").End(xlUp))), ";") .Subject = xlSht.Range("C2") .Body = xlSht.Range("D2") & Signature .Attachments.Add (strRFIitems) .Display End With ' // Close xlBook.Close SaveChanges:=True ' // Quit xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlSht = Nothing Set olItem = Nothing End Sub 

该代码从链接的Excel工作表中检索数据。 现在的问题是.Body = xlSht.Range("D2") & Signature这行代码，其中邮件正文从Excel工作表的D2单元格中检索。

根据我的要求，邮件的正文应该包含一个超文本链接和表格。

例：

大家好，
请更新门户中的详细信息
门户链接： http ： //google.com 。

请与我联系任何澄清。

下面提到的细节需要更新：
表格必须在这里插入

假设上面提到的文本被插入到Excel的单元格中。

1. 项目清单
   此portal link: http://google.com. 变成纯文本而不是超链接。 如果我尝试使它成为一个超链接，整个单元格变成超链接。 即使是文本。

2. 项目清单
   如何将表格插入到Excel工作表单元格中并使用Outlook VBA调用它

查询：
如何将超链接和表格与testing消息一起插入到Excel单元格中，并使用上述代码进行检索，并发送包含超链接和表格的邮件。

Answer 1

对于超链接，您可以使用以下代码：

 Range("K6").Select ActiveCell.FormulaR1C1 = "test" Range("K6").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www.google.com", TextToDisplay:="test" Range("K6").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True