Question

我将一个脚本放在一起发送测试邮件，我需要更改from字段，但这不会改变我在脚本上的内容？我如何向所有收件人请求送货回执。非常感谢

#!/usr/bin/perl
use strict;
use warnings;

use Win32::OLE::Const 'Microsoft Outlook';
use Mail::Outlook;
my $Outlook;
eval { $Outlook = Win32::OLE->GetActiveObject('Outlook.Application') };
die "Outlook not installed" if $@;
unless ( defined $Outlook ) {
    $Outlook = Win32::OLE->new( 'Outlook.Application', sub { $_[0]->Quit; } )
        or die "Oops, cannot start Outlook";
}
my $outlook = new Mail::Outlook();
# create a message for sending
my $message = $outlook->create();
$message->From('#######.com');
$message->To('#####.com; ppppp.co.uk');
$message->Cc('o#####.com');
$message->Bcc('');
$message->Subject('Test');
$message->Body('Test Regards');

$message->display;
exit;

Answer 1

@ user3360439：不是将值放在From（＆＃39; #####。com＆＃39;）中，而是直接使用哈希变量并发送它们。

 # Or use a hash
  my %hash = (
    From    => 'hi@live.com',
    To      => 'hello@live.com',
    Subject => 'greetings',
     Body    => 'Hello',
  );

  my $message = $outlook->create(%hash);
  $message->display(%hash);
  $message->send(%hash);

从现场看Perl的前景没有改变到写的是什么？

1 个答案: