Handler/MAPI/Constants.pm

##  ------------------------------------------------------------------------
##    $Id$
##  ------------------------------------------------------------------------
##    $Log$
##  ------------------------------------------------------------------------


package Data::Storage::Handler::MAPI::Constants;

use strict;
use warnings;

use mixin::with qw( Data::Storage::Handler::MAPI );


use Data::Dumper;
use Data::Transform::Deep qw( merge );

# get logger instance
my $logger = Log::Dispatch::Config->instance;

sub _init {
  my $self = shift;

  # some values (constants) needed for accessing outlook-folders
  my $constants = {
    olFolderList => 2,
    olFolderDeletedItems => 3,
    olFolderOutbox => 4,
    olFolderSentMail => 5,
    olFolderInbox => 6,
    olFolderCalendar => 9,
    olFolderContacts => 10,
    olFolderJournal => 11,
    olFolderNotes => 12,
    olFolderTasks => 13,
    olFolderDrafts => 16,
  };
  
  $self->{constants} = $constants;

}

1;
1	joko	1.1	## ------------------------------------------------------------------------
2			## $Id$
3			## ------------------------------------------------------------------------
4			## $Log$
5			## ------------------------------------------------------------------------
6
7
8			package Data::Storage::Handler::MAPI::Constants;
9
10			use strict;
11			use warnings;
12
13			use mixin::with qw( Data::Storage::Handler::MAPI );
14
15
16			use Data::Dumper;
17			use Data::Transform::Deep qw( merge );
18
19			# get logger instance
20			my $logger = Log::Dispatch::Config->instance;
21
22			sub _init {
23			my $self = shift;
24
25			# some values (constants) needed for accessing outlook-folders
26			my $constants = {
27			olFolderList => 2,
28			olFolderDeletedItems => 3,
29			olFolderOutbox => 4,
30			olFolderSentMail => 5,
31			olFolderInbox => 6,
32			olFolderCalendar => 9,
33			olFolderContacts => 10,
34			olFolderJournal => 11,
35			olFolderNotes => 12,
36			olFolderTasks => 13,
37			olFolderDrafts => 16,
38			};
39
40			$self->{constants} = $constants;
41
42			}
43
44			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26