Entry ID of the mail being replied to

[Jeevie]

Hi All

I need help with the code to identify the Entry ID of the mail being replied. Appreciate any help.

Thanks

[Jeevie]

To explain, I am looking to identify the parent mail of the reply/forwarded mail while it is being drafted.

[TheAntiGates]

This is discussed in http://dailydoseofexcel.com/archives/category/Outlook/ It looks wonky, but he (who is no fool) attributes the method to Sue Mosher (who is a high guru on Outlook). Read the whole [short] article which explains the process.

[Jeevie]

Thanks for your reply. I have adapted the code but am unable to retrieve the Entry ID using the propertyaccessor. It is returning blank. Can you help point out where I am getting it wrong.


Function FindParentMessageID(objMsg As Outlook.MailItem) As String
Dim sFind As String
Dim sIndex As String
Dim olFldr As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim olMi As Object
Dim objPA As Outlook.PropertyAccessor

sIndex = Left$(objMsg.ConversationIndex, Len(objMsg.ConversationIndex) - 10)

If Application.ActiveInspector Is Nothing Then
Set olFldr = Application.ActiveExplorer.Selection.Item(1).Parent
Else
Set olFldr = Application.ActiveInspector.CurrentItem.Parent
End If

sFind = "[ConversationTopic] = " & Chr$(34) & objMsg.ConversationTopic & Chr$(34)

Set olItems = olFldr.Items.Restrict(sFind)
For Each olMi In olItems
If olMi.Class = olMail Then
If Left(olMi.ConversationIndex, Len(sIndex)) = sIndex Then
Set objPA = olMi.PropertyAccessor
FindParentMessageID = objPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x1035" & PT_STRING8)
Set objPA = Nothing
Exit For
End If
End If
Next olMi
End Function

[TheAntiGates]

Sorry, your code (e.g. using PropertyAccessor) is a little too elaborate for me. I know the Daily Dose code works, especially as modified in the comments there, which I use regularly.

Anyone who understands the PropertyAccessor code in your post above, please help him!