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对象：基本上只是在体内插入uuencoded图像，Outlook将解析并显示为附件。如果OLE不允许在邮件消息中设置MIME边界，则可以尝试uuencode方法。

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

1 个答案: