Как включить изображения в Outlook 2007 MailItem с помощью perl?

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.