title: Get the date of reply
body: <p>The answer to <a href="https://stackoverflow.com/questions/14578476/is-there-any-way-to-get-the-date-time-on-the-you-replied-to-this-message-on-xx">Is there any way to get the date time on the “you replied to this message on [xxx]”?</a> describes a solution with the property PR_LAST_VERB_EXECUTION_TIME.</p>
  
  <p>If that property is absent in the list of properties, can I find the date or the message-answer another way?</p>
  
  <p>There is only property PR_LAST_VERB_EXECUTED in the window "get prop" of the program "outlookSpy".</p>
  
  <pre><code>Sub Extracting()
  Dim myolApp As Outlook.Application
  Dim myNamespace As Outlook.NameSpace
  Dim myFolder, ssBox As Outlook.Folder
  Dim sch As Outlook.Search
  Dim rsts As Outlook.Results
  Dim sDate, eDate, strS, strF, DatiRe As String
  Dim i As Integer
  
  Set myolApp = GetObject(, "Outlook.Application")
  Set myNamespace = myolApp.GetNamespace("MAPI")
  Set mySheet = xlApp.Worksheets("Ëèñò1")
  sDate = Format(Date, "dd.mm.yyyy")
  eDate = Format(Date, "dd.mm.yyyy")
  i = 1
  While i &lt;= myNamespace.Folders.Count
   If myNamespace.Folders.Item(i).Name = "mmm@mail.ru" Then
     Set myFolder = myNamespace.GetFolderFromID(myNamespace.Folders.Item(i).EntryID, myNamespace.Folders.Item(i).StoreID)
     i = myNamespace.Folders.Count
   End If
   i = i + 1
  Wend
  
  blnSearchComp = False
  Set ssBox = myFolder.Folders("Inbox")
  strS = "'" &amp; ssBox.FolderPath &amp; "'"
  strF = "urn:schemas:httpmail:datereceived &gt;= '" &amp; sDate &amp; " 0:00' AND urn:schemas:httpmail:datereceived &lt;= '" &amp; eDate &amp; " 23:59'"
  Set sch = myolApp.AdvancedSearch(strS, strF, False, "aaa")
  While blnSearchComp = False
      DoEvents
  Wend
  Set ssBox = myFolder.Folders("Outbox")
  Set rsts = sch.Results
  For i = 1 To rsts.Count
      Debug.Print rsts.Item(i).SenderName
      DatiRe = GetDaTiAnswer(rsts.Item(i).ConversationIndex, rsts.Item(i).ConversationTopic, ssBox.FolderPath)
      Set NextRow = mySheet.Range("A" &amp; mySheet.Rows.Count).End(-4162).Offset(1)
      NextRow.Resize(, 4).Value = Array(rsts.Item(i).SenderEmailAddress, rsts.Item(i).ReceivedTime, DatiRe, rsts.Item(i).Subject)
  Next
  End Sub
  
  Function GetDaTiAnswer(ByVal iConvIndex, iConvTopic, parP As String) As String
   Dim oApp As Outlook.Application
   Dim oSch As Outlook.Search
   Dim oRes As Outlook.Results
   Dim parC As String
   Dim j As Integer
   blnSearchComp = False
   Set oApp = GetObject(, "Outlook.Application")
   parC = "http://schemas.microsoft.com/mapi/proptag/0x0070001F = '" &amp; iConvTopic &amp; "'"
   Set oSch = oApp.AdvancedSearch("'" &amp; parP &amp; "'", parC, False, "aaa")
   While blnSearchComp = False
      DoEvents
   Wend
   Set oRes = oSch.Results
   For j = 1 To oRes.Count
      Debug.Print oRes.Item(j).SenderName
      If Left(oRes.Item(j).ConversationIndex, Len(oRes.Item(j).ConversationIndex) - 10) = iConvIndex Then
        GetDaTiAnswer = oRes.Item(j).SentOn
      End If
  Next
  End Function
  </code></pre>