Question

填写＆＃34; To＆＃34;我向MailBody写了一个自动称呼。在这种类型的称呼之后我也做了一个文本选择。

    m_MailItem.Body = newMailBody
    m_SalutationEntered = True

    With m_WordEditor.Application.Selection
        .Start = newMailBody.IndexOf(vbCrLf & vbCrLf) + 1
    End With

到目前为止，此工作正常。但在处理完这个之后，我没有真正的＆＃34;焦点，这意味着当我按任意键时，没有任何东西输入到身体。我可以看到光标，但它没有闪烁。希望你明白我的意思。

Answer 1

您需要找到编辑器的窗口句柄（FindWindow等），然后使用SetActiveWindow / SetFocus / ShowCaret Windows API函数来聚焦编辑器并显示插入符号。

如果使用Redemption是一个选项，则会公开SafeInspector .FocusEditor方法：

 set sInspector = CreateObject("Redemption.SafeInspector")
 sInspector.Item = Application.ActiveInspector
 sInspector.FocusEditor

Outlook MailItem中的焦点主体

1 个答案: