插入文本到Outlook的邮件编辑器中

通过Inspector对象的WordEditor属性得到Word.Document对象，然后操作Document对象插入文本到光标处。

'用户昵称: 留下些什么
'个人简介: 一个会做软件的货代
'CSDN网址：https://blog.csdn.net/zezese
'电子邮箱：31319180@qq.com

Public Sub InsertTextToEmailEditor(aInspector As Outlook.Inspector, strText As String)

    '是不是WORD 编辑器
    If aInspector.EditorType <> olEditorWord Then Exit Sub
        
    Const wdLine = 5
    Dim doc As Object 'Word.Document
    Set doc = aInspector.WordEditor
    doc.Application.Selection.InsertAfter strText
    doc.Application.Selection.EndKey wdLine

    Set doc = Nothing
    
End Sub