Adding custom header to Mail::Outlook::Message

maskull has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to send Outlook 2013 message using Mail::Outlook module http://search.cpan.org/~duncan/Mail-Outlook-0.25/lib/Mail/Outlook.pm. I also need to set a custom message property to mark its sensitivity level, called X-ICCategory.

use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
use Mail::Outlook;

  my $outlook = new Mail::Outlook();
  my $folder = $outlook->folder('Drafts');
  my $message = $outlook->create();

  my %hash = (
     To      => 'user@mail.com',
     Subject => 'Blah Blah Blah',
     Body    => 'Yadda Yadda Yadda',
  );

    $message->save();
[download]

Now, if the message was an OLE object I'd try something like:

  my $doc = Win32::OLE->GetObject($message);
  my $property = 'X-ICCategory';
  my $value = '2';
  

  my $docprops =  $doc->CustomDocumentProperties();
  unless (defined ($doc->CustomDocumentProperties($property)))
  {
    $docprops->Invoke('Add', {
                               Name => $property,
                               LinkToContent => 0,
                               Type => 4,
                               Value  => $value,
                              });
   }
  $doc->CustomDocumentProperties($property)->{Value} = $value;
[download]

But it is a MailItem so I assume it has to be something like this solution here: http://www.outlookcode.com/threads.aspx?forumid=5&messageid=27515 I just have no idea how to translate this to Perl.

Comment on Adding custom header to Mail::Outlook::Message Select or Download Code

Replies are listed 'Best First'.
Re: Adding custom header to Mail::Outlook::Message by poj (Abbot) on Mar 12, 2017 at 18:22 UTC
I don't have Outlook set up to test this but a couple of ideas to try use strict; use warnings; use Win32::OLE 'in'; use Win32::OLE::Const 'Microsoft Outlook'; use Mail::Outlook; my %hash = ( To => 'user@mail.com', Subject => 'Blah Blah Blah', Body => 'Yadda Yadda Yadda', ); my $outlook = new Mail::Outlook(); my $folder = $outlook->folder('Drafts'); my $message = $outlook->create(%hash); my $doc = $message->{'message'}; # type olText=1 my $uprops = $doc->UserProperties; my $newprop1 = $uprops->Add('X-ICCategory',1); $newprop1->{'value'} = 2; for my $prop (in $uprops){ printf "%s %s\n",$prop->{'name'},$prop->value; } my $PropName = 'http://schemas.microsoft.com/mapi/string/' .'{00020386-0000-0000-C000-000000000046}/' .'X-ICCategory'; my $pa = $doc->PropertyAccessor; $pa->SetProperties($PropName, 2 ); [download] poj	[reply] [d/l]
Re^2: Adding custom header to Mail::Outlook::Message by maskull (Novice) on Mar 13, 2017 at 09:52 UTC
Thanks. Sadly that gives me this: `X-ICCategory 2 Can't call method "SetProperties" on an undefined value at .. line ..` [download]	[reply] [d/l]
Re^3: Adding custom header to Mail::Outlook::Message by poj (Abbot) on Mar 13, 2017 at 15:43 UTC
What does running this give `use strict; use Win32::OLE; use Mail::Outlook; my $mail = new Mail::Outlook(); my $message = $mail->create(); my $Outlook = $message->{'outlook'}; print " Perl $] Win32::OLE Version ${Win32::OLE::VERSION} Mail::Outlook ${Mail::Outlook::VERSION}; Outlook $Outlook->{'Version'}\n";` [download] This is what I have Perl 5.016001 Win32::OLE Version 0.1709 Mail::Outlook 0.25; Outlook 14.0.0.7172 poj	[reply] [d/l]
Re^4: Adding custom header to Mail::Outlook::Message by maskull (Novice) on Mar 13, 2017 at 16:27 UTC
Re^5: Adding custom header to Mail::Outlook::Message by poj (Abbot) on Mar 13, 2017 at 16:44 UTC


Welcome to the Monastery
	PerlMonks