Vba 使用Outlook 2007中的脚本将字符串复制到剪贴板

我正在构建一个脚本，该脚本将由Outlook中的规则触发。脚本在消息体中查找特定字符串并提取一些文本

我想将该文本复制到剪贴板，以便在其他应用程序中使用

这是我的密码：

Sub SaveAsText(MyMail As MailItem)

    Dim pos As String
    Dim loco As String

    pos = InStr(MyMail.Body, "message for Loco")
    loco = Mid(MyMail.Body, pos + 17, 8)

End Sub

---

谢谢您的帮助。

我运行了此Outlook 2003宏：

Sub CopyToScratchPad()

  Dim DataToSave As New DataObject

  DataToSave.SetText "Test string"
  DataToSave.PutInClipboard

End Sub

然后我打开记事本，点击Ctrl+C，“测试字符串”出现了

所以，你可以做你想做的事，但这真的是实现你目标的最好方式吗