Gmail как «Отправить и архивировать» в Outlook. Как добраться до «родительского» электронной почты при ответе

Question

В ответ на сообщение электронной почты с темой «тест», с этим кодом ...

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
    If TypeName(Item) = "MailItem" Then 
    Debug.Print Item.Subject 
    Debug.Print Item.Parent 
    End If 
End Sub 

... возвращает это.

Входящих
RE: Тест

Я ищу, чтобы добраться до «теста», который является электронной почтой будет ответ на так что он может быть автоматически .Привести (d) в папку архива ,

Answer 1

Это было бы лучше в Outlook 2010, я думаю. Для более ранних версий, я полагаю, вы хотите этот код, который цитировал непосредственно из http://www.outlookcode.com/codedetail.aspx?id=1714

Function FindParentMessage(msg As Outlook.MailItem) _ 
      As Outlook.MailItem 
    Dim strFind As String 
    Dim strIndex As String 
    Dim fld As Outlook.MAPIFolder 
    Dim itms As Outlook.Items 
    Dim itm As Outlook.MailItem 
    On Error Resume Next 
    strIndex = Left(msg.ConversationIndex, _ 
        Len(msg.ConversationIndex) - 10) 
    Set fld = Application.Session.GetDefaultFolder(olFolderInbox) 
    strFind = "[ConversationTopic] = " & _ 
       Chr(34) & msg.ConversationTopic & Chr(34) 
    Set itms = fld.Items.Restrict(strFind) 
    Debug.Print itms.Count 
    For Each itm In itms 
     If itm.ConversationIndex = strIndex Then 
      Debug.Print itm.To 
      Set FindParentMessage = itm 
      Exit For 
     End If 
    Next 
    Set fld = Nothing 
    Set itms = Nothing 
    Set itm = Nothing 
End Function 

Answer 2

Item.ConversationTopic 

этого свойство, которое вы ищете.