Dim mapi
Set mapi = CreateObject("MAPI.Session")

##</code><code>##

my $outlook = Win32::OLE->new('Outlook.Application') or die $!;