Select Code to Download

Sub createEmail()
    
...
    Set olMail = Nothing

End Sub

my $tag = Win32::OLE::Variant->new( VT_R8, $self->{message}->GetIDsFro
+mNames( '{00020386-0000-0000-C000-000000000046}', $name ));

...
my $test = $tag_bin | $pt_string8;

$self->{message}->Fields->Put( oct("0b$test"),  $value);

$self->{message}->Fields( oct("0b$test"),  $value);

my $array = Win32::OLE::Variant->new( VT_BSTR | VT_ARRAY, oct("0b$test
+") );

    use Win32::OLE::Variant;

...
    #$self->{message}->{Fields}->[$test] = $value;

    $self->{message}->LetProperty('Fields', $test, $value);