in reply to Outlook Express Reply Function
if ( my $outlook = Win32::OLE->GetActiveObject('Outlook.Application +'))# connect to outlook application { if (defined ($outlook->ActiveInspector())) { my $activeEmail= $outlook->ActiveInspector()->{CurrentItem}; if ($activeEmail->{Class}==olMail) # if we're dealing with an + email item { my $emailProperties; $emailProperties->{Recipients} =$activeEmail->{Recipien +ts}; $emailProperties->{ReplyRecipients} =$activeEmail->{Rep +lyRecipients}->ResolveAll(); } } }
|
|---|