#!/usr/bin/perl

 
use strict;
use warnings;

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';
$Win32::OLE::Warn = 0;

my $outlook				= get_outlook();
my $mapi				= $outlook->GetNamespace('MAPI');
my $default_folder		= $mapi->GetDefaultFolder(olFolderContacts);