VBA将RTF复制到剪贴板

Question

我想在MS Outlook中使用VBA makro将一些RFT复制到剪贴板。这是我有限的VBA知识和一些googeling得到的（是的，我已经看到SO中有相关的问题，但我没有找到一个最小的可运行的例子）：

Sub TestRTFcopy()


       Dim Clipboard As New DataObject
       rtfFrag = "{\rtf{\fonttbl {\f0 Times New Roman;}}\f0\fs60 Hello, World!}"
       Clipboard.SetText rtfFrag, TextDataFormat.RTF
       Clipboard.PutInClipboard

       MsgBox ("Copied")

End Sub

我得到Runtime error 424: Object required

如果我缩短到Clipboard.SetText rtfFrag会复制，但结果是纯文本。

似乎VBA找不到TextDataFormat.RTF。如何解决这个问题？