在perl中将Outlook htmlrtf转换为html

use strict;
use warnings;
use Win32::OLE;

# 创建Outlook应用程序对象
my $outlook = Win32::OLE->new('Outlook.Application') or die "Cannot create Outlook object: $!";

# 获取Outlook的NameSpace对象
my $namespace = $outlook->GetNamespace("MAPI");

# 获取Outlook中的收件箱
my $inbox = $namespace->GetDefaultFolder(6);

# 获取收件箱中的所有邮件
my $items = $inbox->Items;

# 遍历所有邮件
foreach my $item (in $items) {
    # 判断邮件是否为HTMLRTF格式
    if ($item->{BodyFormat} == 3) {
        # 将HTMLRTF转换为HTML
        my $html = $item->GetInspector->WordEditor->HTMLBody;
        
        # 在这里进行HTML处理或保存操作
        # ...
        
        # 打印转换后的HTML内容
        print $html;
    }
}

# 释放资源
undef $items;
undef $inbox;
undef $namespace;
undef $outlook;