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	## ------------------------------------------------------------------------
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