Outlook 2013规则将电子邮件正文复制到剪贴板-Java 学习之路

使用电子邮件规则触发VBA脚本，是否可以将电子邮件正文发送到剪贴板？我发现这个method但它似乎不起作用 .

Sub SaveToClipboard(Item As Outlook.MailItem)
Dim Explorer As Outlook.Explorer
Dim oitem As Outlook.MailItem
Dim oData As MSForms.DataObject


Set Explorer = Application.ActiveExplorer

If Explorer.Selection.Count Then

    Set CurrentItem = Explorer.Selection(1)
    Set oitem = CurrentItem

    oData = oitem.Body  
    oData.PutInClipboard

    'Using this to test the output
    MsgBox oData

End If
End Sub

接下来，我将如何搜索以“信息：”开头的电子邮件正文中的一行，并仅将该行复制到剪贴板？

1 回答

您缺少该网站上的示例中描述的重要部分 .

同样使用传入的mailitem（itm as mailItem） .

Option Explicit

Private Sub SaveToClipboard_test()

    Dim curritem As Object
    Set curritem = ActiveExplorer.Selection(1)
    If TypeOf curritem Is mailItem Then SaveToClipboard curritem

ExitRoutine:
    Set curritem = Nothing

End Sub


Sub SaveToClipboard(itm As mailItem)

    Dim oData As MSForms.DataObject
    Dim strPaste As Variant

    Set oData = New MSForms.DataObject
    oData.SetText itm.body
    oData.PutInClipboard

    oData.GetFromClipboard
    strPaste = oData.GetText

    strPaste = Left(strPaste, 1024)
    MsgBox strPaste

ExitRoutine:
    Set oData = Nothing

End Sub

回复于 2024-05-03T09:11:22+08:00

Outlook 2013规则将电子邮件正文复制到剪贴板

1 回答

相关问题