VBA代码，用于在发送电子邮件时在sbject中添加今天的日期

我已从excel中选定的单元格复制了用于发送状态更新邮件的VBA代码。 但现在我想更改代码，将今天的日期添加到代码中，以便在发送状态邮件时，它将在主题和简介部分选择今天的日期。下面是代码

Sub Send_Range()
      ActiveSheet.Range("A1:B5").Select
      ActiveWorkbook.EnvelopeVisible = True
      With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "E-Mail_Address_Here"
      .Item.Subject = "My subject"
      .Item.Send
   End With
End Sub

---

请帮助添加日期功能：

.Item.Subject = "My subject " & Date

如果默认设置不合适，还可以使用

Format（）

以所需格式获取日期。例如，

.Item.Subject=“我的主题”和格式（日期，“dd/MM/yyyy”）