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

Question

我正在构建一个将由 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

谢谢你的帮助。

Answer 1

我运行了这个 Outlook 2003 宏：

Sub CopyToScratchPad()

  Dim DataToSave As New DataObject

  DataToSave.SetText "Test string"
  DataToSave.PutInClipboard

End Sub

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

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