set reply arrow via vba

Question

I was wondering if there is a way to add the Reply arrow to a selected mail in Outlook via VBA. The background is that we process a selected mail via VBA and create a new mail from it. This does not trigger that the original mail gets a reply arrow. It would be desirable if the mail would still get the arrow.

Code now:

On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set myItem = ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set myItem = ActiveInspector.CurrentItem
    End Select
    On Error GoTo 0

    If myItem Is Nothing Then
        MsgBox "Keine Mail selektiert!", vbExclamation
        GoTo exitproc
    End If
 myItem.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x10810003", 102
 myItem.Save

Answer 1

You need to use the Forward method if you need to see the reply arrow.

Answer 2

You need to set the PR_LAST_VERB_EXECUTED MAPI property (DASL name "http://schemas.microsoft.com/mapi/proptag/0x10810003") to 102 (which is EXCHIVERB_REPLYTOSENDER constant) using MailItem.PropertyAccessor.SetProperty(where MailItem comes from the Application.ActiveExplorer.Selection collection). You might also want to set the PR_LAST_VERB_EXECUTION_TIME property (DASL name "http://schemas.microsoft.com/mapi/proptag/0x10820040") to a datetime value.

You will also need to set the PR_ICON_INDEX (DASL name "http://schemas.microsoft.com/mapi/proptag/0x10800003") to 261 for the reply icon to become visible.

You can see the property and its values in OutlookSpy (I am its author, click the IMessage button).