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だけですか？ルックアウト（申し訳ありませんOutlook）は実際に本体内のインラインuuencodeされたオブジェクトを扱うことができます：基本的には本文にuuencodedイメージを挿入するだけです。Outlookは解析して添付ファイルとして表示します。 OLEがメールメッセージのMIME境界を設定できない場合は、uuencodeの方法を試してみてください。