use Win32::OLE;
use strict;

# Create a new MAPI session
my $session = Win32::OLE->new("MAPI.Session")
        or die "Failed to create a new MAPI Session! " . $!;