perl outlook from field не меняется на то, что написано?

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: Вместо того, чтобы поместить значения в С («##### ком») напрямую использовать переменную хэш и отправить их.

# 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);