从Excel VBA将电子邮件作为链接线程电子邮件发送

Question

我在Excel工作表中使用VBA代码向我的朋友发送电子邮件。这些电子邮件每次都作为单独的邮件单独发送。 这是我用于发送电子邮件的以下代码。

Sub Sending_Email()
   Dim answer As String
   On Error Resume Next
   Sheets("TDLL").Range("mail.table").Select
   Application.ScreenUpdating = False
   ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope = True
        .IntroDuction = "Counts for :- " & Date & " are As Follows."
        .Item.To = "bugsbunny2722@gmail.com"
        .Item.Subject = "Daily Counts for " & Date
        .Item.Send
   End With
      Application.ScreenUpdating = True
   Else
      MsgBox "Mail Not Send"
   End If
End Sub

我要做的是将此邮件制作为链式电子邮件。就像Outlook中的对话（其中包括ReplyAll）一样。

这是我实际上想要在Excel VBA中使用Coding在Outlook中实现的示例

我遇到了一些按主题查找电子邮件的代码，但是在此代码中不起作用。请帮助