将文本插入传入电子邮件 Outlook 2013 锁定为只读

Question

我正在努力通过VBA在传入的电子邮件中插入字符串。 该例程在发送邮件时工作正常，如果用户单击"操作编辑"，它将适用于传入邮件。 问题是传入邮件在只读模式下被锁定。 在过去的13.5个小时里，我到处寻找。 在早期版本的 Outlook 中是可能的，但是Microsoft删除了 Office 2013 中的命令栏功能。 基本上，我需要一种方法来允许通过VBA中的设置编辑邮件。

这是例程

Sub StampReference()
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objDoc As Word.Document
Dim objSel As Word.Selection
strFullReference = "Reference: " & Reference
On Error Resume Next
Set objOL = Application
If objOL.ActiveInspector.EditorType = olEditorWord Then
    Set objDoc = objOL.ActiveInspector.WordEditor
    Set objNS = objOL.Session
    Set objSel = objDoc.Windows(1).Selection
    objSel.Move wdStory, -1
    objDoc.Characters(1).InsertBefore _
      strFullReference & vbCrLf & vbCrLf
    objSel.Move wdParagraph, 1
End If
Set objOL = Nothing
Set objNS = Nothing
End Sub

编辑

我破解了！ 这是为任何感兴趣的人更改模式的方法。 它既快速又脏，但它显示了如何做到这一点。 我拿了一些有人编写的代码来执行重新发送，并尝试了变体以偶然发现要编辑的正确值。 我在标记信息之前调用此例程

Sub SetEditMode()
Dim myItem As Outlook.MailItem
Dim objInsp As Outlook.Inspector
Dim objActionsMenu As Office.CommandBarControl
Dim olNewMailItem As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
        Set myItem = ActiveExplorer.Selection.Item(1)
        myItem.Display
    Case "Inspector"
        Set myItem = ActiveInspector.CurrentItem
    Case Else
End Select
If myItem Is Nothing Then GoTo ExitProc
'edit mode
Set objInsp = ActiveInspector
objInsp.CommandBars.ExecuteMso ("EditMessage")
objActionsMenu.Execute
ExitProc:
End Sub

Answer 1

我已经破解了！这是为任何感兴趣的人更改模式的方法。它既快速又脏，但它显示了如何做到这一点。我拿了一些有人编写的代码来执行重新发送，并尝试了变体以偶然发现要编辑的正确值。我在标记信息之前调用此例程

Sub SetEditMode()
Dim myItem As Outlook.MailItem
Dim objInsp As Outlook.Inspector
Dim objActionsMenu As Office.CommandBarControl
Dim olNewMailItem As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
        Set myItem = ActiveExplorer.Selection.Item(1)
        myItem.Display
    Case "Inspector"
        Set myItem = ActiveInspector.CurrentItem
    Case Else
End Select
If myItem Is Nothing Then GoTo ExitProc
'edit mode
Set objInsp = ActiveInspector
objInsp.CommandBars.ExecuteMso ("EditMessage")
objActionsMenu.Execute
ExitProc:
End Sub

用户2970334