outlook vba读取邮件RTFbody失败，错误为'not implemented‘

基础概念

Outlook VBA（Visual Basic for Applications）是Microsoft Outlook中的一种编程语言，允许用户自定义Outlook的功能。RTFBody属性用于获取或设置邮件的Rich Text Format (RTF) 格式的内容。

问题原因

当尝试读取邮件的RTFBody时，出现'not implemented'错误，通常是因为Outlook VBA不支持直接读取RTFBody属性。这是因为RTF格式较为复杂，且Outlook VBA的API可能没有完全实现这一功能。

解决方法

方法一：使用HTMLBody替代RTFBody

RTF格式的内容可以转换为HTML格式，然后通过HTMLBody属性读取。以下是一个示例代码：

Sub ReadEmailRTF()
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.NameSpace
    Dim Folder As Outlook.MAPIFolder
    Dim Item As Outlook.MailItem
    Dim htmlBody As String
    
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    Set Folder = olNS.GetDefaultFolder(olFolderInbox)
    
    For Each Item In Folder.Items
        If Item.Class = olMail Then
            ' 将RTF转换为HTML
            Item.SaveAs "C:\Temp\Emails\" & Item.Subject & ".html", olHTML
            ' 读取HTMLBody
            htmlBody = Item.HTMLBody
            Debug.Print "Subject: " & Item.Subject
            Debug.Print "HTML Body: " & htmlBody
        End If
    Next Item
End Sub

方法二：使用第三方库

如果需要直接处理RTF格式的内容，可以考虑使用第三方库，如Redemption库。以下是一个示例代码：

Sub ReadEmailRTFWithRedemption()
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.NameSpace
    Dim Folder As Outlook.MAPIFolder
    Dim Item As Outlook.MailItem
    Dim rdoMsg As Redemption.RDOMail
    
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    Set Folder = olNS.GetDefaultFolder(olFolderInbox)
    
    For Each Item In Folder.Items
        If Item.Class = olMail Then
            ' 使用Redemption库读取RTFBody
            Set rdoMsg = Redemption.RDOMail.CreateFromOutlookItem(Item)
            Debug.Print "Subject: " & rdoMsg.Subject
            Debug.Print "RTF Body: " & rdoMsg.RTFBody
        End If
    Next Item
End Sub