Handler/MAPI/Constants.pm

##  ------------------------------------------------------------------------
##    $Id: Constants.pm,v 1.1 2003/01/20 16:44:40 joko Exp $
##  ------------------------------------------------------------------------
##    $Log: Constants.pm,v $
##    Revision 1.1  2003/01/20 16:44:40  joko
##    + initial check-in: refactored from code in Torus::Driver::mapi
##
##  ------------------------------------------------------------------------


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

use strict;
use warnings;

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


use Data::Dumper;
use Data::Mungle::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: Constants.pm,v 1.1 2003/01/20 16:44:40 joko Exp $
3	## ------------------------------------------------------------------------
4	## $Log: Constants.pm,v $
5	## Revision 1.1 2003/01/20 16:44:40 joko
6	## + initial check-in: refactored from code in Torus::Driver::mapi
7	##
8	## ------------------------------------------------------------------------
9
10
11	package Data::Storage::Handler::MAPI::Constants;
12
13	use strict;
14	use warnings;
15
16	use mixin::with qw( Data::Storage::Handler::MAPI );
17
18
19	use Data::Dumper;
20	use Data::Mungle::Transform::Deep qw( merge );
21
22	# get logger instance
23	my $logger = Log::Dispatch::Config->instance;
24
25	sub _init {
26	my $self = shift;
27
28	# some values (constants) needed for accessing outlook-folders
29	my $constants = {
30	olFolderList => 2,
31	olFolderDeletedItems => 3,
32	olFolderOutbox => 4,
33	olFolderSentMail => 5,
34	olFolderInbox => 6,
35	olFolderCalendar => 9,
36	olFolderContacts => 10,
37	olFolderJournal => 11,
38	olFolderNotes => 12,
39	olFolderTasks => 13,
40	olFolderDrafts => 16,
41	};
42
43	$self->{constants} = $constants;
44
45	}
46
47	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26