Как включить изображения в 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 внутри тела: в основном просто вставьте изображение uuencode в тело, и Outlook проанализирует и отобразит в качестве вложения.Если OLE не позволяет устанавливать границы MIME в почтовом сообщении, вы можете попробовать подход uuencode .