如何使用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方法。