Gmail comme "Envoyer et archiver" dans Outlook. Comment arriver à l'e-mail « parent » lorsque vous répondez

Question

En réponse à un e-mail avec la ligne d'objet « test », avec ce code ...

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 

... retourne cela.

Inbox
RE: Test

Je cherche à arriver à « test », qui est l'e-mail étant répondu à il peut être automatiquement .Amener (d) dans un dossier d'archives .

Answer 1

Ce serait mieux dans Outlook 2010, je pense. Pour les versions antérieures, je crois que vous voulez que ce code qui est directement cité 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 

est la propriété que vous recherchez.