我正在努力通过 VBA 在传入电子邮件中插入字符串。该例程在发送邮件时工作正常,并且如果用户单击“操作编辑”,它将对传入邮件起作用。问题是传入邮件被锁定为只读模式。在过去的 13.5 个小时里我到处寻找。在早期版本的 Outlook 中这是可能的,但是 Microsoft 已在 Office 2013 中删除了 CommandBar 功能。基本上,我需要一种方法来允许通过 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
EDIT
我已经破解了!这是为感兴趣的人更改模式的方法。它既快又脏,但是它展示了如何完成它。我拿了一些某人编写的用于重新发送的代码,并尝试了各种变体,偶然发现了要编辑的正确值。我在将信息标记为之前调用此例程
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
我已经破解了!这是为感兴趣的人更改模式的方法。它又快又脏,但是它显示了如何做到这一点。我拿了一些某人编写的用于重新发送的代码,并尝试了各种变体,偶然发现了要编辑的正确值。我在将信息标记为之前调用此例程
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)