请高手指点如何用宏实现复制选中邮件的主题到剪切板？

lyexplorer · 发表于 2011-12-21 23:06

经常需要做复制邮件的主题到剪切板的操作。如果能用宏及设置宏的快捷键实现将选中的邮件的主题复制到剪切板就方便多了。
请高手指点一下如何实现。谢谢。

dsd999 · 发表于 2011-12-22 09:55

dsd999 · 发表于 2011-12-22 09:57

Sub CopyToClipboard()
Dim MyDataObj As New DataObject
MyDataObj.SetText "This Is A Text String"
MyDataObj.PutInClipboard
End Sub

lyexplorer · 发表于 2011-12-22 16:52

dsd999 发表于 2011-12-22 09:57
Sub CopyToClipboard()
Dim MyDataObj As New DataObject
MyDataObj.SetText "This Is A Text String"

试了一下，提示“用户定义类型未定义”。
查了资料说要引用"Microsoft Froms 2.0 Object Library"，但未找到这个内容。
这是什么问题了？

dsd999 · 发表于 2011-12-22 19:53

本帖最后由 dsd999 于 2011-12-22 19:54 编辑

明天我看看。

lyexplorer · 发表于 2011-12-22 20:36

dsd999 发表于 2011-12-22 19:53
明天我看看。

好的，多谢了。

dsd999 · 发表于 2011-12-23 09:27

找找有没有fm20.dll，有的话添加进去。

		自动登录	找回密码
密码			免费注册

[求助] 请高手指点如何用宏实现复制选中邮件的主题到剪切板？