如何使用perl将图像包含到Outlook 2007 MailItem中？

Question

我有这个代码和一堆文件夹中的图像。

use Win32::OLE; 
use Win32::OLE qw(in with); 
use Win32::OLE::Variant; 
use Win32::OLE::Const 'Microsoft Outlook'; 

%mail_props = ('subject' => 'subject','to' => 'to','body' => 'body',); 

my $outlook = Win32::OLE->GetActiveObject('Outlook.Application'); 
# Create Mail Item 
my $item = $outlook->CreateItem(0); # 0 = mail item. 
unless ($item){die "Outlook is not running, cannot send mail.\n";} 

$item->{'Subject'} = $mail_props{'subject'} || '[No Subject]'; 
$item->{'To'} = join(";", split(/[ ,;]+/, $mail_props{'to'})); 
$item->{'Body'} = $mail_props{'body'} || "\r\n"; 
$item->{'From'} = $mail_props{'from'} if (exists $mail_props{'from'}); 

$item->Display(); 

print "Done!\n"; 

有没有人知道一种方法来添加图像到使用上述代码使用OLE方法生成的电子邮件的正文？我正在使用Outlook 2007，需要一个用于插入表格和图片的代码。

感谢您的帮助...

Answer 1

表格是分开对象还是只是内联HTML？ Lookout（对不起Outlook）实际上可以处理内联的uuencode'd对象：基本上只需将uuencoded图片插入正文中，Outlook将解析并显示为附件。如果OLE不允许在邮件消息中设置MIME边界，则可以尝试使用uuencode方法。