Outlook取出邮件中鼠标选中的文本（算是一种思路吧）

Long_III

网上很多屏幕取词的代码，根本看不懂。Outlook平时用的少，现在选中了邮件中的一个文本，想根据这个文本打开本地电脑的法规库进行搜索，结果死活找不到Outlook中这个邮件中文本的selection属性。只好用笨方法，既然选中了，那就给个Copy的指令，然后把数据从剪切板中取得，然后再清空剪切板。sendkenys使用时老出错，好像加了个doevents就不会了，奇怪。

代码供参考。

Private Sub Get_SelectText()
    Dim MyData As DataObject

    Set MyData = New DataObject

    'Application.ActiveExplorer.Activate
    Set a = CreateObject("WScript.shell")
    a.SendKeys "^c", ture
    DoEvents

    MyData.GetFromClipboard    '获得剪切板内容
    MyStr = MyData.GetText     '赋值给变量
    MyData.SetText ""
    MyData.PutInClipboard
    Set MyData = Nothing
    DoEvents

    'Debug.Print MyStr
End Sub