Макрос Outlook для копирования строки темы и вставки в тело

Question

Может ли кто-нибудь помочь мне с макросом, чтобы автоматически скопировать строку темы и вставить в текст сообщения.У меня уже есть макрос для заполнения тела Dear (TO email), но мне также нужно добавить строку темы в своем письме.

Sub Test()
  Dim mItem As MailItem
  Dim mItem1 As MailItem
  Dim ToValue
  Set mItem = ActiveInspector.CurrentItem
  Set mItem1 = ActiveInspector.CurrentItem

  ToValue = Trim(mItem.To)
  'Replace all possible delimiters with a comma
  ToValue = Replace(ToValue, ";", ",")
  ToValue = Replace(ToValue, " ", ",")
  'Remove double delimiters
  Do While InStr(ToValue, ",,") > 0
    ToValue = Replace(ToValue, ",,", ",")
  Loop
  'Split into words
  ToValue = Split(ToValue, ",")
  'Use the first name only
  'Note:
  '  For the 2nd name use ToValue(1) instead (enable this line):
  'If UBound(ToValue) > 0 Then ToValue(0) = ToValue(1)
  mItem.HTMLBody = Replace(mItem.HTMLBody, "Customer", ToValue(0), Compare:=vbTextCompare)
  mItem1.HTMLBody = Replace(mItem1.HTMLBody, "Subject", subject, Compare:=vbTextCompare)
End Sub