File Coverage

blib/lib/Rinchi/Outlook.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Rinchi::Outlook;
2 1     1   48874 use strict;
  1         3  
  1         44  
3 1     1   30 use 5.006;
  1         3  
  1         29  
4 1     1   5 use Carp;
  1         7  
  1         94  
5 1     1   817 use FileHandle;
  1         42075  
  1         6  
6 1     1   1033 use XML::DOM;
  0            
  0            
7             use XML::Parser;
8             use Class::ISA;
9              
10             our @ISA = qw();
11              
12             our @EXPORT = qw();
13             our @EXPORT_OK = qw();
14              
15             our $VERSION = 0.02;
16              
17             =head1 NAME
18              
19             Rinchi::Outlook - A module for representing Microsoft Outlook® 11.0 Object Library objects.
20              
21             =head1 SYNOPSIS
22              
23             The following two examples show the use of this module to save Personal Folders
24             to an XML file with the attachments saved and duplicate attachments eliminated,
25             and the preparation of and index of the saved attachments.
26              
27             use strict;
28             use Win32::OLE qw(in with);
29             use Win32::OLE::Const 'Microsoft Outlook 11.0 Object Library';
30             use Win32::OLE::NLS qw(:LOCALE :DATE);
31             use Rinchi::Outlook;
32             use Digest::MD5; # qw(md5 md5_hex md5_base64);
33            
34             my $document;
35             my @attachments;
36             my %fingerprints;
37            
38             #===============================================================================
39             sub get_uuid() {
40             # ToDo: Add routine to generate or fetch a UUID here.
41             return $uuid;
42             }
43            
44             #===============================================================================
45             sub add_attachments($$) {
46             my ($Item,$item) = @_;
47             my $count = $Item->Attachments->{'Count'};
48             foreach my $index (1..$count) {
49             my $Attachment = $Item->Attachments($index);
50             my $attachment = $document->createElement(Rinchi::Outlook::Attachment::TAG_NAME);
51             $attachment->Class($Attachment->{'Class'});
52             $attachment->DisplayName($Attachment->{'DisplayName'});
53             my $filename = $Attachment->{'FileName'};
54             my $ext;
55             $ext = $1 if($filename =~ /(\.[0-9A-Za-z]+)$/);
56             my $uuid = get_uuid();
57             my $path="C:/mail/attachment/$uuid$ext";
58             $attachment->FileName($filename);
59             $attachment->Index($Attachment->{'Index'});
60             $attachment->PathName($path);
61             $attachment->Position($Attachment->{'Position'});
62             $attachment->Type($Attachment->{'Type'});
63             $attachment->xmi_id($uuid);
64             $item->Attachments->appendChild($attachment);
65             $Attachment->SaveAsFile($path);
66             push @attachments,$attachment;
67             print "Saving attachment \'$filename\' as \'$path\'\n";
68             }
69             }
70            
71             #===============================================================================
72             sub add_items($$) {
73             my ($Folder,$folder) = @_;
74             my $count = $Folder->Items->{'Count'};
75             foreach my $index (1..$count) {
76             my $Item = $Folder->Items($index);
77             my $class = $Item->{'Class'};
78             my $item;
79             if ($class == Rinchi::Outlook::OlObjectClass::olMail) {
80             #common
81             $item = $document->createElement(Rinchi::Outlook::MailItem::TAG_NAME);
82             $item->BillingInformation($Item->{'BillingInformation'}) if ($Item->{'BillingInformation'});
83             $item->Companies($Item->{'Companies'}) if ($Item->{'Companies'});
84             $item->ConversationIndex($Item->{'ConversationIndex'}) if ($Item->{'ConversationIndex'});
85             $item->ConversationTopic($Item->{'ConversationTopic'}) if ($Item->{'ConversationTopic'});
86             $item->Importance($Item->{'Importance'});
87             $item->Mileage($Item->{'Mileage'}) if ($Item->{'Mileage'});
88             $item->NoAging('true') if ($Item->{'NoAging'});
89             $item->OutlookInternalVersion($Item->{'OutlookInternalVersion'});
90             $item->OutlookVersion($Item->{'OutlookVersion'});
91             $item->Sensitivity($Item->{'Sensitivity'});
92             $item->UnRead('true') if ($Item->{'UnRead'});
93             #specific to MailItem
94             $item->AlternateRecipientAllowed('true') if($Item->{'AlternateRecipientAllowed'});
95             $item->AutoForwarded('true') if ($Item->{'AutoForwarded'});
96             $item->BCC($Item->{'BCC'}) if ($Item->{'BCC'});
97             $item->BodyFormat($Item->{'BodyFormat'});
98             $item->CC($Item->{'CC'}) if ($Item->{'CC'});
99             $item->DeferredDeliveryTime($Item->{'DeferredDeliveryTime'}->Date(DATE_LONGDATE)) unless(${$Item->{'DeferredDeliveryTime'}} == 39679620);
100             $item->DeleteAfterSubmit('true') if ($Item->{'DeleteAfterSubmit'});
101             $item->EnableSharedAttachments('true') if ($Item->{'EnableSharedAttachments'});
102             $item->ExpiryTime($Item->{'ExpiryTime'}->Date(DATE_LONGDATE)) unless(${$Item->{'ExpiryTime'}} == 39679620);
103             $item->FlagDueBy($Item->{'FlagDueBy'}->Date(DATE_LONGDATE)) unless(${$Item->{'FlagDueBy'}} == 39679620);
104             $item->FlagIcon($Item->{'FlagIcon'}) if ($Item->{'FlagIcon'});
105             $item->FlagRequest($Item->{'FlagRequest'}) if ($Item->{'FlagRequest'});
106             $item->FlagStatus($Item->{'FlagStatus'}) if ($Item->{'FlagStatus'});
107             $item->HasCoverSheet('true') if ($Item->{'HasCoverSheet'});
108             $item->InternetCodepage($Item->{'InternetCodepage'});
109             $item->IsIPFax('true') if ($Item->{'IsIPFax'});
110             $item->OriginatorDeliveryReportRequested('true') if($Item->{'OriginatorDeliveryReportRequested'});
111             $item->Permission($Item->{'Permission'});
112             $item->PermissionService($Item->{'PermissionService'});
113             $item->ReadReceiptRequested('true') if ($Item->{'ReadReceiptRequested'});
114             $item->ReceivedByName($Item->{'ReceivedByName'});
115             $item->ReceivedOnBehalfOfName($Item->{'ReceivedOnBehalfOfName'});
116             $item->ReceivedTime($Item->{'ReceivedTime'}->Date(DATE_LONGDATE)) unless(${$Item->{'ReceivedTime'}} == 39679620);
117             $item->RecipientReassignmentProhibited('true') if($Item->{'RecipientReassignmentProhibited'});
118             $item->ReminderOverrideDefault('true') if($Item->{'ReminderOverrideDefault'});
119             $item->ReminderPlaySound('true') if($Item->{'ReminderPlaySound'});
120             $item->ReminderSet('true') if($Item->{'ReminderSet'});
121             $item->ReminderSoundFile($Item->{'ReminderSoundFile'}) if($Item->{'ReminderSoundFile'});
122             $item->ReminderTime($Item->{'ReminderTime'}->Date(DATE_LONGDATE)) unless(${$Item->{'ReminderTime'}} == 39679620);
123             $item->RemoteStatus($Item->{'RemoteStatus'});
124             $item->ReplyRecipientNames($Item->{'ReplyRecipientNames'});
125             $item->SenderEmailAddress($Item->{'SenderEmailAddress'});
126             $item->SenderEmailType($Item->{'SenderEmailType'});
127             $item->SenderName($Item->{'SenderName'});
128             $item->Sent('true') if($Item->{'Sent'});
129             $item->SentOn($Item->{'SentOn'}->Date(DATE_LONGDATE)) unless(${$Item->{'SentOn'}} == 39679620);
130             $item->SentOnBehalfOfName($Item->{'SentOnBehalfOfName'});
131             $item->Submitted('true') if($Item->{'Submitted'});
132             $item->To($Item->{'To'});
133             $item->VotingOptions($Item->{'VotingOptions'}) if ($Item->{'VotingOptions'});
134             $item->VotingResponse($Item->{'VotingResponse'}) if ($Item->{'VotingResponse'});
135             add_attachments($Item,$item) if ($Item->Attachments->{'Count'} > 0);
136             }
137             if (defined($item)) {
138             $item->Body(escape_xml($Item->{'Body'}));
139             $item->Class($Item->{'Class'});
140             $item->CreationTime($Item->{'CreationTime'}->Date(DATE_LONGDATE)) unless(${$Item->{'CreationTime'}} == 39679620);
141             $item->DownloadState($Item->{'DownloadState'});
142             $item->EntryID($Item->{'EntryID'});
143             $item->IsConflict('true') if ($Item->{'IsConflict'});
144             $item->LastModificationTime($Item->{'LastModificationTime'}->Date(DATE_LONGDATE)) unless(${$Item->{'LastModificationTime'}} == 39679620);
145             $item->MarkForDownload($Item->{'MarkForDownload'});
146             $item->MessageClass($Item->{'MessageClass'});
147             $item->Saved('true') if ($Item->{'Saved'});
148             $item->Size($Item->{'Size'});
149             $item->Subject($Item->{'Subject'});
150             $item->xmi_id(get_uuid());
151             $folder->appendChild($item);
152             }
153             }
154             }
155            
156             #===============================================================================
157             sub add_folders($$) {
158             my ($Folders,$folders) = @_;
159             my $count = $Folders->{'Count'};
160             foreach my $index (1..$count) {
161             my $Folder = $Folders->Item($index);
162             my $folder = $document->createElement(Rinchi::Outlook::MAPIFolder::TAG_NAME);
163             $folder->AddressBookName($Folder->{'AddressBookName'});
164             $folder->Description($Folder->{'Description'});
165             $folder->FolderPath($Folder->{'FolderPath'});
166             $folder->FullFolderPath($Folder->{'FullFolderPath'});
167             $folder->Name($Folder->{'Name'});
168             $folder->DefaultItemType($Folder->{'DefaultItemType'});
169             $folder->Class(Rinchi::Outlook::OlObjectClass::olFolder);
170             $folder->xmi_id(get_uuid());
171             $folders->appendChild($folder);
172             add_folders($Folder->Folders,$folder->Folders) if($Folder->Folders->{'Count'} > 0);
173             add_items($Folder,$folder) if($Folder->Items->{'Count'} > 0);
174             }
175             }
176            
177             #===============================================================================
178             sub top_folders($$) {
179             my ($Folders,$folders) = @_;
180             my $count = $Folders->{'Count'};
181             foreach my $index (1..$count) {
182             my $Folder = $Folders->Item($index);
183             my $folder = $document->createElement(Rinchi::Outlook::MAPIFolder::TAG_NAME);
184             my $name = $Folder->{'Name'};
185             $folder->AddressBookName($Folder->{'AddressBookName'});
186             $folder->Description($Folder->{'Description'});
187             $folder->FolderPath($Folder->{'FolderPath'});
188             $folder->FullFolderPath($Folder->{'FullFolderPath'});
189             $folder->Name($name);
190             $folder->DefaultItemType($Folder->{'DefaultItemType'});
191             $folder->Class(Rinchi::Outlook::OlObjectClass::olFolder);
192             $folder->xmi_id(get_uuid());
193             $folders->appendChild($folder);
194             add_folders($Folder->Folders,$folder->Folders) if($Folder->Folders->{'Count'} > 0 and $name eq 'Personal Folders');
195             }
196             }
197            
198             #===============================================================================
199             my $Outlook;
200             eval {
201             $Outlook = Win32::OLE->GetActiveObject('Outlook.Application')
202             };
203             if ($@ || !defined($Outlook)) {
204             $Outlook = Win32::OLE->new('Outlook.Application', sub {$_[0]->Quit;})
205             or return undef;
206             }
207             my $Namespace = $Outlook->GetNameSpace("MAPI") or return undef;
208            
209             $document = Rinchi::Outlook::Document->new(Rinchi::Outlook::NameSpace::TAG_NAME);
210             my $namespace = $document->getDocumentElement();
211             $namespace->xmi_id(get_uuid);
212            
213             top_folders($Namespace->Folders,$namespace->Folders);
214            
215             my $md5 = Digest::MD5->new();
216             foreach my $attachment(@attachments) {
217             my $path = $attachment->PathName();
218             my $ferr = 0;
219             open FH,'<',$path or $ferr = 1;
220             unless ($ferr > 0) {
221             binmode(FH);
222             $md5->new();
223             $md5->addfile(*FH);
224             my $fingerprint = $md5->hexdigest();
225             close FH;
226             $attachment->MD5($fingerprint);
227             if(exists($fingerprints{$fingerprint})) {
228             $attachment->PathName($fingerprints{$fingerprint});
229             unlink $path;
230             print "Duplicate file \'$path\' deleted.\n";
231             } else {
232             $fingerprints{$fingerprint} = $path;
233             }
234             }
235             }
236            
237             $document->printToFile('C:/mail/personal_folders.xml');
238            
239             #========================================
240            
241             use strict;
242             use Rinchi::Outlook;
243            
244             my $source = 'C:/mail/personal_folders.xml';
245            
246             my $document = Rinchi::Outlook->parsefile($source);
247            
248             my @attachments = $document->getElementsByTagName('attachment');
249            
250             open HTML,'>','C:/mail/attachment/index.html';
251             print HTML "\n \n Index of Attachments\n \n \n

Index of Attachments

\n \n"; \n"; \n",$link,$attachment->DisplayName,$attachment->getParentNode->getParentNode->Subject,$attachment->getParentNode->getParentNode->SenderName,$attachment->PathName,$attachment->FileName;
252             print HTML "
Display NameSubjectSenderPath NameFileName
253             foreach my $attachment (@attachments) {
254             my $link = $attachment->PathName;
255             my @l = split('\/',$link);
256             $link = pop @l;
257             printf HTML "
%s%s%s%s%s
258             }
259             print HTML "
\n \n\n";
260             close HTML;
261              
262             =head1 DESCRIPTION
263              
264             Microsoft Outlook 11.0 Object Library
265              
266             =head2 EXPORT
267              
268             None by default.
269              
270             =head1 METHODS
271              
272             =cut
273              
274             my %sax_handlers = (
275             'Init' => \&handle_init,
276             'Final' => \&handle_final,
277             'Start' => \&handle_start,
278             'End' => \&handle_end,
279             'Char' => \&handle_char,
280             'Proc' => \&handle_proc,
281             'Comment' => \&handle_comment,
282             'CdataStart' => \&handle_cdata_start,
283             'CdataEnd' => \&handle_cdata_end,
284             'Default' => \&handle_default,
285             'Unparsed' => \&handle_unparsed,
286             'Notation' => \&handle_notation,
287             'ExternEnt' => \&handle_extern_ent,
288             'ExternEntFin' => \&handle_extern_ent_fin,
289             'Entity' => \&handle_entity,
290             'Element' => \&handle_element,
291             'Attlist' => \&handle_attlist,
292             'Doctype' => \&handle_doctype,
293             'DoctypeFin' => \&handle_doctype_fin,
294             'XMLDecl' => \&handle_xml_decl,
295             );
296              
297             my @elem_stack;
298              
299             my $Document;
300              
301             #=================================================================
302              
303             # Init (Expat)
304             sub handle_init() {
305             my ($expat) = @_;
306             $Document = Rinchi::Outlook::Document->new();
307             push @elem_stack,$Document;
308             }
309              
310             #=================================================================
311              
312             # Final (Expat)
313             sub handle_final() {
314             my ($expat) = @_;
315             }
316              
317             #=================================================================
318              
319             # Start (Expat, Tag [, Attr, Val [,...]])
320             sub handle_start() {
321             my ($expat, $tag, %attrs) = @_;
322              
323             my $Element = $Document->createElement($tag);
324             foreach my $attr (keys %attrs) {
325             $Element->setAttribute($attr,$attrs{$attr});
326             }
327             $elem_stack[-1]->appendChild($Element) if(@elem_stack);
328             push @elem_stack,$Element;
329             }
330              
331             #=================================================================
332              
333             # End (Expat, Tag)
334             sub handle_end() {
335             my ($expat, $tag) = @_;
336             my $Element = pop @elem_stack;
337             }
338              
339             #=================================================================
340              
341             # Char (Expat, String)
342             sub handle_char() {
343             my ($expat, $string) = @_;
344             $elem_stack[-1]->appendChild($Document->createTextNode($string));
345             }
346              
347             #=================================================================
348              
349             # Proc (Expat, Target, Data)
350             sub handle_proc() {
351             my ($expat, $target, $data) = @_;
352             }
353              
354             #=================================================================
355              
356             # Comment (Expat, Data)
357             sub handle_comment() {
358             my ($expat, $data) = @_;
359             }
360              
361             #=================================================================
362              
363             # CdataStart (Expat)
364             sub handle_cdata_start() {
365             my ($expat) = @_;
366             }
367              
368             #=================================================================
369              
370             # CdataEnd (Expat)
371             sub handle_cdata_end() {
372             my ($expat) = @_;
373             }
374              
375             #=================================================================
376              
377             # Default (Expat, String)
378             sub handle_default() {
379             my ($expat, $string) = @_;
380             }
381              
382             #=================================================================
383              
384             # Unparsed (Expat, Entity, Base, Sysid, Pubid, Notation)
385             sub handle_unparsed() {
386             my ($expat, $entity, $base, $sysid, $pubid, $notation) = @_;
387             }
388              
389             #=================================================================
390              
391             # Notation (Expat, Notation, Base, Sysid, Pubid)
392             sub handle_notation() {
393             my ($expat, $notation, $base, $sysid, $pubid) = @_;
394             }
395              
396             #=================================================================
397              
398             # ExternEnt (Expat, Base, Sysid, Pubid)
399             sub handle_extern_ent() {
400             my ($expat, $base, $sysid, $pubid) = @_;
401             }
402              
403             #=================================================================
404              
405             # ExternEntFin (Expat)
406             sub handle_extern_ent_fin() {
407             my ($expat) = @_;
408             }
409              
410             #=================================================================
411              
412             # Entity (Expat, Name, Val, Sysid, Pubid, Ndata, IsParam)
413             sub handle_entity() {
414             my ($expat, $name, $val, $sysid, $pubid, $ndata, $isParam) = @_;
415             }
416              
417             #=================================================================
418              
419             # Element (Expat, Name, Model)
420             sub handle_element() {
421             my ($expat, $name, $model) = @_;
422             }
423              
424             #=================================================================
425              
426             # Attlist (Expat, Elname, Attname, Type, Default, Fixed)
427             sub handle_attlist() {
428             my ($expat, $elname, $attname, $type, $default, $fixed) = @_;
429             }
430              
431             #=================================================================
432              
433             # Doctype (Expat, Name, Sysid, Pubid, Internal)
434             sub handle_doctype() {
435             my ($expat, $name, $sysid, $pubid, $internal) = @_;
436             }
437              
438             #=================================================================
439              
440             # DoctypeFin (Expat)
441             sub handle_doctype_fin() {
442             my ($expat) = @_;
443             }
444              
445             #=================================================================
446              
447             # XMLDecl (Expat, Version, Encoding, Standalone)
448             sub handle_xml_decl() {
449             my ($expat, $version, $encoding, $standalone) = @_;
450             }
451              
452             #=================================================================
453              
454             =head2 $Document = Rinchi::Outlook->parsefile($path);
455              
456             Calls XML::Parser->parsefile with the given path and the Rinchi::Outlook
457             handlers. A tree of DOM objects is returned.
458              
459             Open FILE for reading, then call parse with the open handle. The
460             file is closed no matter how parse returns. Returns what parse
461             returns.
462              
463             =cut
464              
465             sub parsefile($) {
466             my $self = shift @_;
467             my $source = shift @_;
468              
469             my $Parser = new XML::Parser('Handlers' => \%sax_handlers);
470             $Parser->parsefile($source);
471             return $Document;
472             }
473              
474             #===============================================================================
475             {
476             package XML::DOM::Implementation;
477              
478             sub createDocument() {
479             my $self = shift;
480              
481             my $doc = new XML::DOM::Document();
482             my $xmlDecl = $doc->createXMLDecl('1.0','UTF-8','yes');
483             $doc->setXMLDecl($xmlDecl);
484             my $ns;
485             my $qname;
486             my $doctype;
487             if (@_) {
488             $ns = shift;
489             }
490             if (@_) {
491             $qname = shift;
492             }
493             if (@_) {
494             $doctype = shift;
495             }
496             if (defined($qname)) {
497             my $element = $doc->createElement($qname);
498             $doc->appendChild($element);
499             }
500             return $doc;
501             }
502             }
503              
504             #===============================================================================
505             # Generated by Hymnos Perl Code Generator
506             # UML Model UUID:
507              
508             package Rinchi::Outlook::Document;
509              
510             use Carp;
511              
512             our @ISA = qw(XML::DOM::Document);
513             our @EXPORT = qw();
514             our @EXPORT_OK = qw();
515              
516             =head1 DESCRIPTION of Document
517              
518             Rinchi::Outlook::Document subclasses XML::DOM::Document and is used for creating
519             Rinchi::Outlook::* objects based on the following tag to class mapping.
520              
521             'action' => 'Rinchi::Outlook::Action',
522             'actions' => 'Rinchi::Outlook::Actions',
523             'address-entries' => 'Rinchi::Outlook::AddressEntries',
524             'address-entry' => 'Rinchi::Outlook::AddressEntry',
525             'address-list' => 'Rinchi::Outlook::AddressList',
526             'address-lists' => 'Rinchi::Outlook::AddressLists',
527             'application' => 'Rinchi::Outlook::Application',
528             'appointment-item' => 'Rinchi::Outlook::AppointmentItem',
529             'attachment' => 'Rinchi::Outlook::Attachment',
530             'attachments' => 'Rinchi::Outlook::Attachments',
531             'Body' => 'Rinchi::Outlook::Body',
532             'conflict' => 'Rinchi::Outlook::Conflict',
533             'conflicts' => 'Rinchi::Outlook::Conflicts',
534             'contact-item' => 'Rinchi::Outlook::ContactItem',
535             'dist-list-item' => 'Rinchi::Outlook::DistListItem',
536             'document-item' => 'Rinchi::Outlook::DocumentItem',
537             'exception' => 'Rinchi::Outlook::Exception',
538             'exceptions' => 'Rinchi::Outlook::Exceptions',
539             'explorer' => 'Rinchi::Outlook::Explorer',
540             'explorers' => 'Rinchi::Outlook::Explorers',
541             'folders' => 'Rinchi::Outlook::Folders',
542             'form-description' => 'Rinchi::Outlook::FormDescription',
543             'inspector' => 'Rinchi::Outlook::Inspector',
544             'inspectors' => 'Rinchi::Outlook::Inspectors',
545             'item-properties' => 'Rinchi::Outlook::ItemProperties',
546             'item-property' => 'Rinchi::Outlook::ItemProperty',
547             'items' => 'Rinchi::Outlook::Items',
548             'journal-item' => 'Rinchi::Outlook::JournalItem',
549             'link' => 'Rinchi::Outlook::Link',
550             'links' => 'Rinchi::Outlook::Links',
551             'mail-item' => 'Rinchi::Outlook::MailItem',
552             'mapi-folder' => 'Rinchi::Outlook::MAPIFolder',
553             'meeting-item' => 'Rinchi::Outlook::MeetingItem',
554             'name-space' => 'Rinchi::Outlook::NameSpace',
555             'note-item' => 'Rinchi::Outlook::NoteItem',
556             'outlook-bar-group' => 'Rinchi::Outlook::OutlookBarGroup',
557             'outlook-bar-groups' => 'Rinchi::Outlook::OutlookBarGroups',
558             'outlook-bar-pane' => 'Rinchi::Outlook::OutlookBarPane',
559             'outlook-bar-shortcut' => 'Rinchi::Outlook::OutlookBarShortcut',
560             'outlook-bar-shortcuts' => 'Rinchi::Outlook::OutlookBarShortcuts',
561             'outlook-bar-storage' => 'Rinchi::Outlook::OutlookBarStorage',
562             'outlook-base-item-object' => 'Rinchi::Outlook::OutlookBaseItemObject',
563             'outlook-collection' => 'Rinchi::Outlook::OutlookCollection',
564             'outlook-entry' => 'Rinchi::Outlook::OutlookEntry',
565             'outlook-item-object' => 'Rinchi::Outlook::OutlookItemObject',
566             'outlook-named-entry' => 'Rinchi::Outlook::OutlookNamedEntry',
567             'pages' => 'Rinchi::Outlook::Pages',
568             'panes' => 'Rinchi::Outlook::Panes',
569             'post-item' => 'Rinchi::Outlook::PostItem',
570             'property-pages' => 'Rinchi::Outlook::PropertyPages',
571             'property-page-site' => 'Rinchi::Outlook::PropertyPageSite',
572             'recipient' => 'Rinchi::Outlook::Recipient',
573             'recipients' => 'Rinchi::Outlook::Recipients',
574             'recurrence-pattern' => 'Rinchi::Outlook::RecurrencePattern',
575             'reminder' => 'Rinchi::Outlook::Reminder',
576             'reminders' => 'Rinchi::Outlook::Reminders',
577             'remote-item' => 'Rinchi::Outlook::RemoteItem',
578             'report-item' => 'Rinchi::Outlook::ReportItem',
579             'results' => 'Rinchi::Outlook::Results',
580             'search' => 'Rinchi::Outlook::Search',
581             'selection' => 'Rinchi::Outlook::Selection',
582             'sync-object' => 'Rinchi::Outlook::SyncObject',
583             'sync-objects' => 'Rinchi::Outlook::SyncObjects',
584             'task-item' => 'Rinchi::Outlook::TaskItem',
585             'task-request-accept-item' => 'Rinchi::Outlook::TaskRequestAcceptItem',
586             'task-request-decline-item' => 'Rinchi::Outlook::TaskRequestDeclineItem',
587             'task-request-item' => 'Rinchi::Outlook::TaskRequestItem',
588             'task-request-update-item' => 'Rinchi::Outlook::TaskRequestUpdateItem',
589             'user-properties' => 'Rinchi::Outlook::UserProperties',
590             'user-property' => 'Rinchi::Outlook::UserProperty',
591             'view' => 'Rinchi::Outlook::View',
592             'views' => 'Rinchi::Outlook::Views',
593              
594             =cut
595              
596             #===============================================================================
597              
598             =head1 METHODS for Document objects
599              
600             =head2 $Object = Rinchi::Outlook::Document->new();
601              
602             Create a new Rinchi::Outlook::Document object.
603              
604             =cut
605              
606             sub new() {
607             my $class = shift;
608             $class = ref($class) || $class;
609              
610             my $qname;
611             if (@_) {
612             $qname = shift;
613             }
614              
615             my $self = XML::DOM::Document::new($class);
616             my $xmlDecl = $self->createXMLDecl('1.0','UTF-8','yes');
617             $self->setXMLDecl($xmlDecl);
618             if (defined($qname)) {
619             my $element = $self->createElement($qname);
620             $self->appendChild($element);
621             }
622             return $self;
623             }
624              
625             our %tag_map = (
626             'action' => 'Rinchi::Outlook::Action',
627             'actions' => 'Rinchi::Outlook::Actions',
628             'address-entries' => 'Rinchi::Outlook::AddressEntries',
629             'address-entry' => 'Rinchi::Outlook::AddressEntry',
630             'address-list' => 'Rinchi::Outlook::AddressList',
631             'address-lists' => 'Rinchi::Outlook::AddressLists',
632             'application' => 'Rinchi::Outlook::Application',
633             'appointment-item' => 'Rinchi::Outlook::AppointmentItem',
634             'attachment' => 'Rinchi::Outlook::Attachment',
635             'attachments' => 'Rinchi::Outlook::Attachments',
636             'Body' => 'Rinchi::Outlook::Body',
637             'conflict' => 'Rinchi::Outlook::Conflict',
638             'conflicts' => 'Rinchi::Outlook::Conflicts',
639             'contact-item' => 'Rinchi::Outlook::ContactItem',
640             'dist-list-item' => 'Rinchi::Outlook::DistListItem',
641             'document-item' => 'Rinchi::Outlook::DocumentItem',
642             'exception' => 'Rinchi::Outlook::Exception',
643             'exceptions' => 'Rinchi::Outlook::Exceptions',
644             'explorer' => 'Rinchi::Outlook::Explorer',
645             'explorers' => 'Rinchi::Outlook::Explorers',
646             'folders' => 'Rinchi::Outlook::Folders',
647             'form-description' => 'Rinchi::Outlook::FormDescription',
648             'inspector' => 'Rinchi::Outlook::Inspector',
649             'inspectors' => 'Rinchi::Outlook::Inspectors',
650             'item-properties' => 'Rinchi::Outlook::ItemProperties',
651             'item-property' => 'Rinchi::Outlook::ItemProperty',
652             'items' => 'Rinchi::Outlook::Items',
653             'journal-item' => 'Rinchi::Outlook::JournalItem',
654             'link' => 'Rinchi::Outlook::Link',
655             'links' => 'Rinchi::Outlook::Links',
656             'mail-item' => 'Rinchi::Outlook::MailItem',
657             'mapi-folder' => 'Rinchi::Outlook::MAPIFolder',
658             'meeting-item' => 'Rinchi::Outlook::MeetingItem',
659             'name-space' => 'Rinchi::Outlook::NameSpace',
660             'note-item' => 'Rinchi::Outlook::NoteItem',
661             'outlook-bar-group' => 'Rinchi::Outlook::OutlookBarGroup',
662             'outlook-bar-groups' => 'Rinchi::Outlook::OutlookBarGroups',
663             'outlook-bar-pane' => 'Rinchi::Outlook::OutlookBarPane',
664             'outlook-bar-shortcut' => 'Rinchi::Outlook::OutlookBarShortcut',
665             'outlook-bar-shortcuts' => 'Rinchi::Outlook::OutlookBarShortcuts',
666             'outlook-bar-storage' => 'Rinchi::Outlook::OutlookBarStorage',
667             'outlook-base-item-object' => 'Rinchi::Outlook::OutlookBaseItemObject',
668             'outlook-collection' => 'Rinchi::Outlook::OutlookCollection',
669             'outlook-entry' => 'Rinchi::Outlook::OutlookEntry',
670             'outlook-item-object' => 'Rinchi::Outlook::OutlookItemObject',
671             'outlook-named-entry' => 'Rinchi::Outlook::OutlookNamedEntry',
672             'pages' => 'Rinchi::Outlook::Pages',
673             'panes' => 'Rinchi::Outlook::Panes',
674             'post-item' => 'Rinchi::Outlook::PostItem',
675             'property-pages' => 'Rinchi::Outlook::PropertyPages',
676             'property-page-site' => 'Rinchi::Outlook::PropertyPageSite',
677             'recipient' => 'Rinchi::Outlook::Recipient',
678             'recipients' => 'Rinchi::Outlook::Recipients',
679             'recurrence-pattern' => 'Rinchi::Outlook::RecurrencePattern',
680             'reminder' => 'Rinchi::Outlook::Reminder',
681             'reminders' => 'Rinchi::Outlook::Reminders',
682             'remote-item' => 'Rinchi::Outlook::RemoteItem',
683             'report-item' => 'Rinchi::Outlook::ReportItem',
684             'results' => 'Rinchi::Outlook::Results',
685             'search' => 'Rinchi::Outlook::Search',
686             'selection' => 'Rinchi::Outlook::Selection',
687             'sync-object' => 'Rinchi::Outlook::SyncObject',
688             'sync-objects' => 'Rinchi::Outlook::SyncObjects',
689             'task-item' => 'Rinchi::Outlook::TaskItem',
690             'task-request-accept-item' => 'Rinchi::Outlook::TaskRequestAcceptItem',
691             'task-request-decline-item' => 'Rinchi::Outlook::TaskRequestDeclineItem',
692             'task-request-item' => 'Rinchi::Outlook::TaskRequestItem',
693             'task-request-update-item' => 'Rinchi::Outlook::TaskRequestUpdateItem',
694             'user-properties' => 'Rinchi::Outlook::UserProperties',
695             'user-property' => 'Rinchi::Outlook::UserProperty',
696             'view' => 'Rinchi::Outlook::View',
697             'views' => 'Rinchi::Outlook::Views',
698             );
699              
700             sub createElement() {
701             my $self = shift;
702             my $qname = shift;
703             if(exists($tag_map{$qname})) {
704             return XML::DOM::Element::new($tag_map{$qname},$self,$qname);
705             } else {
706             return XML::DOM::Element->new($self,$qname);
707             }
708             }
709              
710             #===============================================================================
711             # Generated by Hymnos Perl Code Generator
712             # UML Model UUID:
713              
714             package Rinchi::Outlook::Element;
715              
716             our @ISA = qw(XML::DOM::Element);
717             our @EXPORT = qw();
718             our @EXPORT_OK = qw();
719              
720             BEGIN
721             {
722             import XML::DOM::Node qw( :Fields );
723             }
724              
725             =head1 METHODS for Rinchi::Outlook::Element objects
726              
727             =cut
728              
729             #===============================================================================
730             # Rinchi::Outlook::Element::xmi_id
731              
732             =head2 $value = $Object->xmi_id([$new_value]);
733              
734             Set or get value of the xmi_id attribute. This attribute is used to provide
735             unique object identification.
736            
737             Type: UUID
738             Lower: 0
739             Upper: 1
740              
741             =cut
742              
743             sub xmi_id() {
744             my $self = shift;
745             if (@_) {
746             $self->setAttribute('xmi.id', lc shift);
747             }
748             return $self->getAttribute('xmi.id');
749             }
750              
751             #===============================================================================
752             # Rinchi::Outlook::Element::xmi_idref
753              
754             =head2 $value = $Object->xmi_idref([$new_value]);
755              
756             Set or get value of the xmi_idref attribute. The UUID used can reference any
757             object, including external objects.
758            
759             Type: UUID
760             Lower: 0
761             Upper: 1
762              
763             =cut
764              
765             sub xmi_idref() {
766             my $self = shift;
767             if (@_) {
768             $self->setAttribute('xmi.idref', lc shift);
769             }
770             return $self->getAttribute('xmi.idref');
771             }
772              
773             #===============================================================================
774             # Rinchi::Outlook::Element::get_collection()
775              
776             sub get_collection() {
777             my $self = shift;
778             my $name = shift;
779             my $qname = shift;
780              
781             $self->[_UserData] = {} unless (defined($self->[_UserData]));
782             $self->[_UserData]{'_collections'} = {} unless (exists($self->[_UserData]{'_collections'}));
783             unless(exists($self->[_UserData]{'_collections'}{$name})) {
784             my $elem = $self->getOwnerDocument->createElement($qname);
785             $self->appendChild($elem);
786             $self->[_UserData]{'_collections'}{$name} = $elem;
787             }
788             return $self->[_UserData]{'_collections'}{$name};
789             }
790              
791             #===============================================================================
792             # Rinchi::Outlook::Element::attribute_as_element()
793              
794             sub attribute_as_element() {
795             my $self = shift;
796             my $name = shift;
797             my $text = shift;
798              
799             $self->[_UserData] = {} unless (defined($self->[_UserData]));
800             $self->[_UserData]{'_elements'} = {} unless (exists($self->[_UserData]{'_elements'}));
801             if(defined($text)) {
802             if(exists($self->[_UserData]{'_elements'}{$name})) {
803             $self->removeChildNodes;
804             }
805             my $doc = $self->getOwnerDocument();
806             my $element = $doc->createElement($name);
807             $element->appendChild($doc->createTextNode($text));
808             $self->appendChild($element);
809             $self->[_UserData]{'_elements'}{$name} = $element;
810             }
811             unless(exists($self->[_UserData]{'_elements'}{$name})) {
812             return undef;
813             }
814             return $self->[_UserData]{'_elements'}{$name};
815             }
816              
817             #===============================================================================
818             # Generated by Hymnos Perl Code Generator
819             # UML Model UUID:
820              
821             package Rinchi::Outlook::Body;
822              
823             use Carp;
824              
825             our @ISA = qw(Rinchi::Outlook::Element);
826             our @EXPORT = qw();
827             our @EXPORT_OK = qw();
828              
829             #===============================================================================
830             # Generated by Hymnos Perl Code Generator
831             # UML Model UUID: d5d96ac8-3c43-11dd-a5ba-001c25551abc
832              
833             package Rinchi::Outlook::Action;
834              
835             use Carp;
836              
837             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
838             our @EXPORT = qw();
839             our @EXPORT_OK = qw();
840              
841             =head1 DESCRIPTION of Action class
842              
843             Rinchi::Outlook::Action is used for representing Action objects. Represents a
844             specialized action (for example, the voting options response) that can be
845             executed on an item. The Action object is a member of the Actions object.
846              
847             =head1 METHODS for Action objects
848              
849             =cut
850              
851             #===============================================================================
852              
853             {
854             no strict "refs";
855             *TAG_NAME = sub { return 'action'; };
856             }
857              
858             #===============================================================================
859             # Rinchi::Outlook::Action::CopyLike
860              
861             =head2 $value = $Object->CopyLike([$new_value]);
862              
863             Set or get value of the CopyLike attribute.
864            
865             Type: OlActionCopyLike
866             Lower: 0
867             Upper: 1
868              
869             =cut
870              
871             sub CopyLike() {
872             my $self = shift;
873             if (@_) {
874             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
875             $self->setAttribute('CopyLike', shift);
876             } else {
877             if(ref($_[0])) {
878             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlActionCopyLike\' for attribute \'CopyLike\'';
879             } else {
880             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlActionCopyLike\' for attribute \'CopyLike\'';
881             }
882             }
883             }
884             return $self->getAttribute('CopyLike');
885             }
886              
887             #===============================================================================
888             # Rinchi::Outlook::Action::Enabled
889              
890             =head2 $value = $Object->Enabled([$new_value]);
891              
892             Set or get value of the Enabled attribute.
893            
894             Type: Boolean
895             Lower: 0
896             Upper: 1
897              
898             =cut
899              
900             sub Enabled() {
901             my $self = shift;
902             if (@_) {
903             if ($_[0] =~ /^(true|false)$/i ) {
904             $self->setAttribute('Enabled', lc shift);
905             } else {
906             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Enabled\'';
907             }
908             }
909             return $self->getAttribute('Enabled');
910             }
911              
912             #===============================================================================
913             # Rinchi::Outlook::Action::MessageClass
914              
915             =head2 $value = $Object->MessageClass([$new_value]);
916              
917             Set or get value of the MessageClass attribute.
918            
919             Type: String
920             Lower: 0
921             Upper: 1
922              
923             =cut
924              
925             sub MessageClass() {
926             my $self = shift;
927             if (@_) {
928             $self->setAttribute('MessageClass', shift);
929             }
930             return $self->getAttribute('MessageClass');
931             }
932              
933             #===============================================================================
934             # Rinchi::Outlook::Action::Prefix
935              
936             =head2 $value = $Object->Prefix([$new_value]);
937              
938             Set or get value of the Prefix attribute.
939            
940             Type: String
941             Lower: 0
942             Upper: 1
943              
944             =cut
945              
946             sub Prefix() {
947             my $self = shift;
948             if (@_) {
949             $self->setAttribute('Prefix', shift);
950             }
951             return $self->getAttribute('Prefix');
952             }
953              
954             #===============================================================================
955             # Rinchi::Outlook::Action::ReplyStyle
956              
957             =head2 $value = $Object->ReplyStyle([$new_value]);
958              
959             Set or get value of the ReplyStyle attribute.
960            
961             Type: OlActionReplyStyle
962             Lower: 0
963             Upper: 1
964              
965             =cut
966              
967             sub ReplyStyle() {
968             my $self = shift;
969             if (@_) {
970             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
971             $self->setAttribute('ReplyStyle', shift);
972             } else {
973             if(ref($_[0])) {
974             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlActionReplyStyle\' for attribute \'ReplyStyle\'';
975             } else {
976             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlActionReplyStyle\' for attribute \'ReplyStyle\'';
977             }
978             }
979             }
980             return $self->getAttribute('ReplyStyle');
981             }
982              
983             #===============================================================================
984             # Rinchi::Outlook::Action::ResponseStyle
985              
986             =head2 $value = $Object->ResponseStyle([$new_value]);
987              
988             Set or get value of the ResponseStyle attribute.
989            
990             Type: OlActionResponseStyle
991             Lower: 0
992             Upper: 1
993              
994             =cut
995              
996             sub ResponseStyle() {
997             my $self = shift;
998             if (@_) {
999             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1000             $self->setAttribute('ResponseStyle', shift);
1001             } else {
1002             if(ref($_[0])) {
1003             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlActionResponseStyle\' for attribute \'ResponseStyle\'';
1004             } else {
1005             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlActionResponseStyle\' for attribute \'ResponseStyle\'';
1006             }
1007             }
1008             }
1009             return $self->getAttribute('ResponseStyle');
1010             }
1011              
1012             #===============================================================================
1013             # Rinchi::Outlook::Action::ShowOn
1014              
1015             =head2 $value = $Object->ShowOn([$new_value]);
1016              
1017             Set or get value of the ShowOn attribute.
1018            
1019             Type: OlActionShowOn
1020             Lower: 0
1021             Upper: 1
1022              
1023             =cut
1024              
1025             sub ShowOn() {
1026             my $self = shift;
1027             if (@_) {
1028             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1029             $self->setAttribute('ShowOn', shift);
1030             } else {
1031             if(ref($_[0])) {
1032             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlActionShowOn\' for attribute \'ShowOn\'';
1033             } else {
1034             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlActionShowOn\' for attribute \'ShowOn\'';
1035             }
1036             }
1037             }
1038             return $self->getAttribute('ShowOn');
1039             }
1040              
1041             ##END_PACKAGE Action
1042              
1043             #===============================================================================
1044             # Generated by Hymnos Perl Code Generator
1045             # UML Model UUID: d5d99bd8-3c43-11dd-a96e-001c25551abc
1046              
1047             package Rinchi::Outlook::AddressEntry;
1048              
1049             use Carp;
1050              
1051             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
1052             our @EXPORT = qw();
1053             our @EXPORT_OK = qw();
1054              
1055             =head1 DESCRIPTION of AddressEntry objects
1056              
1057             Rinchi::Outlook::AddressEntry is used for representing AddressEntry objects.
1058              
1059             =head1 METHODS for AddressEntry objects
1060              
1061             =cut
1062              
1063             #===============================================================================
1064              
1065             {
1066             no strict "refs";
1067             *TAG_NAME = sub { return 'address-entry'; };
1068             }
1069              
1070             #===============================================================================
1071             # Rinchi::Outlook::AddressEntry::Address
1072              
1073             =head2 $value = $Object->Address([$new_value]);
1074              
1075             Set or get value of the Address attribute.
1076            
1077             Type: String
1078             Lower: 0
1079             Upper: 1
1080              
1081             =cut
1082              
1083             sub Address() {
1084             my $self = shift;
1085             if (@_) {
1086             $self->setAttribute('Address', shift);
1087             }
1088             return $self->getAttribute('Address');
1089             }
1090              
1091             #===============================================================================
1092             # Rinchi::Outlook::AddressEntry::DisplayType
1093              
1094             =head2 $value = $Object->DisplayType([$new_value]);
1095              
1096             Set or get value of the DisplayType attribute.
1097            
1098             Type: OlDisplayType
1099             Lower: 0
1100             Upper: 1
1101              
1102             =cut
1103              
1104             sub DisplayType() {
1105             my $self = shift;
1106             if (@_) {
1107             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1108             $self->setAttribute('DisplayType', shift);
1109             } else {
1110             if(ref($_[0])) {
1111             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlDisplayType\' for attribute \'DisplayType\'';
1112             } else {
1113             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlDisplayType\' for attribute \'DisplayType\'';
1114             }
1115             }
1116             }
1117             return $self->getAttribute('DisplayType');
1118             }
1119              
1120             #===============================================================================
1121             # Rinchi::Outlook::AddressEntry::ID
1122              
1123             =head2 $value = $Object->ID([$new_value]);
1124              
1125             Set or get value of the ID attribute.
1126            
1127             Type: String
1128             Lower: 0
1129             Upper: 1
1130              
1131             =cut
1132              
1133             sub ID() {
1134             my $self = shift;
1135             if (@_) {
1136             $self->setAttribute('ID', shift);
1137             }
1138             return $self->getAttribute('ID');
1139             }
1140              
1141             #===============================================================================
1142             # Rinchi::Outlook::AddressEntry::Manager
1143              
1144             =head2 $value = $Object->Manager([$new_value]);
1145              
1146             Set or get value of the Manager attribute.
1147            
1148             Type: AddressEntry
1149             Lower: 0
1150             Upper: 1
1151              
1152             =cut
1153              
1154             sub Manager() {
1155             my $self = shift;
1156             if (@_) {
1157             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1158             if ('Rinchi::Outlook::AddressEntry' =~ /$regexp/ ) {
1159             $self->attribute_as_element('Manager', shift);
1160             } else {
1161             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::AddressEntry\' for attribute \'Manager\'';
1162             }
1163             }
1164             return $self->attribute_as_element('Manager');
1165             }
1166              
1167             #===============================================================================
1168             # Rinchi::Outlook::AddressEntry::Members
1169              
1170             =head2 $Element = $Object->Members();
1171              
1172             Set or get value of the Members attribute.
1173            
1174             Type: AddressEntries
1175             Lower: 0
1176             Upper: 1
1177              
1178             =cut
1179              
1180             sub Members() {
1181             my $self = shift;
1182             return $self->get_collection('AddressEntries','address-entries');
1183             }
1184              
1185             #===============================================================================
1186             # Rinchi::Outlook::AddressEntry::Type
1187              
1188             =head2 $value = $Object->Type([$new_value]);
1189              
1190             Set or get value of the Type attribute.
1191            
1192             Type: String
1193             Lower: 0
1194             Upper: 1
1195              
1196             =cut
1197              
1198             sub Type() {
1199             my $self = shift;
1200             if (@_) {
1201             $self->setAttribute('Type', shift);
1202             }
1203             return $self->getAttribute('Type');
1204             }
1205              
1206             ##END_PACKAGE AddressEntry
1207              
1208             #===============================================================================
1209             # Generated by Hymnos Perl Code Generator
1210             # UML Model UUID: d5d9ab96-3c43-11dd-992f-001c25551abc
1211              
1212             package Rinchi::Outlook::AddressList;
1213              
1214             use Carp;
1215              
1216             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
1217             our @EXPORT = qw();
1218             our @EXPORT_OK = qw();
1219              
1220             =head1 DESCRIPTION of AddressList objects
1221              
1222             Rinchi::Outlook::AddressList is used for representing AddressList objects.
1223              
1224             =head1 METHODS for AddressList objects
1225              
1226             =cut
1227              
1228             #===============================================================================
1229              
1230             {
1231             no strict "refs";
1232             *TAG_NAME = sub { return 'address-list'; };
1233             }
1234              
1235             #===============================================================================
1236             # Rinchi::Outlook::AddressList::AddressEntries
1237              
1238             =head2 $Element = $Object->AddressEntries();
1239              
1240             Set or get value of the AddressEntries attribute.
1241            
1242             Type: AddressEntries
1243             Lower: 0
1244             Upper: 1
1245              
1246             =cut
1247              
1248             sub AddressEntries() {
1249             my $self = shift;
1250             return $self->get_collection('AddressEntries','address-entries');
1251             }
1252              
1253             #===============================================================================
1254             # Rinchi::Outlook::AddressList::ID
1255              
1256             =head2 $value = $Object->ID([$new_value]);
1257              
1258             Set or get value of the ID attribute.
1259            
1260             Type: String
1261             Lower: 0
1262             Upper: 1
1263              
1264             =cut
1265              
1266             sub ID() {
1267             my $self = shift;
1268             if (@_) {
1269             $self->setAttribute('ID', shift);
1270             }
1271             return $self->getAttribute('ID');
1272             }
1273              
1274             #===============================================================================
1275             # Rinchi::Outlook::AddressList::Index
1276              
1277             =head2 $value = $Object->Index([$new_value]);
1278              
1279             Set or get value of the Index attribute.
1280              
1281            
1282             Type: Long
1283             Lower: 0
1284             Upper: 1
1285              
1286             =cut
1287              
1288             sub Index() {
1289             my $self = shift;
1290             if (@_) {
1291             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1292             $self->setAttribute('Index', shift);
1293             } else {
1294             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Index\'';
1295             }
1296             }
1297             return $self->getAttribute('Index');
1298             }
1299              
1300             #===============================================================================
1301             # Rinchi::Outlook::AddressList::IsReadOnly
1302              
1303             =head2 $value = $Object->IsReadOnly([$new_value]);
1304              
1305             Set or get value of the IsReadOnly attribute.
1306              
1307            
1308             Type: Boolean
1309             Lower: 0
1310             Upper: 1
1311              
1312             =cut
1313              
1314             sub IsReadOnly() {
1315             my $self = shift;
1316             if (@_) {
1317             if ($_[0] =~ /^(true|false)$/i ) {
1318             $self->setAttribute('IsReadOnly', lc shift);
1319             } else {
1320             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsReadOnly\'';
1321             }
1322             }
1323             return $self->getAttribute('IsReadOnly');
1324             }
1325              
1326             ##END_PACKAGE AddressList
1327              
1328             #===============================================================================
1329             # Generated by Hymnos Perl Code Generator
1330             # UML Model UUID: d5d9dc7e-3c43-11dd-9b20-001c25551abc
1331              
1332             package Rinchi::Outlook::Application;
1333              
1334             use Carp;
1335              
1336             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
1337             our @EXPORT = qw();
1338             our @EXPORT_OK = qw();
1339              
1340             =head1 DESCRIPTION of Application objects
1341              
1342             Rinchi::Outlook::Application is used for representing Application objects.
1343              
1344             =head1 METHODS for Application objects
1345              
1346             =cut
1347              
1348             #===============================================================================
1349              
1350             {
1351             no strict "refs";
1352             *TAG_NAME = sub { return 'application'; };
1353             }
1354              
1355             #===============================================================================
1356             # Rinchi::Outlook::Application::AnswerWizard
1357              
1358             =head2 $value = $Object->AnswerWizard([$new_value]);
1359              
1360             Set or get value of the AnswerWizard attribute.
1361              
1362            
1363             Type: AnswerWizard
1364             Lower: 0
1365             Upper: 1
1366              
1367             =cut
1368              
1369             sub AnswerWizard() {
1370             my $self = shift;
1371             if (@_) {
1372             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1373             if ('Rinchi::Outlook::AnswerWizard' =~ /$regexp/ ) {
1374             $self->attribute_as_element('AnswerWizard', shift);
1375             } else {
1376             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::AnswerWizard\' for attribute \'AnswerWizard\'';
1377             }
1378             }
1379             return $self->attribute_as_element('AnswerWizard');
1380             }
1381              
1382             #===============================================================================
1383             # Rinchi::Outlook::Application::Application
1384              
1385             =head2 $value = $Object->Application([$new_value]);
1386              
1387             Set or get value of the Application attribute.
1388              
1389            
1390             Type: Application
1391             Lower: 0
1392             Upper: 1
1393              
1394             =cut
1395              
1396             sub Application() {
1397             my $self = shift;
1398             if (@_) {
1399             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1400             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
1401             $self->attribute_as_element('Application', shift);
1402             } else {
1403             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
1404             }
1405             }
1406             return $self->attribute_as_element('Application');
1407             }
1408              
1409             #===============================================================================
1410             # Rinchi::Outlook::Application::Assistant
1411              
1412             =head2 $value = $Object->Assistant([$new_value]);
1413              
1414             Set or get value of the Assistant attribute.
1415              
1416            
1417             Type: Assistant
1418             Lower: 0
1419             Upper: 1
1420              
1421             =cut
1422              
1423             sub Assistant() {
1424             my $self = shift;
1425             if (@_) {
1426             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1427             if ('Rinchi::Outlook::Assistant' =~ /$regexp/ ) {
1428             $self->attribute_as_element('Assistant', shift);
1429             } else {
1430             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Assistant\' for attribute \'Assistant\'';
1431             }
1432             }
1433             return $self->attribute_as_element('Assistant');
1434             }
1435              
1436             #===============================================================================
1437             # Rinchi::Outlook::Application::COMAddIns
1438              
1439             =head2 $value = $Object->COMAddIns([$new_value]);
1440              
1441             Set or get value of the COMAddIns attribute.
1442              
1443            
1444             Type: COMAddIns
1445             Lower: 0
1446             Upper: 1
1447              
1448             =cut
1449              
1450             sub COMAddIns() {
1451             my $self = shift;
1452             if (@_) {
1453             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1454             if ('Rinchi::Outlook::COMAddIns' =~ /$regexp/ ) {
1455             $self->attribute_as_element('COMAddIns', shift);
1456             } else {
1457             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::COMAddIns\' for attribute \'COMAddIns\'';
1458             }
1459             }
1460             return $self->attribute_as_element('COMAddIns');
1461             }
1462              
1463             #===============================================================================
1464             # Rinchi::Outlook::Application::Class
1465              
1466             =head2 $value = $Object->Class([$new_value]);
1467              
1468             Set or get value of the Class attribute.
1469              
1470            
1471             Type: OlObjectClass
1472             Lower: 0
1473             Upper: 1
1474              
1475             =cut
1476              
1477             sub Class() {
1478             my $self = shift;
1479             if (@_) {
1480             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1481             $self->setAttribute('Class', shift);
1482             } else {
1483             if(ref($_[0])) {
1484             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
1485             } else {
1486             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
1487             }
1488             }
1489             }
1490             return $self->getAttribute('Class');
1491             }
1492              
1493             #===============================================================================
1494             # Rinchi::Outlook::Application::Explorers
1495              
1496             =head2 $Element = $Object->Explorers();
1497              
1498             Set or get value of the Explorers attribute.
1499              
1500            
1501             Type: Explorers
1502             Lower: 0
1503             Upper: 1
1504              
1505             =cut
1506              
1507             sub Explorers() {
1508             my $self = shift;
1509             return $self->get_collection('Explorers','explorers');
1510             }
1511              
1512             #===============================================================================
1513             # Rinchi::Outlook::Application::FeatureInstall
1514              
1515             =head2 $value = $Object->FeatureInstall([$new_value]);
1516              
1517             Set or get value of the FeatureInstall attribute.
1518              
1519            
1520             Type: MsoFeatureInstall
1521             Lower: 0
1522             Upper: 1
1523              
1524             =cut
1525              
1526             sub FeatureInstall() {
1527             my $self = shift;
1528             if (@_) {
1529             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1530             if ('Rinchi::Outlook::MsoFeatureInstall' =~ /$regexp/ ) {
1531             $self->attribute_as_element('FeatureInstall', shift);
1532             } else {
1533             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::MsoFeatureInstall\' for attribute \'FeatureInstall\'';
1534             }
1535             }
1536             return $self->attribute_as_element('FeatureInstall');
1537             }
1538              
1539             #===============================================================================
1540             # Rinchi::Outlook::Application::Inspectors
1541              
1542             =head2 $Element = $Object->Inspectors();
1543              
1544             Set or get value of the Inspectors attribute.
1545              
1546            
1547             Type: Inspectors
1548             Lower: 0
1549             Upper: 1
1550              
1551             =cut
1552              
1553             sub Inspectors() {
1554             my $self = shift;
1555             return $self->get_collection('Inspectors','inspectors');
1556             }
1557              
1558             #===============================================================================
1559             # Rinchi::Outlook::Application::LanguageSettings
1560              
1561             =head2 $value = $Object->LanguageSettings([$new_value]);
1562              
1563             Set or get value of the LanguageSettings attribute.
1564              
1565            
1566             Type: LanguageSettings
1567             Lower: 0
1568             Upper: 1
1569              
1570             =cut
1571              
1572             sub LanguageSettings() {
1573             my $self = shift;
1574             if (@_) {
1575             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1576             if ('Rinchi::Outlook::LanguageSettings' =~ /$regexp/ ) {
1577             $self->attribute_as_element('LanguageSettings', shift);
1578             } else {
1579             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::LanguageSettings\' for attribute \'LanguageSettings\'';
1580             }
1581             }
1582             return $self->attribute_as_element('LanguageSettings');
1583             }
1584              
1585             #===============================================================================
1586             # Rinchi::Outlook::Application::Name
1587              
1588             =head2 $value = $Object->Name([$new_value]);
1589              
1590             Set or get value of the Name attribute.
1591              
1592            
1593             Type: String
1594             Lower: 0
1595             Upper: 1
1596              
1597             =cut
1598              
1599             sub Name() {
1600             my $self = shift;
1601             if (@_) {
1602             $self->setAttribute('Name', shift);
1603             }
1604             return $self->getAttribute('Name');
1605             }
1606              
1607             #===============================================================================
1608             # Rinchi::Outlook::Application::Parent
1609              
1610             =head2 $value = $Object->Parent([$new_value]);
1611              
1612             Set or get value of the Parent attribute.
1613              
1614            
1615             Type: Object
1616             Lower: 0
1617             Upper: 1
1618              
1619             =cut
1620              
1621             sub Parent() {
1622             my $self = shift;
1623             if (@_) {
1624             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1625             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
1626             $self->attribute_as_element('Parent', shift);
1627             } else {
1628             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
1629             }
1630             }
1631             return $self->attribute_as_element('Parent');
1632             }
1633              
1634             #===============================================================================
1635             # Rinchi::Outlook::Application::ProductCode
1636              
1637             =head2 $value = $Object->ProductCode([$new_value]);
1638              
1639             Set or get value of the ProductCode attribute.
1640              
1641            
1642             Type: String
1643             Lower: 0
1644             Upper: 1
1645              
1646             =cut
1647              
1648             sub ProductCode() {
1649             my $self = shift;
1650             if (@_) {
1651             $self->setAttribute('ProductCode', shift);
1652             }
1653             return $self->getAttribute('ProductCode');
1654             }
1655              
1656             #===============================================================================
1657             # Rinchi::Outlook::Application::Reminders
1658              
1659             =head2 $Element = $Object->Reminders();
1660              
1661             Set or get value of the Reminders attribute.
1662              
1663            
1664             Type: Reminders
1665             Lower: 0
1666             Upper: 1
1667              
1668             =cut
1669              
1670             sub Reminders() {
1671             my $self = shift;
1672             return $self->get_collection('Reminders','reminders');
1673             }
1674              
1675             #===============================================================================
1676             # Rinchi::Outlook::Application::Session
1677              
1678             =head2 $value = $Object->Session([$new_value]);
1679              
1680             Set or get value of the Session attribute.
1681              
1682            
1683             Type: NameSpace
1684             Lower: 0
1685             Upper: 1
1686              
1687             =cut
1688              
1689             sub Session() {
1690             my $self = shift;
1691             if (@_) {
1692             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1693             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
1694             $self->attribute_as_element('Session', shift);
1695             } else {
1696             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
1697             }
1698             }
1699             return $self->attribute_as_element('Session');
1700             }
1701              
1702             #===============================================================================
1703             # Rinchi::Outlook::Application::Version
1704              
1705             =head2 $value = $Object->Version([$new_value]);
1706              
1707             Set or get value of the Version attribute.
1708              
1709            
1710             Type: String
1711             Lower: 0
1712             Upper: 1
1713              
1714             =cut
1715              
1716             sub Version() {
1717             my $self = shift;
1718             if (@_) {
1719             $self->setAttribute('Version', shift);
1720             }
1721             return $self->getAttribute('Version');
1722             }
1723              
1724             ##END_PACKAGE Application
1725              
1726             #===============================================================================
1727             # Generated by Hymnos Perl Code Generator
1728             # UML Model UUID: d5da3d18-3c43-11dd-b5da-001c25551abc
1729              
1730             package Rinchi::Outlook::Attachment;
1731              
1732             use Carp;
1733              
1734             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookEntry);
1735             our @EXPORT = qw();
1736             our @EXPORT_OK = qw();
1737              
1738             =head1 DESCRIPTION of Attachment
1739              
1740             Rinchi::Outlook::Attachment is used for representing Attachment objects.
1741             An Attachment represents a document or link to a document contained in an Outlook item.
1742              
1743             =head1 METHODS for Attachment objects
1744              
1745             =cut
1746              
1747             #===============================================================================
1748              
1749             {
1750             no strict "refs";
1751             *TAG_NAME = sub { return 'attachment'; };
1752             }
1753              
1754             #===============================================================================
1755             # Rinchi::Outlook::Attachment::DisplayName
1756              
1757             =head2 $value = $Object->DisplayName([$new_value]);
1758              
1759             Set or get value of the DisplayName attribute.
1760            
1761             Type: String
1762             Lower: 0
1763             Upper: 1
1764              
1765             =cut
1766              
1767             sub DisplayName() {
1768             my $self = shift;
1769             if (@_) {
1770             $self->setAttribute('DisplayName', shift);
1771             }
1772             return $self->getAttribute('DisplayName');
1773             }
1774              
1775             #===============================================================================
1776             # Rinchi::Outlook::Attachment::FileName
1777              
1778             =head2 $value = $Object->FileName([$new_value]);
1779              
1780             Set or get value of the FileName attribute.
1781            
1782             Type: String
1783             Lower: 0
1784             Upper: 1
1785              
1786             =cut
1787              
1788             sub FileName() {
1789             my $self = shift;
1790             if (@_) {
1791             $self->setAttribute('FileName', shift);
1792             }
1793             return $self->getAttribute('FileName');
1794             }
1795              
1796             #===============================================================================
1797             # Rinchi::Outlook::Attachment::Index
1798              
1799             =head2 $value = $Object->Index([$new_value]);
1800              
1801             Set or get value of the Index attribute.
1802            
1803             Type: Long
1804             Lower: 0
1805             Upper: 1
1806              
1807             =cut
1808              
1809             sub Index() {
1810             my $self = shift;
1811             if (@_) {
1812             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1813             $self->setAttribute('Index', shift);
1814             } else {
1815             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Index\'';
1816             }
1817             }
1818             return $self->getAttribute('Index');
1819             }
1820              
1821             #===============================================================================
1822             # Rinchi::Outlook::Attachment::PathName
1823              
1824             =head2 $value = $Object->PathName([$new_value]);
1825              
1826             Set or get value of the PathName attribute.
1827            
1828             Type: String
1829             Lower: 0
1830             Upper: 1
1831              
1832             =cut
1833              
1834             sub PathName() {
1835             my $self = shift;
1836             if (@_) {
1837             $self->setAttribute('PathName', shift);
1838             }
1839             return $self->getAttribute('PathName');
1840             }
1841              
1842             #===============================================================================
1843             # Rinchi::Outlook::Attachment::Position
1844              
1845             =head2 $value = $Object->Position([$new_value]);
1846              
1847             Set or get value of the Position attribute.
1848            
1849             Type: Long
1850             Lower: 0
1851             Upper: 1
1852              
1853             =cut
1854              
1855             sub Position() {
1856             my $self = shift;
1857             if (@_) {
1858             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1859             $self->setAttribute('Position', shift);
1860             } else {
1861             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Position\'';
1862             }
1863             }
1864             return $self->getAttribute('Position');
1865             }
1866              
1867             #===============================================================================
1868             # Rinchi::Outlook::Attachment::Type
1869              
1870             =head2 $value = $Object->Type([$new_value]);
1871              
1872             Set or get value of the Type attribute.
1873            
1874             Type: OlAttachmentType
1875             Lower: 0
1876             Upper: 1
1877              
1878             =cut
1879              
1880             sub Type() {
1881             my $self = shift;
1882             if (@_) {
1883             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
1884             $self->setAttribute('Type', shift);
1885             } else {
1886             if(ref($_[0])) {
1887             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlAttachmentType\' for attribute \'Type\'';
1888             } else {
1889             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlAttachmentType\' for attribute \'Type\'';
1890             }
1891             }
1892             }
1893             return $self->getAttribute('Type');
1894             }
1895              
1896             #===============================================================================
1897             # Rinchi::Outlook::Attachment::MD5
1898              
1899             =head2 $value = $Object->MD5([$new_value]);
1900              
1901             Set or get value of the MD5 attribute.
1902              
1903             Added attribute for saving the MD5 hash of the saved attachement. This is used for elimination of duplicate files.
1904              
1905             Type: String
1906             Lower: 1
1907             Upper: 1
1908              
1909             =cut
1910              
1911             sub MD5() {
1912             my $self = shift;
1913             if (@_) {
1914             $self->setAttribute('MD5', shift);
1915             }
1916             return $self->getAttribute('MD5');
1917             }
1918              
1919             ##END_PACKAGE Attachment
1920              
1921             #===============================================================================
1922             # Generated by Hymnos Perl Code Generator
1923             # UML Model UUID: d5da5da2-3c43-11dd-9c43-001c25551abc
1924              
1925             package Rinchi::Outlook::Conflict;
1926              
1927             use Carp;
1928              
1929             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
1930             our @EXPORT = qw();
1931             our @EXPORT_OK = qw();
1932              
1933             =head1 DESCRIPTION of Conflict class
1934              
1935             Rinchi::Outlook::Conflict is used for representing Conflict objects.
1936              
1937             =head1 METHODS for Conflict objects
1938              
1939             =cut
1940              
1941             #===============================================================================
1942              
1943             {
1944             no strict "refs";
1945             *TAG_NAME = sub { return 'conflict'; };
1946             }
1947              
1948             #===============================================================================
1949             # Rinchi::Outlook::Conflict::Item
1950              
1951             =head2 $value = $Object->Item([$new_value]);
1952              
1953             Set or get value of the Item attribute.
1954            
1955             Type: Object
1956             Lower: 0
1957             Upper: 1
1958              
1959             =cut
1960              
1961             sub Item() {
1962             my $self = shift;
1963             if (@_) {
1964             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
1965             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
1966             $self->attribute_as_element('Item', shift);
1967             } else {
1968             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Item\'';
1969             }
1970             }
1971             return $self->attribute_as_element('Item');
1972             }
1973              
1974             #===============================================================================
1975             # Rinchi::Outlook::Conflict::Name
1976              
1977             =head2 $value = $Object->Name([$new_value]);
1978              
1979             Set or get value of the Name attribute.
1980            
1981             Type: String
1982             Lower: 0
1983             Upper: 1
1984              
1985             =cut
1986              
1987             sub Name() {
1988             my $self = shift;
1989             if (@_) {
1990             $self->setAttribute('Name', shift);
1991             }
1992             return $self->getAttribute('Name');
1993             }
1994              
1995             #===============================================================================
1996             # Rinchi::Outlook::Conflict::Type
1997              
1998             =head2 $value = $Object->Type([$new_value]);
1999              
2000             Set or get value of the Type attribute.
2001            
2002             Type: OlObjectClass
2003             Lower: 0
2004             Upper: 1
2005              
2006             =cut
2007              
2008             sub Type() {
2009             my $self = shift;
2010             if (@_) {
2011             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
2012             $self->setAttribute('Type', shift);
2013             } else {
2014             if(ref($_[0])) {
2015             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Type\'';
2016             } else {
2017             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Type\'';
2018             }
2019             }
2020             }
2021             return $self->getAttribute('Type');
2022             }
2023              
2024             ##END_PACKAGE Conflict
2025              
2026             #===============================================================================
2027             # Generated by Hymnos Perl Code Generator
2028             # UML Model UUID: d5db2980-3c43-11dd-8119-001c25551abc
2029              
2030             package Rinchi::Outlook::Exception;
2031              
2032             use Carp;
2033              
2034             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookEntry);
2035             our @EXPORT = qw();
2036             our @EXPORT_OK = qw();
2037              
2038             =head1 DESCRIPTION of Exception class
2039              
2040             Rinchi::Outlook::Exception is used for representing Exception objects. An
2041             Exception object holds information about one instance of an AppointmentItem object
2042             which is an exception to a recurring series.
2043              
2044             =head1 METHODS for Exception objects
2045              
2046             =cut
2047              
2048             #===============================================================================
2049              
2050             {
2051             no strict "refs";
2052             *TAG_NAME = sub { return 'exception'; };
2053             }
2054              
2055             #===============================================================================
2056             # Rinchi::Outlook::Exception::AppointmentItem
2057              
2058             =head2 $value = $Object->AppointmentItem([$new_value]);
2059              
2060             Set or get value of the AppointmentItem attribute.
2061            
2062             Type: AppointmentItem
2063             Lower: 0
2064             Upper: 1
2065              
2066             =cut
2067              
2068             sub AppointmentItem() {
2069             my $self = shift;
2070             if (@_) {
2071             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2072             if ('Rinchi::Outlook::AppointmentItem' =~ /$regexp/ ) {
2073             $self->attribute_as_element('AppointmentItem', shift);
2074             } else {
2075             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::AppointmentItem\' for attribute \'AppointmentItem\'';
2076             }
2077             }
2078             return $self->attribute_as_element('AppointmentItem');
2079             }
2080              
2081             #===============================================================================
2082             # Rinchi::Outlook::Exception::Deleted
2083              
2084             =head2 $value = $Object->Deleted([$new_value]);
2085              
2086             Set or get value of the Deleted attribute.
2087            
2088             Type: Boolean
2089             Lower: 0
2090             Upper: 1
2091              
2092             =cut
2093              
2094             sub Deleted() {
2095             my $self = shift;
2096             if (@_) {
2097             if ($_[0] =~ /^(true|false)$/i ) {
2098             $self->setAttribute('Deleted', lc shift);
2099             } else {
2100             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Deleted\'';
2101             }
2102             }
2103             return $self->getAttribute('Deleted');
2104             }
2105              
2106             #===============================================================================
2107             # Rinchi::Outlook::Exception::ItemProperties
2108              
2109             =head2 $Element = $Object->ItemProperties();
2110              
2111             Set or get value of the ItemProperties attribute.
2112            
2113             Type: ItemProperties (Collection)
2114             Lower: 0
2115             Upper: 1
2116              
2117             =cut
2118              
2119             sub ItemProperties() {
2120             my $self = shift;
2121             return $self->get_collection('ItemProperties','item-properties');
2122             }
2123              
2124             #===============================================================================
2125             # Rinchi::Outlook::Exception::OriginalDate
2126              
2127             =head2 $value = $Object->OriginalDate([$new_value]);
2128              
2129             Set or get value of the OriginalDate attribute.
2130            
2131             Type: VT_DATE
2132             Lower: 0
2133             Upper: 1
2134              
2135             =cut
2136              
2137             sub OriginalDate() {
2138             my $self = shift;
2139             if (@_) {
2140             $self->setAttribute('OriginalDate', shift);
2141             }
2142             return $self->getAttribute('OriginalDate');
2143             }
2144              
2145             ##END_PACKAGE Exception
2146              
2147             #===============================================================================
2148             # Generated by Hymnos Perl Code Generator
2149             # UML Model UUID: d5db58c4-3c43-11dd-88a8-001c25551abc
2150              
2151             package Rinchi::Outlook::Explorer;
2152              
2153             use Carp;
2154              
2155             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookEntry);
2156             our @EXPORT = qw();
2157             our @EXPORT_OK = qw();
2158              
2159             =head1 DESCRIPTION of Explorer class
2160              
2161             Rinchi::Outlook::Explorer is used for representing Explorer objects. An Explorer
2162             represents the window in which the contents of a folder are displayed.
2163              
2164             =head1 METHODS for Explorer objects
2165              
2166             =cut
2167              
2168             #===============================================================================
2169              
2170             {
2171             no strict "refs";
2172             *TAG_NAME = sub { return 'explorer'; };
2173             }
2174              
2175             #===============================================================================
2176             # Rinchi::Outlook::Explorer::Caption
2177              
2178             =head2 $value = $Object->Caption([$new_value]);
2179              
2180             Set or get value of the Caption attribute.
2181            
2182             Type: String
2183             Lower: 0
2184             Upper: 1
2185              
2186             =cut
2187              
2188             sub Caption() {
2189             my $self = shift;
2190             if (@_) {
2191             $self->setAttribute('Caption', shift);
2192             }
2193             return $self->getAttribute('Caption');
2194             }
2195              
2196             #===============================================================================
2197             # Rinchi::Outlook::Explorer::CommandBars
2198              
2199             =head2 $value = $Object->CommandBars([$new_value]);
2200              
2201             Set or get value of the CommandBars attribute.
2202            
2203             Type: CommandBars (Collection)
2204             Lower: 0
2205             Upper: 1
2206              
2207             =cut
2208              
2209             sub CommandBars() {
2210             my $self = shift;
2211             if (@_) {
2212             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2213             if ('Rinchi::Outlook::CommandBars' =~ /$regexp/ ) {
2214             $self->attribute_as_element('CommandBars', shift);
2215             } else {
2216             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::CommandBars\' for attribute \'CommandBars\'';
2217             }
2218             }
2219             return $self->attribute_as_element('CommandBars');
2220             }
2221              
2222             #===============================================================================
2223             # Rinchi::Outlook::Explorer::CurrentFolder
2224              
2225             =head2 $value = $Object->CurrentFolder([$new_value]);
2226              
2227             Set or get value of the CurrentFolder attribute.
2228            
2229             Type: MAPIFolder
2230             Lower: 0
2231             Upper: 1
2232              
2233             =cut
2234              
2235             sub CurrentFolder() {
2236             my $self = shift;
2237             if (@_) {
2238             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2239             if ('Rinchi::Outlook::MAPIFolder' =~ /$regexp/ ) {
2240             $self->attribute_as_element('CurrentFolder', shift);
2241             } else {
2242             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::MAPIFolder\' for attribute \'CurrentFolder\'';
2243             }
2244             }
2245             return $self->attribute_as_element('CurrentFolder');
2246             }
2247              
2248             #===============================================================================
2249             # Rinchi::Outlook::Explorer::CurrentView
2250              
2251             =head2 $value = $Object->CurrentView([$new_value]);
2252              
2253             Set or get value of the CurrentView attribute.
2254              
2255             Type: Variant
2256             Lower: 0
2257             Upper: 1
2258              
2259             =cut
2260              
2261             sub CurrentView() {
2262             my $self = shift;
2263             if (@_) {
2264             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2265             if ('Rinchi::Outlook::Variant' =~ /$regexp/ ) {
2266             $self->attribute_as_element('CurrentView', shift);
2267             } else {
2268             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Variant\' for attribute \'CurrentView\'';
2269             }
2270             }
2271             return $self->attribute_as_element('CurrentView');
2272             }
2273              
2274             #===============================================================================
2275             # Rinchi::Outlook::Explorer::HTMLDocument
2276              
2277             =head2 $value = $Object->HTMLDocument([$new_value]);
2278              
2279             Set or get value of the HTMLDocument attribute.
2280              
2281             Type: Object
2282             Lower: 0
2283             Upper: 1
2284              
2285             =cut
2286              
2287             sub HTMLDocument() {
2288             my $self = shift;
2289             if (@_) {
2290             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2291             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
2292             $self->attribute_as_element('HTMLDocument', shift);
2293             } else {
2294             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'HTMLDocument\'';
2295             }
2296             }
2297             return $self->attribute_as_element('HTMLDocument');
2298             }
2299              
2300             #===============================================================================
2301             # Rinchi::Outlook::Explorer::Height
2302              
2303             =head2 $value = $Object->Height([$new_value]);
2304              
2305             Set or get value of the Height attribute.
2306              
2307             Type: Long
2308             Lower: 0
2309             Upper: 1
2310              
2311             =cut
2312              
2313             sub Height() {
2314             my $self = shift;
2315             if (@_) {
2316             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
2317             $self->setAttribute('Height', shift);
2318             } else {
2319             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Height\'';
2320             }
2321             }
2322             return $self->getAttribute('Height');
2323             }
2324              
2325             #===============================================================================
2326             # Rinchi::Outlook::Explorer::Left
2327              
2328             =head2 $value = $Object->Left([$new_value]);
2329              
2330             Set or get value of the Left attribute.
2331              
2332             Type: Long
2333             Lower: 0
2334             Upper: 1
2335              
2336             =cut
2337              
2338             sub Left() {
2339             my $self = shift;
2340             if (@_) {
2341             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
2342             $self->setAttribute('Left', shift);
2343             } else {
2344             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Left\'';
2345             }
2346             }
2347             return $self->getAttribute('Left');
2348             }
2349              
2350             #===============================================================================
2351             # Rinchi::Outlook::Explorer::Panes
2352              
2353             =head2 $Element = $Object->Panes();
2354              
2355             Set or get value of the Panes attribute.
2356            
2357             Type: Panes (Collection)
2358             Lower: 0
2359             Upper: 1
2360              
2361             =cut
2362              
2363             sub Panes() {
2364             my $self = shift;
2365             return $self->get_collection('Panes','panes');
2366             }
2367              
2368             #===============================================================================
2369             # Rinchi::Outlook::Explorer::Selection
2370              
2371             =head2 $value = $Object->Selection([$new_value]);
2372              
2373             Set or get value of the Selection attribute.
2374            
2375             Type: Selection
2376             Lower: 0
2377             Upper: 1
2378              
2379             =cut
2380              
2381             sub Selection() {
2382             my $self = shift;
2383             if (@_) {
2384             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2385             if ('Rinchi::Outlook::Selection' =~ /$regexp/ ) {
2386             $self->attribute_as_element('Selection', shift);
2387             } else {
2388             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Selection\' for attribute \'Selection\'';
2389             }
2390             }
2391             return $self->attribute_as_element('Selection');
2392             }
2393              
2394             #===============================================================================
2395             # Rinchi::Outlook::Explorer::Top
2396              
2397             =head2 $value = $Object->Top([$new_value]);
2398              
2399             Set or get value of the Top attribute.
2400            
2401             Type: Long
2402             Lower: 0
2403             Upper: 1
2404              
2405             =cut
2406              
2407             sub Top() {
2408             my $self = shift;
2409             if (@_) {
2410             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
2411             $self->setAttribute('Top', shift);
2412             } else {
2413             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Top\'';
2414             }
2415             }
2416             return $self->getAttribute('Top');
2417             }
2418              
2419             #===============================================================================
2420             # Rinchi::Outlook::Explorer::Views
2421              
2422             =head2 $value = $Object->Views([$new_value]);
2423              
2424             Set or get value of the Views attribute.
2425            
2426             Type: Object
2427             Lower: 0
2428             Upper: 1
2429              
2430             =cut
2431              
2432             sub Views() {
2433             my $self = shift;
2434             if (@_) {
2435             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2436             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
2437             $self->attribute_as_element('Views', shift);
2438             } else {
2439             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Views\'';
2440             }
2441             }
2442             return $self->attribute_as_element('Views');
2443             }
2444              
2445             #===============================================================================
2446             # Rinchi::Outlook::Explorer::Width
2447              
2448             =head2 $value = $Object->Width([$new_value]);
2449              
2450             Set or get value of the Width attribute.
2451            
2452             Type: Long
2453             Lower: 0
2454             Upper: 1
2455              
2456             =cut
2457              
2458             sub Width() {
2459             my $self = shift;
2460             if (@_) {
2461             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
2462             $self->setAttribute('Width', shift);
2463             } else {
2464             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Width\'';
2465             }
2466             }
2467             return $self->getAttribute('Width');
2468             }
2469              
2470             #===============================================================================
2471             # Rinchi::Outlook::Explorer::WindowState
2472              
2473             =head2 $value = $Object->WindowState([$new_value]);
2474              
2475             Set or get value of the WindowState attribute.
2476            
2477             Type: OlWindowState
2478             Lower: 0
2479             Upper: 1
2480              
2481             =cut
2482              
2483             sub WindowState() {
2484             my $self = shift;
2485             if (@_) {
2486             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
2487             $self->setAttribute('WindowState', shift);
2488             } else {
2489             if(ref($_[0])) {
2490             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlWindowState\' for attribute \'WindowState\'';
2491             } else {
2492             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlWindowState\' for attribute \'WindowState\'';
2493             }
2494             }
2495             }
2496             return $self->getAttribute('WindowState');
2497             }
2498              
2499             ##END_PACKAGE Explorer
2500              
2501             #===============================================================================
2502             # Generated by Hymnos Perl Code Generator
2503             # UML Model UUID: d5dbe85c-3c43-11dd-9f5c-001c25551abc
2504              
2505             package Rinchi::Outlook::FormDescription;
2506              
2507             use Carp;
2508              
2509             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
2510             our @EXPORT = qw();
2511             our @EXPORT_OK = qw();
2512              
2513             =head1 DESCRIPTION of FormDescription class
2514              
2515             Rinchi::Outlook::FormDescription is used for representing FormDescription objects.
2516             A FormDescription contains the general properties of a Microsoft Outlook form.
2517              
2518             =head1 METHODS for FormDescription objects
2519              
2520             =cut
2521              
2522             #===============================================================================
2523              
2524             {
2525             no strict "refs";
2526             *TAG_NAME = sub { return 'form-description'; };
2527             }
2528              
2529             #===============================================================================
2530             # Rinchi::Outlook::FormDescription::Application
2531              
2532             =head2 $value = $Object->Application([$new_value]);
2533              
2534             Set or get value of the Application attribute.
2535            
2536             Type: Application
2537             Lower: 0
2538             Upper: 1
2539              
2540             =cut
2541              
2542             sub Application() {
2543             my $self = shift;
2544             if (@_) {
2545             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2546             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
2547             $self->attribute_as_element('Application', shift);
2548             } else {
2549             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
2550             }
2551             }
2552             return $self->attribute_as_element('Application');
2553             }
2554              
2555             #===============================================================================
2556             # Rinchi::Outlook::FormDescription::Category
2557              
2558             =head2 $value = $Object->Category([$new_value]);
2559              
2560             Set or get value of the Category attribute.
2561            
2562             Type: String
2563             Lower: 0
2564             Upper: 1
2565              
2566             =cut
2567              
2568             sub Category() {
2569             my $self = shift;
2570             if (@_) {
2571             $self->setAttribute('Category', shift);
2572             }
2573             return $self->getAttribute('Category');
2574             }
2575              
2576             #===============================================================================
2577             # Rinchi::Outlook::FormDescription::CategorySub
2578              
2579             =head2 $value = $Object->CategorySub([$new_value]);
2580              
2581             Set or get value of the CategorySub attribute.
2582            
2583             Type: String
2584             Lower: 0
2585             Upper: 1
2586              
2587             =cut
2588              
2589             sub CategorySub() {
2590             my $self = shift;
2591             if (@_) {
2592             $self->setAttribute('CategorySub', shift);
2593             }
2594             return $self->getAttribute('CategorySub');
2595             }
2596              
2597             #===============================================================================
2598             # Rinchi::Outlook::FormDescription::Class
2599              
2600             =head2 $value = $Object->Class([$new_value]);
2601              
2602             Set or get value of the Class attribute.
2603            
2604             Type: OlObjectClass
2605             Lower: 0
2606             Upper: 1
2607              
2608             =cut
2609              
2610             sub Class() {
2611             my $self = shift;
2612             if (@_) {
2613             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
2614             $self->setAttribute('Class', shift);
2615             } else {
2616             if(ref($_[0])) {
2617             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
2618             } else {
2619             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
2620             }
2621             }
2622             }
2623             return $self->getAttribute('Class');
2624             }
2625              
2626             #===============================================================================
2627             # Rinchi::Outlook::FormDescription::Comment
2628              
2629             =head2 $value = $Object->Comment([$new_value]);
2630              
2631             Set or get value of the Comment attribute.
2632            
2633             Type: String
2634             Lower: 0
2635             Upper: 1
2636              
2637             =cut
2638              
2639             sub Comment() {
2640             my $self = shift;
2641             if (@_) {
2642             $self->setAttribute('Comment', shift);
2643             }
2644             return $self->getAttribute('Comment');
2645             }
2646              
2647             #===============================================================================
2648             # Rinchi::Outlook::FormDescription::ContactName
2649              
2650             =head2 $value = $Object->ContactName([$new_value]);
2651              
2652             Set or get value of the ContactName attribute.
2653            
2654             Type: String
2655             Lower: 0
2656             Upper: 1
2657              
2658             =cut
2659              
2660             sub ContactName() {
2661             my $self = shift;
2662             if (@_) {
2663             $self->setAttribute('ContactName', shift);
2664             }
2665             return $self->getAttribute('ContactName');
2666             }
2667              
2668             #===============================================================================
2669             # Rinchi::Outlook::FormDescription::DisplayName
2670              
2671             =head2 $value = $Object->DisplayName([$new_value]);
2672              
2673             Set or get value of the DisplayName attribute.
2674            
2675             Type: String
2676             Lower: 0
2677             Upper: 1
2678              
2679             =cut
2680              
2681             sub DisplayName() {
2682             my $self = shift;
2683             if (@_) {
2684             $self->setAttribute('DisplayName', shift);
2685             }
2686             return $self->getAttribute('DisplayName');
2687             }
2688              
2689             #===============================================================================
2690             # Rinchi::Outlook::FormDescription::Hidden
2691              
2692             =head2 $value = $Object->Hidden([$new_value]);
2693              
2694             Set or get value of the Hidden attribute.
2695            
2696             Type: Boolean
2697             Lower: 0
2698             Upper: 1
2699              
2700             =cut
2701              
2702             sub Hidden() {
2703             my $self = shift;
2704             if (@_) {
2705             if ($_[0] =~ /^(true|false)$/i ) {
2706             $self->setAttribute('Hidden', lc shift);
2707             } else {
2708             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Hidden\'';
2709             }
2710             }
2711             return $self->getAttribute('Hidden');
2712             }
2713              
2714             #===============================================================================
2715             # Rinchi::Outlook::FormDescription::Icon
2716              
2717             =head2 $value = $Object->Icon([$new_value]);
2718              
2719             Set or get value of the Icon attribute.
2720            
2721             Type: String
2722             Lower: 0
2723             Upper: 1
2724              
2725             =cut
2726              
2727             sub Icon() {
2728             my $self = shift;
2729             if (@_) {
2730             $self->setAttribute('Icon', shift);
2731             }
2732             return $self->getAttribute('Icon');
2733             }
2734              
2735             #===============================================================================
2736             # Rinchi::Outlook::FormDescription::Locked
2737              
2738             =head2 $value = $Object->Locked([$new_value]);
2739              
2740             Set or get value of the Locked attribute.
2741            
2742             Type: Boolean
2743             Lower: 0
2744             Upper: 1
2745              
2746             =cut
2747              
2748             sub Locked() {
2749             my $self = shift;
2750             if (@_) {
2751             if ($_[0] =~ /^(true|false)$/i ) {
2752             $self->setAttribute('Locked', lc shift);
2753             } else {
2754             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Locked\'';
2755             }
2756             }
2757             return $self->getAttribute('Locked');
2758             }
2759              
2760             #===============================================================================
2761             # Rinchi::Outlook::FormDescription::MessageClass
2762              
2763             =head2 $value = $Object->MessageClass([$new_value]);
2764              
2765             Set or get value of the MessageClass attribute.
2766            
2767             Type: String
2768             Lower: 0
2769             Upper: 1
2770              
2771             =cut
2772              
2773             sub MessageClass() {
2774             my $self = shift;
2775             if (@_) {
2776             $self->setAttribute('MessageClass', shift);
2777             }
2778             return $self->getAttribute('MessageClass');
2779             }
2780              
2781             #===============================================================================
2782             # Rinchi::Outlook::FormDescription::MiniIcon
2783              
2784             =head2 $value = $Object->MiniIcon([$new_value]);
2785              
2786             Set or get value of the MiniIcon attribute.
2787            
2788             Type: String
2789             Lower: 0
2790             Upper: 1
2791              
2792             =cut
2793              
2794             sub MiniIcon() {
2795             my $self = shift;
2796             if (@_) {
2797             $self->setAttribute('MiniIcon', shift);
2798             }
2799             return $self->getAttribute('MiniIcon');
2800             }
2801              
2802             #===============================================================================
2803             # Rinchi::Outlook::FormDescription::Name
2804              
2805             =head2 $value = $Object->Name([$new_value]);
2806              
2807             Set or get value of the Name attribute.
2808            
2809             Type: String
2810             Lower: 0
2811             Upper: 1
2812              
2813             =cut
2814              
2815             sub Name() {
2816             my $self = shift;
2817             if (@_) {
2818             $self->setAttribute('Name', shift);
2819             }
2820             return $self->getAttribute('Name');
2821             }
2822              
2823             #===============================================================================
2824             # Rinchi::Outlook::FormDescription::Number
2825              
2826             =head2 $value = $Object->Number([$new_value]);
2827              
2828             Set or get value of the Number attribute.
2829            
2830             Type: String
2831             Lower: 0
2832             Upper: 1
2833              
2834             =cut
2835              
2836             sub Number() {
2837             my $self = shift;
2838             if (@_) {
2839             $self->setAttribute('Number', shift);
2840             }
2841             return $self->getAttribute('Number');
2842             }
2843              
2844             #===============================================================================
2845             # Rinchi::Outlook::FormDescription::OneOff
2846              
2847             =head2 $value = $Object->OneOff([$new_value]);
2848              
2849             Set or get value of the OneOff attribute.
2850            
2851             Type: Boolean
2852             Lower: 0
2853             Upper: 1
2854              
2855             =cut
2856              
2857             sub OneOff() {
2858             my $self = shift;
2859             if (@_) {
2860             if ($_[0] =~ /^(true|false)$/i ) {
2861             $self->setAttribute('OneOff', lc shift);
2862             } else {
2863             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'OneOff\'';
2864             }
2865             }
2866             return $self->getAttribute('OneOff');
2867             }
2868              
2869             #===============================================================================
2870             # Rinchi::Outlook::FormDescription::Parent
2871              
2872             =head2 $value = $Object->Parent([$new_value]);
2873              
2874             Set or get value of the Parent attribute.
2875            
2876             Type: Object
2877             Lower: 0
2878             Upper: 1
2879              
2880             =cut
2881              
2882             sub Parent() {
2883             my $self = shift;
2884             if (@_) {
2885             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2886             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
2887             $self->attribute_as_element('Parent', shift);
2888             } else {
2889             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
2890             }
2891             }
2892             return $self->attribute_as_element('Parent');
2893             }
2894              
2895             #===============================================================================
2896             # Rinchi::Outlook::FormDescription::Password
2897              
2898             =head2 $value = $Object->Password([$new_value]);
2899              
2900             Set or get value of the Password attribute.
2901            
2902             Type: String
2903             Lower: 0
2904             Upper: 1
2905              
2906             =cut
2907              
2908             sub Password() {
2909             my $self = shift;
2910             if (@_) {
2911             $self->setAttribute('Password', shift);
2912             }
2913             return $self->getAttribute('Password');
2914             }
2915              
2916             #===============================================================================
2917             # Rinchi::Outlook::FormDescription::ScriptText
2918              
2919             =head2 $value = $Object->ScriptText([$new_value]);
2920              
2921             Set or get value of the ScriptText attribute.
2922            
2923             Type: String
2924             Lower: 0
2925             Upper: 1
2926              
2927             =cut
2928              
2929             sub ScriptText() {
2930             my $self = shift;
2931             if (@_) {
2932             $self->setAttribute('ScriptText', shift);
2933             }
2934             return $self->getAttribute('ScriptText');
2935             }
2936              
2937             #===============================================================================
2938             # Rinchi::Outlook::FormDescription::Session
2939              
2940             =head2 $value = $Object->Session([$new_value]);
2941              
2942             Set or get value of the Session attribute.
2943            
2944             Type: NameSpace
2945             Lower: 0
2946             Upper: 1
2947              
2948             =cut
2949              
2950             sub Session() {
2951             my $self = shift;
2952             if (@_) {
2953             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
2954             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
2955             $self->attribute_as_element('Session', shift);
2956             } else {
2957             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
2958             }
2959             }
2960             return $self->attribute_as_element('Session');
2961             }
2962              
2963             #===============================================================================
2964             # Rinchi::Outlook::FormDescription::Template
2965              
2966             =head2 $value = $Object->Template([$new_value]);
2967              
2968             Set or get value of the Template attribute.
2969            
2970             Type: String
2971             Lower: 0
2972             Upper: 1
2973              
2974             =cut
2975              
2976             sub Template() {
2977             my $self = shift;
2978             if (@_) {
2979             $self->setAttribute('Template', shift);
2980             }
2981             return $self->getAttribute('Template');
2982             }
2983              
2984             #===============================================================================
2985             # Rinchi::Outlook::FormDescription::UseWordMail
2986              
2987             =head2 $value = $Object->UseWordMail([$new_value]);
2988              
2989             Set or get value of the UseWordMail attribute.
2990            
2991             Type: Boolean
2992             Lower: 0
2993             Upper: 1
2994              
2995             =cut
2996              
2997             sub UseWordMail() {
2998             my $self = shift;
2999             if (@_) {
3000             if ($_[0] =~ /^(true|false)$/i ) {
3001             $self->setAttribute('UseWordMail', lc shift);
3002             } else {
3003             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'UseWordMail\'';
3004             }
3005             }
3006             return $self->getAttribute('UseWordMail');
3007             }
3008              
3009             #===============================================================================
3010             # Rinchi::Outlook::FormDescription::Version
3011              
3012             =head2 $value = $Object->Version([$new_value]);
3013              
3014             Set or get value of the Version attribute.
3015            
3016             Type: String
3017             Lower: 0
3018             Upper: 1
3019              
3020             =cut
3021              
3022             sub Version() {
3023             my $self = shift;
3024             if (@_) {
3025             $self->setAttribute('Version', shift);
3026             }
3027             return $self->getAttribute('Version');
3028             }
3029              
3030             ##END_PACKAGE FormDescription
3031              
3032             #===============================================================================
3033             # Generated by Hymnos Perl Code Generator
3034             # UML Model UUID: d5dc083c-3c43-11dd-9e97-001c25551abc
3035              
3036             package Rinchi::Outlook::Inspector;
3037              
3038             use Carp;
3039              
3040             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookEntry);
3041             our @EXPORT = qw();
3042             our @EXPORT_OK = qw();
3043              
3044             =head1 DESCRIPTION of Inspector class
3045              
3046             Rinchi::Outlook::Inspector is used for representing Inspector objects. An
3047             Inspector represents the window in which an Outlook item is displayed.
3048              
3049             =head1 METHODS for Inspector objects
3050              
3051             =cut
3052              
3053             #===============================================================================
3054              
3055             {
3056             no strict "refs";
3057             *TAG_NAME = sub { return 'inspector'; };
3058             }
3059              
3060             #===============================================================================
3061             # Rinchi::Outlook::Inspector::Caption
3062              
3063             =head2 $value = $Object->Caption([$new_value]);
3064              
3065             Set or get value of the Caption attribute.
3066            
3067             Type: String
3068             Lower: 0
3069             Upper: 1
3070              
3071             =cut
3072              
3073             sub Caption() {
3074             my $self = shift;
3075             if (@_) {
3076             $self->setAttribute('Caption', shift);
3077             }
3078             return $self->getAttribute('Caption');
3079             }
3080              
3081             #===============================================================================
3082             # Rinchi::Outlook::Inspector::CommandBars
3083              
3084             =head2 $value = $Object->CommandBars([$new_value]);
3085              
3086             Set or get value of the CommandBars attribute.
3087              
3088             Type: CommandBars
3089             Lower: 0
3090             Upper: 1
3091              
3092             =cut
3093              
3094             sub CommandBars() {
3095             my $self = shift;
3096             if (@_) {
3097             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3098             if ('Rinchi::Outlook::CommandBars' =~ /$regexp/ ) {
3099             $self->attribute_as_element('CommandBars', shift);
3100             } else {
3101             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::CommandBars\' for attribute \'CommandBars\'';
3102             }
3103             }
3104             return $self->attribute_as_element('CommandBars');
3105             }
3106              
3107             #===============================================================================
3108             # Rinchi::Outlook::Inspector::CurrentItem
3109              
3110             =head2 $value = $Object->CurrentItem([$new_value]);
3111              
3112             Set or get value of the CurrentItem attribute.
3113            
3114             Type: Object
3115             Lower: 0
3116             Upper: 1
3117              
3118             =cut
3119              
3120             sub CurrentItem() {
3121             my $self = shift;
3122             if (@_) {
3123             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3124             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
3125             $self->attribute_as_element('CurrentItem', shift);
3126             } else {
3127             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'CurrentItem\'';
3128             }
3129             }
3130             return $self->attribute_as_element('CurrentItem');
3131             }
3132              
3133             #===============================================================================
3134             # Rinchi::Outlook::Inspector::EditorType
3135              
3136             =head2 $value = $Object->EditorType([$new_value]);
3137              
3138             Set or get value of the EditorType attribute.
3139              
3140             Type: OlEditorType
3141             Lower: 0
3142             Upper: 1
3143              
3144             =cut
3145              
3146             sub EditorType() {
3147             my $self = shift;
3148             if (@_) {
3149             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3150             $self->setAttribute('EditorType', shift);
3151             } else {
3152             if(ref($_[0])) {
3153             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlEditorType\' for attribute \'EditorType\'';
3154             } else {
3155             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlEditorType\' for attribute \'EditorType\'';
3156             }
3157             }
3158             }
3159             return $self->getAttribute('EditorType');
3160             }
3161              
3162             #===============================================================================
3163             # Rinchi::Outlook::Inspector::HTMLEditor
3164              
3165             =head2 $value = $Object->HTMLEditor([$new_value]);
3166              
3167             Set or get value of the HTMLEditor attribute.
3168            
3169             Type: Object
3170             Lower: 0
3171             Upper: 1
3172              
3173             =cut
3174              
3175             sub HTMLEditor() {
3176             my $self = shift;
3177             if (@_) {
3178             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3179             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
3180             $self->attribute_as_element('HTMLEditor', shift);
3181             } else {
3182             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'HTMLEditor\'';
3183             }
3184             }
3185             return $self->attribute_as_element('HTMLEditor');
3186             }
3187              
3188             #===============================================================================
3189             # Rinchi::Outlook::Inspector::Height
3190              
3191             =head2 $value = $Object->Height([$new_value]);
3192              
3193             Set or get value of the Height attribute.
3194            
3195             Type: Long
3196             Lower: 0
3197             Upper: 1
3198              
3199             =cut
3200              
3201             sub Height() {
3202             my $self = shift;
3203             if (@_) {
3204             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3205             $self->setAttribute('Height', shift);
3206             } else {
3207             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Height\'';
3208             }
3209             }
3210             return $self->getAttribute('Height');
3211             }
3212              
3213             #===============================================================================
3214             # Rinchi::Outlook::Inspector::Left
3215              
3216             =head2 $value = $Object->Left([$new_value]);
3217              
3218             Set or get value of the Left attribute.
3219            
3220             Type: Long
3221             Lower: 0
3222             Upper: 1
3223              
3224             =cut
3225              
3226             sub Left() {
3227             my $self = shift;
3228             if (@_) {
3229             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3230             $self->setAttribute('Left', shift);
3231             } else {
3232             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Left\'';
3233             }
3234             }
3235             return $self->getAttribute('Left');
3236             }
3237              
3238             #===============================================================================
3239             # Rinchi::Outlook::Inspector::ModifiedFormPages
3240              
3241             =head2 $value = $Object->ModifiedFormPages([$new_value]);
3242              
3243             Set or get value of the ModifiedFormPages attribute.
3244            
3245             Type: Object
3246             Lower: 0
3247             Upper: 1
3248              
3249             =cut
3250              
3251             sub ModifiedFormPages() {
3252             my $self = shift;
3253             if (@_) {
3254             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3255             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
3256             $self->attribute_as_element('ModifiedFormPages', shift);
3257             } else {
3258             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'ModifiedFormPages\'';
3259             }
3260             }
3261             return $self->attribute_as_element('ModifiedFormPages');
3262             }
3263              
3264             #===============================================================================
3265             # Rinchi::Outlook::Inspector::Top
3266              
3267             =head2 $value = $Object->Top([$new_value]);
3268              
3269             Set or get value of the Top attribute.
3270            
3271             Type: Long
3272             Lower: 0
3273             Upper: 1
3274              
3275             =cut
3276              
3277             sub Top() {
3278             my $self = shift;
3279             if (@_) {
3280             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3281             $self->setAttribute('Top', shift);
3282             } else {
3283             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Top\'';
3284             }
3285             }
3286             return $self->getAttribute('Top');
3287             }
3288              
3289             #===============================================================================
3290             # Rinchi::Outlook::Inspector::Width
3291              
3292             =head2 $value = $Object->Width([$new_value]);
3293              
3294             Set or get value of the Width attribute.
3295            
3296             Type: Long
3297             Lower: 0
3298             Upper: 1
3299              
3300             =cut
3301              
3302             sub Width() {
3303             my $self = shift;
3304             if (@_) {
3305             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3306             $self->setAttribute('Width', shift);
3307             } else {
3308             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Width\'';
3309             }
3310             }
3311             return $self->getAttribute('Width');
3312             }
3313              
3314             #===============================================================================
3315             # Rinchi::Outlook::Inspector::WindowState
3316              
3317             =head2 $value = $Object->WindowState([$new_value]);
3318              
3319             Set or get value of the WindowState attribute.
3320            
3321             Type: OlWindowState
3322             Lower: 0
3323             Upper: 1
3324              
3325             =cut
3326              
3327             sub WindowState() {
3328             my $self = shift;
3329             if (@_) {
3330             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3331             $self->setAttribute('WindowState', shift);
3332             } else {
3333             if(ref($_[0])) {
3334             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlWindowState\' for attribute \'WindowState\'';
3335             } else {
3336             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlWindowState\' for attribute \'WindowState\'';
3337             }
3338             }
3339             }
3340             return $self->getAttribute('WindowState');
3341             }
3342              
3343             #===============================================================================
3344             # Rinchi::Outlook::Inspector::WordEditor
3345              
3346             =head2 $value = $Object->WordEditor([$new_value]);
3347              
3348             Set or get value of the WordEditor attribute.
3349            
3350             Type: Object
3351             Lower: 0
3352             Upper: 1
3353              
3354             =cut
3355              
3356             sub WordEditor() {
3357             my $self = shift;
3358             if (@_) {
3359             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3360             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
3361             $self->attribute_as_element('WordEditor', shift);
3362             } else {
3363             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'WordEditor\'';
3364             }
3365             }
3366             return $self->attribute_as_element('WordEditor');
3367             }
3368              
3369             ##END_PACKAGE Inspector
3370              
3371             #===============================================================================
3372             # Generated by Hymnos Perl Code Generator
3373             # UML Model UUID: d5dc9856-3c43-11dd-8064-001c25551abc
3374              
3375             package Rinchi::Outlook::ItemProperty;
3376              
3377             use Carp;
3378              
3379             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
3380             our @EXPORT = qw();
3381             our @EXPORT_OK = qw();
3382              
3383             =head1 DESCRIPTION of ItemProperty class
3384              
3385             Rinchi::Outlook::ItemProperty is used for representing ItemProperty objects. An
3386             ItemProperty object contains information about a given item property. Each item
3387             property defines a certain attribute of the item, such as the name, type, or
3388             value of the item. The ItemProperty object is a member of the ItemProperties
3389             collection.
3390              
3391             =head1 METHODS for ItemProperty objects
3392              
3393             =cut
3394              
3395             #===============================================================================
3396              
3397             {
3398             no strict "refs";
3399             *TAG_NAME = sub { return 'item-property'; };
3400             }
3401              
3402             #===============================================================================
3403             # Rinchi::Outlook::ItemProperty::Formula
3404              
3405             =head2 $value = $Object->Formula([$new_value]);
3406              
3407             Set or get value of the Formula attribute.
3408              
3409            
3410             Type: String
3411             Lower: 0
3412             Upper: 1
3413              
3414             =cut
3415              
3416             sub Formula() {
3417             my $self = shift;
3418             if (@_) {
3419             $self->setAttribute('Formula', shift);
3420             }
3421             return $self->getAttribute('Formula');
3422             }
3423              
3424             #===============================================================================
3425             # Rinchi::Outlook::ItemProperty::IsUserProperty
3426              
3427             =head2 $value = $Object->IsUserProperty([$new_value]);
3428              
3429             Set or get value of the IsUserProperty attribute.
3430            
3431             Type: Boolean
3432             Lower: 0
3433             Upper: 1
3434              
3435             =cut
3436              
3437             sub IsUserProperty() {
3438             my $self = shift;
3439             if (@_) {
3440             if ($_[0] =~ /^(true|false)$/i ) {
3441             $self->setAttribute('IsUserProperty', lc shift);
3442             } else {
3443             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsUserProperty\'';
3444             }
3445             }
3446             return $self->getAttribute('IsUserProperty');
3447             }
3448              
3449             #===============================================================================
3450             # Rinchi::Outlook::ItemProperty::Type
3451              
3452             =head2 $value = $Object->Type([$new_value]);
3453              
3454             Set or get value of the Type attribute.
3455            
3456             Type: OlUserPropertyType
3457             Lower: 0
3458             Upper: 1
3459              
3460             =cut
3461              
3462             sub Type() {
3463             my $self = shift;
3464             if (@_) {
3465             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3466             $self->setAttribute('Type', shift);
3467             } else {
3468             if(ref($_[0])) {
3469             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlUserPropertyType\' for attribute \'Type\'';
3470             } else {
3471             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlUserPropertyType\' for attribute \'Type\'';
3472             }
3473             }
3474             }
3475             return $self->getAttribute('Type');
3476             }
3477              
3478             #===============================================================================
3479             # Rinchi::Outlook::ItemProperty::ValidationFormula
3480              
3481             =head2 $value = $Object->ValidationFormula([$new_value]);
3482              
3483             Set or get value of the ValidationFormula attribute.
3484            
3485             Type: String
3486             Lower: 0
3487             Upper: 1
3488              
3489             =cut
3490              
3491             sub ValidationFormula() {
3492             my $self = shift;
3493             if (@_) {
3494             $self->setAttribute('ValidationFormula', shift);
3495             }
3496             return $self->getAttribute('ValidationFormula');
3497             }
3498              
3499             #===============================================================================
3500             # Rinchi::Outlook::ItemProperty::ValidationText
3501              
3502             =head2 $value = $Object->ValidationText([$new_value]);
3503              
3504             Set or get value of the ValidationText attribute.
3505            
3506             Type: String
3507             Lower: 0
3508             Upper: 1
3509              
3510             =cut
3511              
3512             sub ValidationText() {
3513             my $self = shift;
3514             if (@_) {
3515             $self->setAttribute('ValidationText', shift);
3516             }
3517             return $self->getAttribute('ValidationText');
3518             }
3519              
3520             #===============================================================================
3521             # Rinchi::Outlook::ItemProperty::Value
3522              
3523             =head2 $value = $Object->Value([$new_value]);
3524              
3525             Set or get value of the Value attribute.
3526            
3527             Type: Variant
3528             Lower: 0
3529             Upper: 1
3530              
3531             =cut
3532              
3533             sub Value() {
3534             my $self = shift;
3535             if (@_) {
3536             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3537             if ('Rinchi::Outlook::Variant' =~ /$regexp/ ) {
3538             $self->attribute_as_element('Value', shift);
3539             } else {
3540             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Variant\' for attribute \'Value\'';
3541             }
3542             }
3543             return $self->attribute_as_element('Value');
3544             }
3545              
3546             ##END_PACKAGE ItemProperty
3547              
3548             #===============================================================================
3549             # Generated by Hymnos Perl Code Generator
3550             # UML Model UUID: d5dcf6b6-3c43-11dd-a30d-001c25551abc
3551              
3552             package Rinchi::Outlook::Link;
3553              
3554             use Carp;
3555              
3556             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
3557             our @EXPORT = qw();
3558             our @EXPORT_OK = qw();
3559              
3560             =head1 DESCRIPTION of Link class
3561              
3562             Rinchi::Outlook::Link is used for representing Link objects. A Link represents
3563             an item that is linked to another Microsoft Outlook item. Each item has a Links
3564             object associated with it that represents all the items that have been linked to
3565             the item.
3566              
3567             =head1 METHODS for Link objects
3568              
3569             =cut
3570              
3571             #===============================================================================
3572              
3573             {
3574             no strict "refs";
3575             *TAG_NAME = sub { return 'link'; };
3576             }
3577              
3578             #===============================================================================
3579             # Rinchi::Outlook::Link::Item
3580              
3581             =head2 $value = $Object->Item([$new_value]);
3582              
3583             Set or get value of the Item attribute.
3584            
3585             Type: Object
3586             Lower: 0
3587             Upper: 1
3588              
3589             =cut
3590              
3591             sub Item() {
3592             my $self = shift;
3593             if (@_) {
3594             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3595             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
3596             $self->attribute_as_element('Item', shift);
3597             } else {
3598             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Item\'';
3599             }
3600             }
3601             return $self->attribute_as_element('Item');
3602             }
3603              
3604             #===============================================================================
3605             # Rinchi::Outlook::Link::Type
3606              
3607             =head2 $value = $Object->Type([$new_value]);
3608              
3609             Set or get value of the Type attribute.
3610            
3611             Type: OlObjectClass
3612             Lower: 0
3613             Upper: 1
3614              
3615             =cut
3616              
3617             sub Type() {
3618             my $self = shift;
3619             if (@_) {
3620             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3621             $self->setAttribute('Type', shift);
3622             } else {
3623             if(ref($_[0])) {
3624             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Type\'';
3625             } else {
3626             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Type\'';
3627             }
3628             }
3629             }
3630             return $self->getAttribute('Type');
3631             }
3632              
3633             ##END_PACKAGE Link
3634              
3635             #===============================================================================
3636             # Generated by Hymnos Perl Code Generator
3637             # UML Model UUID: d5dd1632-3c43-11dd-b339-001c25551abc
3638              
3639             package Rinchi::Outlook::MAPIFolder;
3640              
3641             use Carp;
3642              
3643             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
3644             our @EXPORT = qw();
3645             our @EXPORT_OK = qw();
3646              
3647             =head1 DESCRIPTION of MAPIFolder class
3648              
3649             Rinchi::Outlook::MAPIFolder is used for representing MAPIFolder objects. A
3650             MAPIFolder object Represents a Microsoft Outlook folder. A MAPIFolder object can
3651             contain other MAPIFolder objects, as well as Outlook items.
3652              
3653             =head1 METHODS for MAPIFolder objects
3654              
3655             =cut
3656              
3657             #===============================================================================
3658              
3659             {
3660             no strict "refs";
3661             *TAG_NAME = sub { return 'mapi-folder'; };
3662             }
3663              
3664             #===============================================================================
3665             # Rinchi::Outlook::MAPIFolder::AddressBookName
3666              
3667             =head2 $value = $Object->AddressBookName([$new_value]);
3668              
3669             Set or get value of the AddressBookName attribute.
3670              
3671             Type: String
3672             Lower: 0
3673             Upper: 1
3674              
3675             =cut
3676              
3677             sub AddressBookName() {
3678             my $self = shift;
3679             if (@_) {
3680             $self->setAttribute('AddressBookName', shift);
3681             }
3682             return $self->getAttribute('AddressBookName');
3683             }
3684              
3685             #===============================================================================
3686             # Rinchi::Outlook::MAPIFolder::CurrentView
3687              
3688             =head2 $value = $Object->CurrentView([$new_value]);
3689              
3690             Set or get value of the CurrentView attribute.
3691              
3692             Type: View
3693             Lower: 0
3694             Upper: 1
3695              
3696             =cut
3697              
3698             sub CurrentView() {
3699             my $self = shift;
3700             if (@_) {
3701             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
3702             if ('Rinchi::Outlook::View' =~ /$regexp/ ) {
3703             $self->attribute_as_element('CurrentView', shift);
3704             } else {
3705             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::View\' for attribute \'CurrentView\'';
3706             }
3707             }
3708             return $self->attribute_as_element('CurrentView');
3709             }
3710              
3711             #===============================================================================
3712             # Rinchi::Outlook::MAPIFolder::CustomViewsOnly
3713              
3714             =head2 $value = $Object->CustomViewsOnly([$new_value]);
3715              
3716             Set or get value of the CustomViewsOnly attribute.
3717              
3718             Type: Boolean
3719             Lower: 0
3720             Upper: 1
3721              
3722             =cut
3723              
3724             sub CustomViewsOnly() {
3725             my $self = shift;
3726             if (@_) {
3727             if ($_[0] =~ /^(true|false)$/i ) {
3728             $self->setAttribute('CustomViewsOnly', lc shift);
3729             } else {
3730             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'CustomViewsOnly\'';
3731             }
3732             }
3733             return $self->getAttribute('CustomViewsOnly');
3734             }
3735              
3736             #===============================================================================
3737             # Rinchi::Outlook::MAPIFolder::DefaultItemType
3738              
3739             =head2 $value = $Object->DefaultItemType([$new_value]);
3740              
3741             Set or get value of the DefaultItemType attribute.
3742              
3743             Type: OlItemType
3744             Lower: 0
3745             Upper: 1
3746              
3747             =cut
3748              
3749             sub DefaultItemType() {
3750             my $self = shift;
3751             if (@_) {
3752             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3753             $self->setAttribute('DefaultItemType', shift);
3754             } else {
3755             if(ref($_[0])) {
3756             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlItemType\' for attribute \'DefaultItemType\'';
3757             } else {
3758             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlItemType\' for attribute \'DefaultItemType\'';
3759             }
3760             }
3761             }
3762             return $self->getAttribute('DefaultItemType');
3763             }
3764              
3765             #===============================================================================
3766             # Rinchi::Outlook::MAPIFolder::DefaultMessageClass
3767              
3768             =head2 $value = $Object->DefaultMessageClass([$new_value]);
3769              
3770             Set or get value of the DefaultMessageClass attribute.
3771              
3772             Type: String
3773             Lower: 0
3774             Upper: 1
3775              
3776             =cut
3777              
3778             sub DefaultMessageClass() {
3779             my $self = shift;
3780             if (@_) {
3781             $self->setAttribute('DefaultMessageClass', shift);
3782             }
3783             return $self->getAttribute('DefaultMessageClass');
3784             }
3785              
3786             #===============================================================================
3787             # Rinchi::Outlook::MAPIFolder::Description
3788              
3789             =head2 $value = $Object->Description([$new_value]);
3790              
3791             Set or get value of the Description attribute.
3792              
3793             Type: String
3794             Lower: 0
3795             Upper: 1
3796              
3797             =cut
3798              
3799             sub Description() {
3800             my $self = shift;
3801             if (@_) {
3802             $self->setAttribute('Description', shift);
3803             }
3804             return $self->getAttribute('Description');
3805             }
3806              
3807             #===============================================================================
3808             # Rinchi::Outlook::MAPIFolder::EntryID
3809              
3810             =head2 $value = $Object->EntryID([$new_value]);
3811              
3812             Set or get value of the EntryID attribute.
3813              
3814             Type: String
3815             Lower: 0
3816             Upper: 1
3817              
3818             =cut
3819              
3820             sub EntryID() {
3821             my $self = shift;
3822             if (@_) {
3823             $self->setAttribute('EntryID', shift);
3824             }
3825             return $self->getAttribute('EntryID');
3826             }
3827              
3828             #===============================================================================
3829             # Rinchi::Outlook::MAPIFolder::FolderPath
3830              
3831             =head2 $value = $Object->FolderPath([$new_value]);
3832              
3833             Set or get value of the FolderPath attribute.
3834              
3835             Type: String
3836             Lower: 0
3837             Upper: 1
3838              
3839             =cut
3840              
3841             sub FolderPath() {
3842             my $self = shift;
3843             if (@_) {
3844             $self->setAttribute('FolderPath', shift);
3845             }
3846             return $self->getAttribute('FolderPath');
3847             }
3848              
3849             #===============================================================================
3850             # Rinchi::Outlook::MAPIFolder::Folders
3851              
3852             =head2 $Element = $Object->Folders();
3853              
3854             Set or get value of the Folders attribute.
3855              
3856             Type: Folders
3857             Lower: 0
3858             Upper: 1
3859              
3860             =cut
3861              
3862             sub Folders() {
3863             my $self = shift;
3864             return $self->get_collection('Folders','folders');
3865             }
3866              
3867             #===============================================================================
3868             # Rinchi::Outlook::MAPIFolder::FullFolderPath
3869              
3870             =head2 $value = $Object->FullFolderPath([$new_value]);
3871              
3872             Set or get value of the FullFolderPath attribute.
3873              
3874             Type: String
3875             Lower: 0
3876             Upper: 1
3877              
3878             =cut
3879              
3880             sub FullFolderPath() {
3881             my $self = shift;
3882             if (@_) {
3883             $self->setAttribute('FullFolderPath', shift);
3884             }
3885             return $self->getAttribute('FullFolderPath');
3886             }
3887              
3888             #===============================================================================
3889             # Rinchi::Outlook::MAPIFolder::InAppFolderSyncObject
3890              
3891             =head2 $value = $Object->InAppFolderSyncObject([$new_value]);
3892              
3893             Set or get value of the InAppFolderSyncObject attribute.
3894              
3895             Type: Boolean
3896             Lower: 0
3897             Upper: 1
3898              
3899             =cut
3900              
3901             sub InAppFolderSyncObject() {
3902             my $self = shift;
3903             if (@_) {
3904             if ($_[0] =~ /^(true|false)$/i ) {
3905             $self->setAttribute('InAppFolderSyncObject', lc shift);
3906             } else {
3907             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'InAppFolderSyncObject\'';
3908             }
3909             }
3910             return $self->getAttribute('InAppFolderSyncObject');
3911             }
3912              
3913             #===============================================================================
3914             # Rinchi::Outlook::MAPIFolder::IsSharePointFolder
3915              
3916             =head2 $value = $Object->IsSharePointFolder([$new_value]);
3917              
3918             Set or get value of the IsSharePointFolder attribute.
3919              
3920             Type: Boolean
3921             Lower: 0
3922             Upper: 1
3923              
3924             =cut
3925              
3926             sub IsSharePointFolder() {
3927             my $self = shift;
3928             if (@_) {
3929             if ($_[0] =~ /^(true|false)$/i ) {
3930             $self->setAttribute('IsSharePointFolder', lc shift);
3931             } else {
3932             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsSharePointFolder\'';
3933             }
3934             }
3935             return $self->getAttribute('IsSharePointFolder');
3936             }
3937              
3938             #===============================================================================
3939             # Rinchi::Outlook::MAPIFolder::Items
3940              
3941             =head2 $Element = $Object->Items();
3942              
3943             Set or get value of the Items attribute.
3944              
3945             Type: Items
3946             Lower: 0
3947             Upper: 1
3948              
3949             =cut
3950              
3951             sub Items() {
3952             my $self = shift;
3953             return $self->get_collection('Items','items');
3954             }
3955              
3956             #===============================================================================
3957             # Rinchi::Outlook::MAPIFolder::ShowAsOutlookAB
3958              
3959             =head2 $value = $Object->ShowAsOutlookAB([$new_value]);
3960              
3961             Set or get value of the ShowAsOutlookAB attribute.
3962              
3963             Type: Boolean
3964             Lower: 0
3965             Upper: 1
3966              
3967             =cut
3968              
3969             sub ShowAsOutlookAB() {
3970             my $self = shift;
3971             if (@_) {
3972             if ($_[0] =~ /^(true|false)$/i ) {
3973             $self->setAttribute('ShowAsOutlookAB', lc shift);
3974             } else {
3975             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ShowAsOutlookAB\'';
3976             }
3977             }
3978             return $self->getAttribute('ShowAsOutlookAB');
3979             }
3980              
3981             #===============================================================================
3982             # Rinchi::Outlook::MAPIFolder::ShowItemCount
3983              
3984             =head2 $value = $Object->ShowItemCount([$new_value]);
3985              
3986             Set or get value of the ShowItemCount attribute.
3987              
3988             Type: OlShowItemCount
3989             Lower: 0
3990             Upper: 1
3991              
3992             =cut
3993              
3994             sub ShowItemCount() {
3995             my $self = shift;
3996             if (@_) {
3997             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
3998             $self->setAttribute('ShowItemCount', shift);
3999             } else {
4000             if(ref($_[0])) {
4001             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlShowItemCount\' for attribute \'ShowItemCount\'';
4002             } else {
4003             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlShowItemCount\' for attribute \'ShowItemCount\'';
4004             }
4005             }
4006             }
4007             return $self->getAttribute('ShowItemCount');
4008             }
4009              
4010             #===============================================================================
4011             # Rinchi::Outlook::MAPIFolder::StoreID
4012              
4013             =head2 $value = $Object->StoreID([$new_value]);
4014              
4015             Set or get value of the StoreID attribute.
4016              
4017             Type: String
4018             Lower: 0
4019             Upper: 1
4020              
4021             =cut
4022              
4023             sub StoreID() {
4024             my $self = shift;
4025             if (@_) {
4026             $self->setAttribute('StoreID', shift);
4027             }
4028             return $self->getAttribute('StoreID');
4029             }
4030              
4031             #===============================================================================
4032             # Rinchi::Outlook::MAPIFolder::UnReadItemCount
4033              
4034             =head2 $value = $Object->UnReadItemCount([$new_value]);
4035              
4036             Set or get value of the UnReadItemCount attribute.
4037              
4038             Type: Long
4039             Lower: 0
4040             Upper: 1
4041              
4042             =cut
4043              
4044             sub UnReadItemCount() {
4045             my $self = shift;
4046             if (@_) {
4047             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
4048             $self->setAttribute('UnReadItemCount', shift);
4049             } else {
4050             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'UnReadItemCount\'';
4051             }
4052             }
4053             return $self->getAttribute('UnReadItemCount');
4054             }
4055              
4056             #===============================================================================
4057             # Rinchi::Outlook::MAPIFolder::UserPermissions
4058              
4059             =head2 $value = $Object->UserPermissions([$new_value]);
4060              
4061             Set or get value of the UserPermissions attribute.
4062              
4063             Type: Object
4064             Lower: 0
4065             Upper: 1
4066              
4067             =cut
4068              
4069             sub UserPermissions() {
4070             my $self = shift;
4071             if (@_) {
4072             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4073             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
4074             $self->attribute_as_element('UserPermissions', shift);
4075             } else {
4076             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'UserPermissions\'';
4077             }
4078             }
4079             return $self->attribute_as_element('UserPermissions');
4080             }
4081              
4082             #===============================================================================
4083             # Rinchi::Outlook::MAPIFolder::Views
4084              
4085             =head2 $Element = $Object->Views();
4086              
4087             Set or get value of the Views attribute.
4088              
4089             Type: Views
4090             Lower: 0
4091             Upper: 1
4092              
4093             =cut
4094              
4095             sub Views() {
4096             my $self = shift;
4097             return $self->get_collection('Views','views');
4098             }
4099              
4100             #===============================================================================
4101             # Rinchi::Outlook::MAPIFolder::WebViewAllowNavigation
4102              
4103             =head2 $value = $Object->WebViewAllowNavigation([$new_value]);
4104              
4105             Set or get value of the WebViewAllowNavigation attribute.
4106              
4107             Type: Boolean
4108             Lower: 0
4109             Upper: 1
4110              
4111             =cut
4112              
4113             sub WebViewAllowNavigation() {
4114             my $self = shift;
4115             if (@_) {
4116             if ($_[0] =~ /^(true|false)$/i ) {
4117             $self->setAttribute('WebViewAllowNavigation', lc shift);
4118             } else {
4119             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'WebViewAllowNavigation\'';
4120             }
4121             }
4122             return $self->getAttribute('WebViewAllowNavigation');
4123             }
4124              
4125             #===============================================================================
4126             # Rinchi::Outlook::MAPIFolder::WebViewOn
4127              
4128             =head2 $value = $Object->WebViewOn([$new_value]);
4129              
4130             Set or get value of the WebViewOn attribute.
4131              
4132             Type: Boolean
4133             Lower: 0
4134             Upper: 1
4135              
4136             =cut
4137              
4138             sub WebViewOn() {
4139             my $self = shift;
4140             if (@_) {
4141             if ($_[0] =~ /^(true|false)$/i ) {
4142             $self->setAttribute('WebViewOn', lc shift);
4143             } else {
4144             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'WebViewOn\'';
4145             }
4146             }
4147             return $self->getAttribute('WebViewOn');
4148             }
4149              
4150             #===============================================================================
4151             # Rinchi::Outlook::MAPIFolder::WebViewURL
4152              
4153             =head2 $value = $Object->WebViewURL([$new_value]);
4154              
4155             Set or get value of the WebViewURL attribute.
4156              
4157             Type: String
4158             Lower: 0
4159             Upper: 1
4160              
4161             =cut
4162              
4163             sub WebViewURL() {
4164             my $self = shift;
4165             if (@_) {
4166             $self->setAttribute('WebViewURL', shift);
4167             }
4168             return $self->getAttribute('WebViewURL');
4169             }
4170              
4171             ##END_PACKAGE MAPIFolder
4172              
4173             #===============================================================================
4174             # Generated by Hymnos Perl Code Generator
4175             # UML Model UUID: d5dd7456-3c43-11dd-80a4-001c25551abc
4176              
4177             package Rinchi::Outlook::NameSpace;
4178              
4179             use Carp;
4180              
4181             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
4182             our @EXPORT = qw();
4183             our @EXPORT_OK = qw();
4184              
4185             =head1 DESCRIPTION of NameSpace class
4186              
4187             Rinchi::Outlook::NameSpace is used for representing NameSpace objects. A
4188             NameSpace object represents an abstract root object for any data source.
4189              
4190             =head1 METHODS for NameSpace objects
4191              
4192             =cut
4193              
4194             #===============================================================================
4195              
4196             {
4197             no strict "refs";
4198             *TAG_NAME = sub { return 'name-space'; };
4199             }
4200              
4201             #===============================================================================
4202             # Rinchi::Outlook::NameSpace::AddressLists
4203              
4204             =head2 $Element = $Object->AddressLists();
4205              
4206             Set or get value of the AddressLists attribute.
4207            
4208             Type: AddressLists (Collection)
4209             Lower: 1
4210             Upper: 1
4211              
4212             =cut
4213              
4214             sub AddressLists() {
4215             my $self = shift;
4216             return $self->get_collection('AddressLists','address-lists');
4217             }
4218              
4219             #===============================================================================
4220             # Rinchi::Outlook::NameSpace::Application
4221              
4222             =head2 $value = $Object->Application([$new_value]);
4223              
4224             Set or get value of the Application attribute.
4225            
4226             Type: Application
4227             Lower: 0
4228             Upper: 1
4229              
4230             =cut
4231              
4232             sub Application() {
4233             my $self = shift;
4234             if (@_) {
4235             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4236             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
4237             $self->attribute_as_element('Application', shift);
4238             } else {
4239             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
4240             }
4241             }
4242             return $self->attribute_as_element('Application');
4243             }
4244              
4245             #===============================================================================
4246             # Rinchi::Outlook::NameSpace::Class
4247              
4248             =head2 $value = $Object->Class([$new_value]);
4249              
4250             Set or get value of the Class attribute.
4251            
4252             Type: OlObjectClass
4253             Lower: 0
4254             Upper: 1
4255              
4256             =cut
4257              
4258             sub Class() {
4259             my $self = shift;
4260             if (@_) {
4261             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
4262             $self->setAttribute('Class', shift);
4263             } else {
4264             if(ref($_[0])) {
4265             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
4266             } else {
4267             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
4268             }
4269             }
4270             }
4271             return $self->getAttribute('Class');
4272             }
4273              
4274             #===============================================================================
4275             # Rinchi::Outlook::NameSpace::CurrentUser
4276              
4277             =head2 $value = $Object->CurrentUser([$new_value]);
4278              
4279             Set or get value of the CurrentUser attribute.
4280            
4281             Type: Recipient
4282             Lower: 0
4283             Upper: 1
4284              
4285             =cut
4286              
4287             sub CurrentUser() {
4288             my $self = shift;
4289             if (@_) {
4290             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4291             if ('Rinchi::Outlook::Recipient' =~ /$regexp/ ) {
4292             $self->attribute_as_element('CurrentUser', shift);
4293             } else {
4294             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Recipient\' for attribute \'CurrentUser\'';
4295             }
4296             }
4297             return $self->attribute_as_element('CurrentUser');
4298             }
4299              
4300             #===============================================================================
4301             # Rinchi::Outlook::NameSpace::ExchangeConnectionMode
4302              
4303             =head2 $value = $Object->ExchangeConnectionMode([$new_value]);
4304              
4305             Set or get value of the ExchangeConnectionMode attribute.
4306            
4307             Type: OlExchangeConnectionMode
4308             Lower: 0
4309             Upper: 1
4310              
4311             =cut
4312              
4313             sub ExchangeConnectionMode() {
4314             my $self = shift;
4315             if (@_) {
4316             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
4317             $self->setAttribute('ExchangeConnectionMode', shift);
4318             } else {
4319             if(ref($_[0])) {
4320             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlExchangeConnectionMode\' for attribute \'ExchangeConnectionMode\'';
4321             } else {
4322             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlExchangeConnectionMode\' for attribute \'ExchangeConnectionMode\'';
4323             }
4324             }
4325             }
4326             return $self->getAttribute('ExchangeConnectionMode');
4327             }
4328              
4329             #===============================================================================
4330             # Rinchi::Outlook::NameSpace::Folders
4331              
4332             =head2 $Element = $Object->Folders();
4333              
4334             Set or get value of the Folders attribute.
4335            
4336             Type: Folders
4337             Lower: 0
4338             Upper: 1
4339              
4340             =cut
4341              
4342             sub Folders() {
4343             my $self = shift;
4344             return $self->get_collection('Folders','folders');
4345             }
4346              
4347             #===============================================================================
4348             # Rinchi::Outlook::NameSpace::Offline
4349              
4350             =head2 $value = $Object->Offline([$new_value]);
4351              
4352             Set or get value of the Offline attribute.
4353            
4354             Type: Boolean
4355             Lower: 0
4356             Upper: 1
4357              
4358             =cut
4359              
4360             sub Offline() {
4361             my $self = shift;
4362             if (@_) {
4363             if ($_[0] =~ /^(true|false)$/i ) {
4364             $self->setAttribute('Offline', lc shift);
4365             } else {
4366             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Offline\'';
4367             }
4368             }
4369             return $self->getAttribute('Offline');
4370             }
4371              
4372             #===============================================================================
4373             # Rinchi::Outlook::NameSpace::Parent
4374              
4375             =head2 $value = $Object->Parent([$new_value]);
4376              
4377             Set or get value of the Parent attribute.
4378            
4379             Type: Object
4380             Lower: 0
4381             Upper: 1
4382              
4383             =cut
4384              
4385             sub Parent() {
4386             my $self = shift;
4387             if (@_) {
4388             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4389             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
4390             $self->attribute_as_element('Parent', shift);
4391             } else {
4392             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
4393             }
4394             }
4395             return $self->attribute_as_element('Parent');
4396             }
4397              
4398             #===============================================================================
4399             # Rinchi::Outlook::NameSpace::Session
4400              
4401             =head2 $value = $Object->Session([$new_value]);
4402              
4403             Set or get value of the Session attribute.
4404            
4405             Type: NameSpace
4406             Lower: 0
4407             Upper: 1
4408              
4409             =cut
4410              
4411             sub Session() {
4412             my $self = shift;
4413             if (@_) {
4414             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4415             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
4416             $self->attribute_as_element('Session', shift);
4417             } else {
4418             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
4419             }
4420             }
4421             return $self->attribute_as_element('Session');
4422             }
4423              
4424             #===============================================================================
4425             # Rinchi::Outlook::NameSpace::SyncObjects
4426              
4427             =head2 $Element = $Object->SyncObjects();
4428              
4429             Set or get value of the SyncObjects attribute.
4430              
4431             Type: SyncObjects
4432             Lower: 0
4433             Upper: 1
4434              
4435             =cut
4436              
4437             sub SyncObjects() {
4438             my $self = shift;
4439             return $self->get_collection('SyncObjects','sync-objects');
4440             }
4441              
4442             #===============================================================================
4443             # Rinchi::Outlook::NameSpace::Type
4444              
4445             =head2 $value = $Object->Type([$new_value]);
4446              
4447             Set or get value of the Type attribute.
4448              
4449             Type: String
4450             Lower: 0
4451             Upper: 1
4452              
4453             =cut
4454              
4455             sub Type() {
4456             my $self = shift;
4457             if (@_) {
4458             $self->setAttribute('Type', shift);
4459             }
4460             return $self->getAttribute('Type');
4461             }
4462              
4463             ##END_PACKAGE NameSpace
4464              
4465             #===============================================================================
4466             # Generated by Hymnos Perl Code Generator
4467             # UML Model UUID: d5ddb330-3c43-11dd-b4b7-001c25551abc
4468              
4469             package Rinchi::Outlook::OutlookBarGroup;
4470              
4471             use Carp;
4472              
4473             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
4474             our @EXPORT = qw();
4475             our @EXPORT_OK = qw();
4476              
4477             =head1 DESCRIPTION of OutlookBarGroup class
4478              
4479             Rinchi::Outlook::OutlookBarGroup is used for representing OutlookBarGroup objects.
4480             An OutlookBarGroup object represents a group of shortcuts in the Shortcuts pane
4481             of an explorer window.
4482              
4483             =head1 METHODS for OutlookBarGroup objects
4484              
4485             =cut
4486              
4487             #===============================================================================
4488              
4489             {
4490             no strict "refs";
4491             *TAG_NAME = sub { return 'outlook-bar-group'; };
4492             }
4493              
4494             #===============================================================================
4495             # Rinchi::Outlook::OutlookBarGroup::Shortcuts
4496              
4497             =head2 $Element = $Object->Shortcuts();
4498              
4499             Set or get value of the Shortcuts attribute.
4500              
4501             Type: OutlookBarShortcuts (Collection)
4502             Lower: 0
4503             Upper: 1
4504              
4505             =cut
4506              
4507             sub Shortcuts() {
4508             my $self = shift;
4509             return $self->get_collection('OutlookBarShortcuts','outlook-bar-shortcuts');
4510             }
4511              
4512             #===============================================================================
4513             # Rinchi::Outlook::OutlookBarGroup::ViewType
4514              
4515             =head2 $value = $Object->ViewType([$new_value]);
4516              
4517             Set or get value of the ViewType attribute.
4518              
4519             Type: OlOutlookBarViewType
4520             Lower: 0
4521             Upper: 1
4522              
4523             =cut
4524              
4525             sub ViewType() {
4526             my $self = shift;
4527             if (@_) {
4528             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
4529             $self->setAttribute('ViewType', shift);
4530             } else {
4531             if(ref($_[0])) {
4532             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlOutlookBarViewType\' for attribute \'ViewType\'';
4533             } else {
4534             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlOutlookBarViewType\' for attribute \'ViewType\'';
4535             }
4536             }
4537             }
4538             return $self->getAttribute('ViewType');
4539             }
4540              
4541             ##END_PACKAGE OutlookBarGroup
4542              
4543             #===============================================================================
4544             # Generated by Hymnos Perl Code Generator
4545             # UML Model UUID: d5de0204-3c43-11dd-b533-001c25551abc
4546              
4547             package Rinchi::Outlook::OutlookBarPane;
4548              
4549             use Carp;
4550              
4551             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
4552             our @EXPORT = qw();
4553             our @EXPORT_OK = qw();
4554              
4555             =head1 DESCRIPTION of OutlookBarPane class
4556              
4557             Rinchi::Outlook::OutlookBarPane is used for representing OutlookBarPane objects.
4558             An OutlookBarPane object represents the Shortcuts pane in an explorer window.
4559              
4560             =head1 METHODS for OutlookBarPane objects
4561              
4562             =cut
4563              
4564             #===============================================================================
4565              
4566             {
4567             no strict "refs";
4568             *TAG_NAME = sub { return 'outlook-bar-pane'; };
4569             }
4570              
4571             #===============================================================================
4572             # Rinchi::Outlook::OutlookBarPane::Application
4573              
4574             =head2 $value = $Object->Application([$new_value]);
4575              
4576             Set or get value of the Application attribute.
4577              
4578             Type: Application
4579             Lower: 0
4580             Upper: 1
4581              
4582             =cut
4583              
4584             sub Application() {
4585             my $self = shift;
4586             if (@_) {
4587             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4588             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
4589             $self->attribute_as_element('Application', shift);
4590             } else {
4591             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
4592             }
4593             }
4594             return $self->attribute_as_element('Application');
4595             }
4596              
4597             #===============================================================================
4598             # Rinchi::Outlook::OutlookBarPane::Class
4599              
4600             =head2 $value = $Object->Class([$new_value]);
4601              
4602             Set or get value of the Class attribute.
4603              
4604             Type: OlObjectClass
4605             Lower: 0
4606             Upper: 1
4607              
4608             =cut
4609              
4610             sub Class() {
4611             my $self = shift;
4612             if (@_) {
4613             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
4614             $self->setAttribute('Class', shift);
4615             } else {
4616             if(ref($_[0])) {
4617             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
4618             } else {
4619             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
4620             }
4621             }
4622             }
4623             return $self->getAttribute('Class');
4624             }
4625              
4626             #===============================================================================
4627             # Rinchi::Outlook::OutlookBarPane::Contents
4628              
4629             =head2 $value = $Object->Contents([$new_value]);
4630              
4631             Set or get value of the Contents attribute.
4632              
4633             Type: OutlookBarStorage
4634             Lower: 0
4635             Upper: 1
4636              
4637             =cut
4638              
4639             sub Contents() {
4640             my $self = shift;
4641             if (@_) {
4642             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4643             if ('Rinchi::Outlook::OutlookBarStorage' =~ /$regexp/ ) {
4644             $self->attribute_as_element('Contents', shift);
4645             } else {
4646             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OutlookBarStorage\' for attribute \'Contents\'';
4647             }
4648             }
4649             return $self->attribute_as_element('Contents');
4650             }
4651              
4652             #===============================================================================
4653             # Rinchi::Outlook::OutlookBarPane::CurrentGroup
4654              
4655             =head2 $value = $Object->CurrentGroup([$new_value]);
4656              
4657             Set or get value of the CurrentGroup attribute.
4658              
4659             Type: OutlookBarGroup
4660             Lower: 0
4661             Upper: 1
4662              
4663             =cut
4664              
4665             sub CurrentGroup() {
4666             my $self = shift;
4667             if (@_) {
4668             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4669             if ('Rinchi::Outlook::OutlookBarGroup' =~ /$regexp/ ) {
4670             $self->attribute_as_element('CurrentGroup', shift);
4671             } else {
4672             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OutlookBarGroup\' for attribute \'CurrentGroup\'';
4673             }
4674             }
4675             return $self->attribute_as_element('CurrentGroup');
4676             }
4677              
4678             #===============================================================================
4679             # Rinchi::Outlook::OutlookBarPane::Name
4680              
4681             =head2 $value = $Object->Name([$new_value]);
4682              
4683             Set or get value of the Name attribute.
4684              
4685             Type: String
4686             Lower: 0
4687             Upper: 1
4688              
4689             =cut
4690              
4691             sub Name() {
4692             my $self = shift;
4693             if (@_) {
4694             $self->setAttribute('Name', shift);
4695             }
4696             return $self->getAttribute('Name');
4697             }
4698              
4699             #===============================================================================
4700             # Rinchi::Outlook::OutlookBarPane::Parent
4701              
4702             =head2 $value = $Object->Parent([$new_value]);
4703              
4704             Set or get value of the Parent attribute.
4705              
4706             Type: Object
4707             Lower: 0
4708             Upper: 1
4709              
4710             =cut
4711              
4712             sub Parent() {
4713             my $self = shift;
4714             if (@_) {
4715             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4716             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
4717             $self->attribute_as_element('Parent', shift);
4718             } else {
4719             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
4720             }
4721             }
4722             return $self->attribute_as_element('Parent');
4723             }
4724              
4725             #===============================================================================
4726             # Rinchi::Outlook::OutlookBarPane::Session
4727              
4728             =head2 $value = $Object->Session([$new_value]);
4729              
4730             Set or get value of the Session attribute.
4731              
4732             Type: NameSpace
4733             Lower: 0
4734             Upper: 1
4735              
4736             =cut
4737              
4738             sub Session() {
4739             my $self = shift;
4740             if (@_) {
4741             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4742             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
4743             $self->attribute_as_element('Session', shift);
4744             } else {
4745             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
4746             }
4747             }
4748             return $self->attribute_as_element('Session');
4749             }
4750              
4751             #===============================================================================
4752             # Rinchi::Outlook::OutlookBarPane::Visible
4753              
4754             =head2 $value = $Object->Visible([$new_value]);
4755              
4756             Set or get value of the Visible attribute.
4757              
4758             Type: Boolean
4759             Lower: 0
4760             Upper: 1
4761              
4762             =cut
4763              
4764             sub Visible() {
4765             my $self = shift;
4766             if (@_) {
4767             if ($_[0] =~ /^(true|false)$/i ) {
4768             $self->setAttribute('Visible', lc shift);
4769             } else {
4770             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Visible\'';
4771             }
4772             }
4773             return $self->getAttribute('Visible');
4774             }
4775              
4776             ##END_PACKAGE OutlookBarPane
4777              
4778             #===============================================================================
4779             # Generated by Hymnos Perl Code Generator
4780             # UML Model UUID: d5de228e-3c43-11dd-9241-001c25551abc
4781              
4782             package Rinchi::Outlook::OutlookBarShortcut;
4783              
4784             use Carp;
4785              
4786             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
4787             our @EXPORT = qw();
4788             our @EXPORT_OK = qw();
4789              
4790             =head1 DESCRIPTION of OutlookBarShortcut class
4791              
4792             Rinchi::Outlook::OutlookBarShortcut is used for representing OutlookBarShortcut objects.
4793              
4794             =head1 METHODS for OutlookBarShortcut objects
4795              
4796             =cut
4797              
4798             #===============================================================================
4799              
4800             {
4801             no strict "refs";
4802             *TAG_NAME = sub { return 'outlook-bar-shortcut'; };
4803             }
4804              
4805             #===============================================================================
4806             # Rinchi::Outlook::OutlookBarShortcut::Target
4807              
4808             =head2 $value = $Object->Target([$new_value]);
4809              
4810             Set or get value of the Target attribute.
4811              
4812            
4813             Type: Variant
4814             Lower: 0
4815             Upper: 1
4816              
4817             =cut
4818              
4819             sub Target() {
4820             my $self = shift;
4821             if (@_) {
4822             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4823             if ('Rinchi::Outlook::Variant' =~ /$regexp/ ) {
4824             $self->attribute_as_element('Target', shift);
4825             } else {
4826             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Variant\' for attribute \'Target\'';
4827             }
4828             }
4829             return $self->attribute_as_element('Target');
4830             }
4831              
4832             ##END_PACKAGE OutlookBarShortcut
4833              
4834             #===============================================================================
4835             # Generated by Hymnos Perl Code Generator
4836             # UML Model UUID: d5de61f4-3c43-11dd-a7bb-001c25551abc
4837              
4838             package Rinchi::Outlook::OutlookBarStorage;
4839              
4840             use Carp;
4841              
4842             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
4843             our @EXPORT = qw();
4844             our @EXPORT_OK = qw();
4845              
4846             =head1 DESCRIPTION of OutlookBarStorage class
4847              
4848             Rinchi::Outlook::OutlookBarStorage is used for representing OutlookBarStorage objects.
4849              
4850             =head1 METHODS for OutlookBarStorage objects
4851              
4852             =cut
4853              
4854             #===============================================================================
4855              
4856             {
4857             no strict "refs";
4858             *TAG_NAME = sub { return 'outlook-bar-storage'; };
4859             }
4860              
4861             #===============================================================================
4862             # Rinchi::Outlook::OutlookBarStorage::Application
4863              
4864             =head2 $value = $Object->Application([$new_value]);
4865              
4866             Set or get value of the Application attribute.
4867              
4868            
4869             Type: Application
4870             Lower: 0
4871             Upper: 1
4872              
4873             =cut
4874              
4875             sub Application() {
4876             my $self = shift;
4877             if (@_) {
4878             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4879             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
4880             $self->attribute_as_element('Application', shift);
4881             } else {
4882             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
4883             }
4884             }
4885             return $self->attribute_as_element('Application');
4886             }
4887              
4888             #===============================================================================
4889             # Rinchi::Outlook::OutlookBarStorage::Class
4890              
4891             =head2 $value = $Object->Class([$new_value]);
4892              
4893             Set or get value of the Class attribute.
4894              
4895            
4896             Type: OlObjectClass
4897             Lower: 0
4898             Upper: 1
4899              
4900             =cut
4901              
4902             sub Class() {
4903             my $self = shift;
4904             if (@_) {
4905             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
4906             $self->setAttribute('Class', shift);
4907             } else {
4908             if(ref($_[0])) {
4909             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
4910             } else {
4911             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
4912             }
4913             }
4914             }
4915             return $self->getAttribute('Class');
4916             }
4917              
4918             #===============================================================================
4919             # Rinchi::Outlook::OutlookBarStorage::Groups
4920              
4921             =head2 $value = $Object->Groups([$new_value]);
4922              
4923             Set or get value of the Groups attribute.
4924              
4925            
4926             Type:
4927             Lower: 0
4928             Upper: 1
4929              
4930             =cut
4931              
4932             sub Groups() {
4933             my $self = shift;
4934             if (@_) {
4935             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4936             if ('Rinchi::Outlook::' =~ /$regexp/ ) {
4937             $self->attribute_as_element('Groups', shift);
4938             } else {
4939             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::\' for attribute \'Groups\'';
4940             }
4941             }
4942             return $self->attribute_as_element('Groups');
4943             }
4944              
4945             #===============================================================================
4946             # Rinchi::Outlook::OutlookBarStorage::Parent
4947              
4948             =head2 $value = $Object->Parent([$new_value]);
4949              
4950             Set or get value of the Parent attribute.
4951              
4952            
4953             Type: Object
4954             Lower: 0
4955             Upper: 1
4956              
4957             =cut
4958              
4959             sub Parent() {
4960             my $self = shift;
4961             if (@_) {
4962             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4963             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
4964             $self->attribute_as_element('Parent', shift);
4965             } else {
4966             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
4967             }
4968             }
4969             return $self->attribute_as_element('Parent');
4970             }
4971              
4972             #===============================================================================
4973             # Rinchi::Outlook::OutlookBarStorage::Session
4974              
4975             =head2 $value = $Object->Session([$new_value]);
4976              
4977             Set or get value of the Session attribute.
4978              
4979            
4980             Type: NameSpace
4981             Lower: 0
4982             Upper: 1
4983              
4984             =cut
4985              
4986             sub Session() {
4987             my $self = shift;
4988             if (@_) {
4989             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
4990             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
4991             $self->attribute_as_element('Session', shift);
4992             } else {
4993             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
4994             }
4995             }
4996             return $self->attribute_as_element('Session');
4997             }
4998              
4999             ##END_PACKAGE OutlookBarStorage
5000              
5001             #===============================================================================
5002             # Generated by Hymnos Perl Code Generator
5003             # UML Model UUID: d5deb190-3c43-11dd-818d-001c25551abc
5004              
5005             package Rinchi::Outlook::PropertyPageSite;
5006              
5007             use Carp;
5008              
5009             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookEntry);
5010             our @EXPORT = qw();
5011             our @EXPORT_OK = qw();
5012              
5013             =head1 DESCRIPTION of PropertyPageSite class
5014              
5015             Rinchi::Outlook::PropertyPageSite is used for representing PropertyPageSite objects.
5016              
5017             =head1 METHODS for PropertyPageSite objects
5018              
5019             =cut
5020              
5021             #===============================================================================
5022              
5023             {
5024             no strict "refs";
5025             *TAG_NAME = sub { return 'property-page-site'; };
5026             }
5027              
5028             ##END_PACKAGE PropertyPageSite
5029              
5030             #===============================================================================
5031             # Generated by Hymnos Perl Code Generator
5032             # UML Model UUID: d5ded1de-3c43-11dd-85e5-001c25551abc
5033              
5034             package Rinchi::Outlook::Recipient;
5035              
5036             use Carp;
5037              
5038             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
5039             our @EXPORT = qw();
5040             our @EXPORT_OK = qw();
5041              
5042             =head1 DESCRIPTION of Recipient class
5043              
5044             Rinchi::Outlook::Recipient is used for representing Recipient objects.
5045              
5046             =head1 METHODS for Recipient objects
5047              
5048             =cut
5049              
5050             #===============================================================================
5051              
5052             {
5053             no strict "refs";
5054             *TAG_NAME = sub { return 'recipient'; };
5055             }
5056              
5057             #===============================================================================
5058             # Rinchi::Outlook::Recipient::Address
5059              
5060             =head2 $value = $Object->Address([$new_value]);
5061              
5062             Set or get value of the Address attribute.
5063              
5064            
5065             Type: String
5066             Lower: 0
5067             Upper: 1
5068              
5069             =cut
5070              
5071             sub Address() {
5072             my $self = shift;
5073             if (@_) {
5074             $self->setAttribute('Address', shift);
5075             }
5076             return $self->getAttribute('Address');
5077             }
5078              
5079             #===============================================================================
5080             # Rinchi::Outlook::Recipient::AddressEntry
5081              
5082             =head2 $value = $Object->AddressEntry([$new_value]);
5083              
5084             Set or get value of the AddressEntry attribute.
5085              
5086            
5087             Type: AddressEntry
5088             Lower: 0
5089             Upper: 1
5090              
5091             =cut
5092              
5093             sub AddressEntry() {
5094             my $self = shift;
5095             if (@_) {
5096             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
5097             if ('Rinchi::Outlook::AddressEntry' =~ /$regexp/ ) {
5098             $self->attribute_as_element('AddressEntry', shift);
5099             } else {
5100             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::AddressEntry\' for attribute \'AddressEntry\'';
5101             }
5102             }
5103             return $self->attribute_as_element('AddressEntry');
5104             }
5105              
5106             #===============================================================================
5107             # Rinchi::Outlook::Recipient::AutoResponse
5108              
5109             =head2 $value = $Object->AutoResponse([$new_value]);
5110              
5111             Set or get value of the AutoResponse attribute.
5112              
5113            
5114             Type: String
5115             Lower: 0
5116             Upper: 1
5117              
5118             =cut
5119              
5120             sub AutoResponse() {
5121             my $self = shift;
5122             if (@_) {
5123             $self->setAttribute('AutoResponse', shift);
5124             }
5125             return $self->getAttribute('AutoResponse');
5126             }
5127              
5128             #===============================================================================
5129             # Rinchi::Outlook::Recipient::DisplayType
5130              
5131             =head2 $value = $Object->DisplayType([$new_value]);
5132              
5133             Set or get value of the DisplayType attribute.
5134              
5135            
5136             Type: OlDisplayType
5137             Lower: 0
5138             Upper: 1
5139              
5140             =cut
5141              
5142             sub DisplayType() {
5143             my $self = shift;
5144             if (@_) {
5145             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5146             $self->setAttribute('DisplayType', shift);
5147             } else {
5148             if(ref($_[0])) {
5149             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlDisplayType\' for attribute \'DisplayType\'';
5150             } else {
5151             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlDisplayType\' for attribute \'DisplayType\'';
5152             }
5153             }
5154             }
5155             return $self->getAttribute('DisplayType');
5156             }
5157              
5158             #===============================================================================
5159             # Rinchi::Outlook::Recipient::EntryID
5160              
5161             =head2 $value = $Object->EntryID([$new_value]);
5162              
5163             Set or get value of the EntryID attribute.
5164              
5165            
5166             Type: String
5167             Lower: 0
5168             Upper: 1
5169              
5170             =cut
5171              
5172             sub EntryID() {
5173             my $self = shift;
5174             if (@_) {
5175             $self->setAttribute('EntryID', shift);
5176             }
5177             return $self->getAttribute('EntryID');
5178             }
5179              
5180             #===============================================================================
5181             # Rinchi::Outlook::Recipient::Index
5182              
5183             =head2 $value = $Object->Index([$new_value]);
5184              
5185             Set or get value of the Index attribute.
5186              
5187            
5188             Type: Long
5189             Lower: 0
5190             Upper: 1
5191              
5192             =cut
5193              
5194             sub Index() {
5195             my $self = shift;
5196             if (@_) {
5197             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5198             $self->setAttribute('Index', shift);
5199             } else {
5200             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Index\'';
5201             }
5202             }
5203             return $self->getAttribute('Index');
5204             }
5205              
5206             #===============================================================================
5207             # Rinchi::Outlook::Recipient::MeetingResponseStatus
5208              
5209             =head2 $value = $Object->MeetingResponseStatus([$new_value]);
5210              
5211             Set or get value of the MeetingResponseStatus attribute.
5212              
5213            
5214             Type: OlResponseStatus
5215             Lower: 0
5216             Upper: 1
5217              
5218             =cut
5219              
5220             sub MeetingResponseStatus() {
5221             my $self = shift;
5222             if (@_) {
5223             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5224             $self->setAttribute('MeetingResponseStatus', shift);
5225             } else {
5226             if(ref($_[0])) {
5227             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlResponseStatus\' for attribute \'MeetingResponseStatus\'';
5228             } else {
5229             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlResponseStatus\' for attribute \'MeetingResponseStatus\'';
5230             }
5231             }
5232             }
5233             return $self->getAttribute('MeetingResponseStatus');
5234             }
5235              
5236             #===============================================================================
5237             # Rinchi::Outlook::Recipient::Resolved
5238              
5239             =head2 $value = $Object->Resolved([$new_value]);
5240              
5241             Set or get value of the Resolved attribute.
5242              
5243            
5244             Type: Boolean
5245             Lower: 0
5246             Upper: 1
5247              
5248             =cut
5249              
5250             sub Resolved() {
5251             my $self = shift;
5252             if (@_) {
5253             if ($_[0] =~ /^(true|false)$/i ) {
5254             $self->setAttribute('Resolved', lc shift);
5255             } else {
5256             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Resolved\'';
5257             }
5258             }
5259             return $self->getAttribute('Resolved');
5260             }
5261              
5262             #===============================================================================
5263             # Rinchi::Outlook::Recipient::TrackingStatus
5264              
5265             =head2 $value = $Object->TrackingStatus([$new_value]);
5266              
5267             Set or get value of the TrackingStatus attribute.
5268              
5269            
5270             Type: OlTrackingStatus
5271             Lower: 0
5272             Upper: 1
5273              
5274             =cut
5275              
5276             sub TrackingStatus() {
5277             my $self = shift;
5278             if (@_) {
5279             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5280             $self->setAttribute('TrackingStatus', shift);
5281             } else {
5282             if(ref($_[0])) {
5283             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlTrackingStatus\' for attribute \'TrackingStatus\'';
5284             } else {
5285             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlTrackingStatus\' for attribute \'TrackingStatus\'';
5286             }
5287             }
5288             }
5289             return $self->getAttribute('TrackingStatus');
5290             }
5291              
5292             #===============================================================================
5293             # Rinchi::Outlook::Recipient::TrackingStatusTime
5294              
5295             =head2 $value = $Object->TrackingStatusTime([$new_value]);
5296              
5297             Set or get value of the TrackingStatusTime attribute.
5298              
5299            
5300             Type: VT_DATE
5301             Lower: 0
5302             Upper: 1
5303              
5304             =cut
5305              
5306             sub TrackingStatusTime() {
5307             my $self = shift;
5308             if (@_) {
5309             $self->setAttribute('TrackingStatusTime', shift);
5310             }
5311             return $self->getAttribute('TrackingStatusTime');
5312             }
5313              
5314             #===============================================================================
5315             # Rinchi::Outlook::Recipient::Type
5316              
5317             =head2 $value = $Object->Type([$new_value]);
5318              
5319             Set or get value of the Type attribute.
5320              
5321            
5322             Type: Long
5323             Lower: 0
5324             Upper: 1
5325              
5326             =cut
5327              
5328             sub Type() {
5329             my $self = shift;
5330             if (@_) {
5331             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5332             $self->setAttribute('Type', shift);
5333             } else {
5334             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Type\'';
5335             }
5336             }
5337             return $self->getAttribute('Type');
5338             }
5339              
5340             ##END_PACKAGE Recipient
5341              
5342             #===============================================================================
5343             # Generated by Hymnos Perl Code Generator
5344             # UML Model UUID: d5df01d6-3c43-11dd-9a41-001c25551abc
5345              
5346             package Rinchi::Outlook::RecurrencePattern;
5347              
5348             use Carp;
5349              
5350             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
5351             our @EXPORT = qw();
5352             our @EXPORT_OK = qw();
5353              
5354             =head1 DESCRIPTION of RecurrencePattern class
5355              
5356             Rinchi::Outlook::RecurrencePattern is used for representing RecurrencePattern objects.
5357              
5358             =head1 METHODS for RecurrencePattern objects
5359              
5360             =cut
5361              
5362             #===============================================================================
5363              
5364             {
5365             no strict "refs";
5366             *TAG_NAME = sub { return 'recurrence-pattern'; };
5367             }
5368              
5369             #===============================================================================
5370             # Rinchi::Outlook::RecurrencePattern::Application
5371              
5372             =head2 $value = $Object->Application([$new_value]);
5373              
5374             Set or get value of the Application attribute.
5375              
5376            
5377             Type: Application
5378             Lower: 0
5379             Upper: 1
5380              
5381             =cut
5382              
5383             sub Application() {
5384             my $self = shift;
5385             if (@_) {
5386             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
5387             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
5388             $self->attribute_as_element('Application', shift);
5389             } else {
5390             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
5391             }
5392             }
5393             return $self->attribute_as_element('Application');
5394             }
5395              
5396             #===============================================================================
5397             # Rinchi::Outlook::RecurrencePattern::Class
5398              
5399             =head2 $value = $Object->Class([$new_value]);
5400              
5401             Set or get value of the Class attribute.
5402              
5403            
5404             Type: OlObjectClass
5405             Lower: 0
5406             Upper: 1
5407              
5408             =cut
5409              
5410             sub Class() {
5411             my $self = shift;
5412             if (@_) {
5413             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5414             $self->setAttribute('Class', shift);
5415             } else {
5416             if(ref($_[0])) {
5417             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
5418             } else {
5419             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
5420             }
5421             }
5422             }
5423             return $self->getAttribute('Class');
5424             }
5425              
5426             #===============================================================================
5427             # Rinchi::Outlook::RecurrencePattern::DayOfMonth
5428              
5429             =head2 $value = $Object->DayOfMonth([$new_value]);
5430              
5431             Set or get value of the DayOfMonth attribute.
5432              
5433            
5434             Type: Long
5435             Lower: 0
5436             Upper: 1
5437              
5438             =cut
5439              
5440             sub DayOfMonth() {
5441             my $self = shift;
5442             if (@_) {
5443             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5444             $self->setAttribute('DayOfMonth', shift);
5445             } else {
5446             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'DayOfMonth\'';
5447             }
5448             }
5449             return $self->getAttribute('DayOfMonth');
5450             }
5451              
5452             #===============================================================================
5453             # Rinchi::Outlook::RecurrencePattern::DayOfWeekMask
5454              
5455             =head2 $value = $Object->DayOfWeekMask([$new_value]);
5456              
5457             Set or get value of the DayOfWeekMask attribute.
5458              
5459            
5460             Type: OlDaysOfWeek
5461             Lower: 0
5462             Upper: 1
5463              
5464             =cut
5465              
5466             sub DayOfWeekMask() {
5467             my $self = shift;
5468             if (@_) {
5469             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5470             $self->setAttribute('DayOfWeekMask', shift);
5471             } else {
5472             if(ref($_[0])) {
5473             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlDaysOfWeek\' for attribute \'DayOfWeekMask\'';
5474             } else {
5475             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlDaysOfWeek\' for attribute \'DayOfWeekMask\'';
5476             }
5477             }
5478             }
5479             return $self->getAttribute('DayOfWeekMask');
5480             }
5481              
5482             #===============================================================================
5483             # Rinchi::Outlook::RecurrencePattern::Duration
5484              
5485             =head2 $value = $Object->Duration([$new_value]);
5486              
5487             Set or get value of the Duration attribute.
5488              
5489            
5490             Type: Long
5491             Lower: 0
5492             Upper: 1
5493              
5494             =cut
5495              
5496             sub Duration() {
5497             my $self = shift;
5498             if (@_) {
5499             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5500             $self->setAttribute('Duration', shift);
5501             } else {
5502             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Duration\'';
5503             }
5504             }
5505             return $self->getAttribute('Duration');
5506             }
5507              
5508             #===============================================================================
5509             # Rinchi::Outlook::RecurrencePattern::EndTime
5510              
5511             =head2 $value = $Object->EndTime([$new_value]);
5512              
5513             Set or get value of the EndTime attribute.
5514              
5515            
5516             Type: VT_DATE
5517             Lower: 0
5518             Upper: 1
5519              
5520             =cut
5521              
5522             sub EndTime() {
5523             my $self = shift;
5524             if (@_) {
5525             $self->setAttribute('EndTime', shift);
5526             }
5527             return $self->getAttribute('EndTime');
5528             }
5529              
5530             #===============================================================================
5531             # Rinchi::Outlook::RecurrencePattern::Exceptions
5532              
5533             =head2 $Element = $Object->Exceptions();
5534              
5535             Set or get value of the Exceptions attribute.
5536              
5537            
5538             Type: Exceptions
5539             Lower: 0
5540             Upper: 1
5541              
5542             =cut
5543              
5544             sub Exceptions() {
5545             my $self = shift;
5546             return $self->get_collection('Exceptions','exceptions');
5547             }
5548              
5549             #===============================================================================
5550             # Rinchi::Outlook::RecurrencePattern::Instance
5551              
5552             =head2 $value = $Object->Instance([$new_value]);
5553              
5554             Set or get value of the Instance attribute.
5555              
5556            
5557             Type: Long
5558             Lower: 0
5559             Upper: 1
5560              
5561             =cut
5562              
5563             sub Instance() {
5564             my $self = shift;
5565             if (@_) {
5566             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5567             $self->setAttribute('Instance', shift);
5568             } else {
5569             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Instance\'';
5570             }
5571             }
5572             return $self->getAttribute('Instance');
5573             }
5574              
5575             #===============================================================================
5576             # Rinchi::Outlook::RecurrencePattern::Interval
5577              
5578             =head2 $value = $Object->Interval([$new_value]);
5579              
5580             Set or get value of the Interval attribute.
5581              
5582            
5583             Type: Long
5584             Lower: 0
5585             Upper: 1
5586              
5587             =cut
5588              
5589             sub Interval() {
5590             my $self = shift;
5591             if (@_) {
5592             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5593             $self->setAttribute('Interval', shift);
5594             } else {
5595             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Interval\'';
5596             }
5597             }
5598             return $self->getAttribute('Interval');
5599             }
5600              
5601             #===============================================================================
5602             # Rinchi::Outlook::RecurrencePattern::MonthOfYear
5603              
5604             =head2 $value = $Object->MonthOfYear([$new_value]);
5605              
5606             Set or get value of the MonthOfYear attribute.
5607              
5608            
5609             Type: Long
5610             Lower: 0
5611             Upper: 1
5612              
5613             =cut
5614              
5615             sub MonthOfYear() {
5616             my $self = shift;
5617             if (@_) {
5618             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5619             $self->setAttribute('MonthOfYear', shift);
5620             } else {
5621             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'MonthOfYear\'';
5622             }
5623             }
5624             return $self->getAttribute('MonthOfYear');
5625             }
5626              
5627             #===============================================================================
5628             # Rinchi::Outlook::RecurrencePattern::NoEndDate
5629              
5630             =head2 $value = $Object->NoEndDate([$new_value]);
5631              
5632             Set or get value of the NoEndDate attribute.
5633              
5634            
5635             Type: Boolean
5636             Lower: 0
5637             Upper: 1
5638              
5639             =cut
5640              
5641             sub NoEndDate() {
5642             my $self = shift;
5643             if (@_) {
5644             if ($_[0] =~ /^(true|false)$/i ) {
5645             $self->setAttribute('NoEndDate', lc shift);
5646             } else {
5647             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'NoEndDate\'';
5648             }
5649             }
5650             return $self->getAttribute('NoEndDate');
5651             }
5652              
5653             #===============================================================================
5654             # Rinchi::Outlook::RecurrencePattern::Occurrences
5655              
5656             =head2 $value = $Object->Occurrences([$new_value]);
5657              
5658             Set or get value of the Occurrences attribute.
5659              
5660            
5661             Type: Long
5662             Lower: 0
5663             Upper: 1
5664              
5665             =cut
5666              
5667             sub Occurrences() {
5668             my $self = shift;
5669             if (@_) {
5670             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5671             $self->setAttribute('Occurrences', shift);
5672             } else {
5673             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Occurrences\'';
5674             }
5675             }
5676             return $self->getAttribute('Occurrences');
5677             }
5678              
5679             #===============================================================================
5680             # Rinchi::Outlook::RecurrencePattern::Parent
5681              
5682             =head2 $value = $Object->Parent([$new_value]);
5683              
5684             Set or get value of the Parent attribute.
5685              
5686            
5687             Type: Object
5688             Lower: 0
5689             Upper: 1
5690              
5691             =cut
5692              
5693             sub Parent() {
5694             my $self = shift;
5695             if (@_) {
5696             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
5697             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
5698             $self->attribute_as_element('Parent', shift);
5699             } else {
5700             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
5701             }
5702             }
5703             return $self->attribute_as_element('Parent');
5704             }
5705              
5706             #===============================================================================
5707             # Rinchi::Outlook::RecurrencePattern::PatternEndDate
5708              
5709             =head2 $value = $Object->PatternEndDate([$new_value]);
5710              
5711             Set or get value of the PatternEndDate attribute.
5712              
5713            
5714             Type: VT_DATE
5715             Lower: 0
5716             Upper: 1
5717              
5718             =cut
5719              
5720             sub PatternEndDate() {
5721             my $self = shift;
5722             if (@_) {
5723             $self->setAttribute('PatternEndDate', shift);
5724             }
5725             return $self->getAttribute('PatternEndDate');
5726             }
5727              
5728             #===============================================================================
5729             # Rinchi::Outlook::RecurrencePattern::PatternStartDate
5730              
5731             =head2 $value = $Object->PatternStartDate([$new_value]);
5732              
5733             Set or get value of the PatternStartDate attribute.
5734              
5735            
5736             Type: VT_DATE
5737             Lower: 0
5738             Upper: 1
5739              
5740             =cut
5741              
5742             sub PatternStartDate() {
5743             my $self = shift;
5744             if (@_) {
5745             $self->setAttribute('PatternStartDate', shift);
5746             }
5747             return $self->getAttribute('PatternStartDate');
5748             }
5749              
5750             #===============================================================================
5751             # Rinchi::Outlook::RecurrencePattern::RecurrenceType
5752              
5753             =head2 $value = $Object->RecurrenceType([$new_value]);
5754              
5755             Set or get value of the RecurrenceType attribute.
5756              
5757            
5758             Type: OlRecurrenceType
5759             Lower: 0
5760             Upper: 1
5761              
5762             =cut
5763              
5764             sub RecurrenceType() {
5765             my $self = shift;
5766             if (@_) {
5767             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
5768             $self->setAttribute('RecurrenceType', shift);
5769             } else {
5770             if(ref($_[0])) {
5771             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlRecurrenceType\' for attribute \'RecurrenceType\'';
5772             } else {
5773             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlRecurrenceType\' for attribute \'RecurrenceType\'';
5774             }
5775             }
5776             }
5777             return $self->getAttribute('RecurrenceType');
5778             }
5779              
5780             #===============================================================================
5781             # Rinchi::Outlook::RecurrencePattern::Regenerate
5782              
5783             =head2 $value = $Object->Regenerate([$new_value]);
5784              
5785             Set or get value of the Regenerate attribute.
5786              
5787            
5788             Type: Boolean
5789             Lower: 0
5790             Upper: 1
5791              
5792             =cut
5793              
5794             sub Regenerate() {
5795             my $self = shift;
5796             if (@_) {
5797             if ($_[0] =~ /^(true|false)$/i ) {
5798             $self->setAttribute('Regenerate', lc shift);
5799             } else {
5800             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Regenerate\'';
5801             }
5802             }
5803             return $self->getAttribute('Regenerate');
5804             }
5805              
5806             #===============================================================================
5807             # Rinchi::Outlook::RecurrencePattern::Session
5808              
5809             =head2 $value = $Object->Session([$new_value]);
5810              
5811             Set or get value of the Session attribute.
5812              
5813            
5814             Type: NameSpace
5815             Lower: 0
5816             Upper: 1
5817              
5818             =cut
5819              
5820             sub Session() {
5821             my $self = shift;
5822             if (@_) {
5823             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
5824             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
5825             $self->attribute_as_element('Session', shift);
5826             } else {
5827             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
5828             }
5829             }
5830             return $self->attribute_as_element('Session');
5831             }
5832              
5833             #===============================================================================
5834             # Rinchi::Outlook::RecurrencePattern::StartTime
5835              
5836             =head2 $value = $Object->StartTime([$new_value]);
5837              
5838             Set or get value of the StartTime attribute.
5839              
5840            
5841             Type: VT_DATE
5842             Lower: 0
5843             Upper: 1
5844              
5845             =cut
5846              
5847             sub StartTime() {
5848             my $self = shift;
5849             if (@_) {
5850             $self->setAttribute('StartTime', shift);
5851             }
5852             return $self->getAttribute('StartTime');
5853             }
5854              
5855             ##END_PACKAGE RecurrencePattern
5856              
5857             #===============================================================================
5858             # Generated by Hymnos Perl Code Generator
5859             # UML Model UUID: d5df224c-3c43-11dd-934f-001c25551abc
5860              
5861             package Rinchi::Outlook::Reminder;
5862              
5863             use Carp;
5864              
5865             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookEntry);
5866             our @EXPORT = qw();
5867             our @EXPORT_OK = qw();
5868              
5869             =head1 DESCRIPTION of Reminder class
5870              
5871             Rinchi::Outlook::Reminder is used for representing Reminder objects.
5872              
5873             =head1 METHODS for Reminder objects
5874              
5875             =cut
5876              
5877             #===============================================================================
5878              
5879             {
5880             no strict "refs";
5881             *TAG_NAME = sub { return 'reminder'; };
5882             }
5883              
5884             #===============================================================================
5885             # Rinchi::Outlook::Reminder::Caption
5886              
5887             =head2 $value = $Object->Caption([$new_value]);
5888              
5889             Set or get value of the Caption attribute.
5890              
5891            
5892             Type: String
5893             Lower: 0
5894             Upper: 1
5895              
5896             =cut
5897              
5898             sub Caption() {
5899             my $self = shift;
5900             if (@_) {
5901             $self->setAttribute('Caption', shift);
5902             }
5903             return $self->getAttribute('Caption');
5904             }
5905              
5906             #===============================================================================
5907             # Rinchi::Outlook::Reminder::IsVisible
5908              
5909             =head2 $value = $Object->IsVisible([$new_value]);
5910              
5911             Set or get value of the IsVisible attribute.
5912              
5913            
5914             Type: Boolean
5915             Lower: 0
5916             Upper: 1
5917              
5918             =cut
5919              
5920             sub IsVisible() {
5921             my $self = shift;
5922             if (@_) {
5923             if ($_[0] =~ /^(true|false)$/i ) {
5924             $self->setAttribute('IsVisible', lc shift);
5925             } else {
5926             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsVisible\'';
5927             }
5928             }
5929             return $self->getAttribute('IsVisible');
5930             }
5931              
5932             #===============================================================================
5933             # Rinchi::Outlook::Reminder::Item
5934              
5935             =head2 $value = $Object->Item([$new_value]);
5936              
5937             Set or get value of the Item attribute.
5938              
5939            
5940             Type: Object
5941             Lower: 0
5942             Upper: 1
5943              
5944             =cut
5945              
5946             sub Item() {
5947             my $self = shift;
5948             if (@_) {
5949             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
5950             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
5951             $self->attribute_as_element('Item', shift);
5952             } else {
5953             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Item\'';
5954             }
5955             }
5956             return $self->attribute_as_element('Item');
5957             }
5958              
5959             #===============================================================================
5960             # Rinchi::Outlook::Reminder::NextReminderDate
5961              
5962             =head2 $value = $Object->NextReminderDate([$new_value]);
5963              
5964             Set or get value of the NextReminderDate attribute.
5965              
5966            
5967             Type: VT_DATE
5968             Lower: 0
5969             Upper: 1
5970              
5971             =cut
5972              
5973             sub NextReminderDate() {
5974             my $self = shift;
5975             if (@_) {
5976             $self->setAttribute('NextReminderDate', shift);
5977             }
5978             return $self->getAttribute('NextReminderDate');
5979             }
5980              
5981             #===============================================================================
5982             # Rinchi::Outlook::Reminder::OriginalReminderDate
5983              
5984             =head2 $value = $Object->OriginalReminderDate([$new_value]);
5985              
5986             Set or get value of the OriginalReminderDate attribute.
5987              
5988            
5989             Type: VT_DATE
5990             Lower: 0
5991             Upper: 1
5992              
5993             =cut
5994              
5995             sub OriginalReminderDate() {
5996             my $self = shift;
5997             if (@_) {
5998             $self->setAttribute('OriginalReminderDate', shift);
5999             }
6000             return $self->getAttribute('OriginalReminderDate');
6001             }
6002              
6003             ##END_PACKAGE Reminder
6004              
6005             #===============================================================================
6006             # Generated by Hymnos Perl Code Generator
6007             # UML Model UUID: d5dfd6c4-3c43-11dd-b122-001c25551abc
6008              
6009             package Rinchi::Outlook::Search;
6010              
6011             use Carp;
6012              
6013             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
6014             our @EXPORT = qw();
6015             our @EXPORT_OK = qw();
6016              
6017             =head1 DESCRIPTION of Search class
6018              
6019             Rinchi::Outlook::Search is used for representing Search objects.
6020              
6021             =head1 METHODS for Search objects
6022              
6023             =cut
6024              
6025             #===============================================================================
6026              
6027             {
6028             no strict "refs";
6029             *TAG_NAME = sub { return 'search'; };
6030             }
6031              
6032             #===============================================================================
6033             # Rinchi::Outlook::Search::Application
6034              
6035             =head2 $value = $Object->Application([$new_value]);
6036              
6037             Set or get value of the Application attribute.
6038              
6039            
6040             Type: Application
6041             Lower: 0
6042             Upper: 1
6043              
6044             =cut
6045              
6046             sub Application() {
6047             my $self = shift;
6048             if (@_) {
6049             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6050             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
6051             $self->attribute_as_element('Application', shift);
6052             } else {
6053             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
6054             }
6055             }
6056             return $self->attribute_as_element('Application');
6057             }
6058              
6059             #===============================================================================
6060             # Rinchi::Outlook::Search::Class
6061              
6062             =head2 $value = $Object->Class([$new_value]);
6063              
6064             Set or get value of the Class attribute.
6065              
6066            
6067             Type: OlObjectClass
6068             Lower: 0
6069             Upper: 1
6070              
6071             =cut
6072              
6073             sub Class() {
6074             my $self = shift;
6075             if (@_) {
6076             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
6077             $self->setAttribute('Class', shift);
6078             } else {
6079             if(ref($_[0])) {
6080             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
6081             } else {
6082             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
6083             }
6084             }
6085             }
6086             return $self->getAttribute('Class');
6087             }
6088              
6089             #===============================================================================
6090             # Rinchi::Outlook::Search::Filter
6091              
6092             =head2 $value = $Object->Filter([$new_value]);
6093              
6094             Set or get value of the Filter attribute.
6095              
6096            
6097             Type: String
6098             Lower: 0
6099             Upper: 1
6100              
6101             =cut
6102              
6103             sub Filter() {
6104             my $self = shift;
6105             if (@_) {
6106             $self->setAttribute('Filter', shift);
6107             }
6108             return $self->getAttribute('Filter');
6109             }
6110              
6111             #===============================================================================
6112             # Rinchi::Outlook::Search::IsSynchronous
6113              
6114             =head2 $value = $Object->IsSynchronous([$new_value]);
6115              
6116             Set or get value of the IsSynchronous attribute.
6117              
6118            
6119             Type: Boolean
6120             Lower: 0
6121             Upper: 1
6122              
6123             =cut
6124              
6125             sub IsSynchronous() {
6126             my $self = shift;
6127             if (@_) {
6128             if ($_[0] =~ /^(true|false)$/i ) {
6129             $self->setAttribute('IsSynchronous', lc shift);
6130             } else {
6131             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsSynchronous\'';
6132             }
6133             }
6134             return $self->getAttribute('IsSynchronous');
6135             }
6136              
6137             #===============================================================================
6138             # Rinchi::Outlook::Search::Parent
6139              
6140             =head2 $value = $Object->Parent([$new_value]);
6141              
6142             Set or get value of the Parent attribute.
6143              
6144            
6145             Type: Object
6146             Lower: 0
6147             Upper: 1
6148              
6149             =cut
6150              
6151             sub Parent() {
6152             my $self = shift;
6153             if (@_) {
6154             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6155             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
6156             $self->attribute_as_element('Parent', shift);
6157             } else {
6158             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
6159             }
6160             }
6161             return $self->attribute_as_element('Parent');
6162             }
6163              
6164             #===============================================================================
6165             # Rinchi::Outlook::Search::Results
6166              
6167             =head2 $value = $Object->Results([$new_value]);
6168              
6169             Set or get value of the Results attribute.
6170              
6171            
6172             Type:
6173             Lower: 0
6174             Upper: 1
6175              
6176             =cut
6177              
6178             sub Results() {
6179             my $self = shift;
6180             if (@_) {
6181             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6182             if ('Rinchi::Outlook::' =~ /$regexp/ ) {
6183             $self->attribute_as_element('Results', shift);
6184             } else {
6185             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::\' for attribute \'Results\'';
6186             }
6187             }
6188             return $self->attribute_as_element('Results');
6189             }
6190              
6191             #===============================================================================
6192             # Rinchi::Outlook::Search::Scope
6193              
6194             =head2 $value = $Object->Scope([$new_value]);
6195              
6196             Set or get value of the Scope attribute.
6197              
6198            
6199             Type: String
6200             Lower: 0
6201             Upper: 1
6202              
6203             =cut
6204              
6205             sub Scope() {
6206             my $self = shift;
6207             if (@_) {
6208             $self->setAttribute('Scope', shift);
6209             }
6210             return $self->getAttribute('Scope');
6211             }
6212              
6213             #===============================================================================
6214             # Rinchi::Outlook::Search::SearchSubFolders
6215              
6216             =head2 $value = $Object->SearchSubFolders([$new_value]);
6217              
6218             Set or get value of the SearchSubFolders attribute.
6219              
6220            
6221             Type: Boolean
6222             Lower: 0
6223             Upper: 1
6224              
6225             =cut
6226              
6227             sub SearchSubFolders() {
6228             my $self = shift;
6229             if (@_) {
6230             if ($_[0] =~ /^(true|false)$/i ) {
6231             $self->setAttribute('SearchSubFolders', lc shift);
6232             } else {
6233             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'SearchSubFolders\'';
6234             }
6235             }
6236             return $self->getAttribute('SearchSubFolders');
6237             }
6238              
6239             #===============================================================================
6240             # Rinchi::Outlook::Search::Session
6241              
6242             =head2 $value = $Object->Session([$new_value]);
6243              
6244             Set or get value of the Session attribute.
6245              
6246            
6247             Type: NameSpace
6248             Lower: 0
6249             Upper: 1
6250              
6251             =cut
6252              
6253             sub Session() {
6254             my $self = shift;
6255             if (@_) {
6256             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6257             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
6258             $self->attribute_as_element('Session', shift);
6259             } else {
6260             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
6261             }
6262             }
6263             return $self->attribute_as_element('Session');
6264             }
6265              
6266             #===============================================================================
6267             # Rinchi::Outlook::Search::Tag
6268              
6269             =head2 $value = $Object->Tag([$new_value]);
6270              
6271             Set or get value of the Tag attribute.
6272              
6273            
6274             Type: String
6275             Lower: 0
6276             Upper: 1
6277              
6278             =cut
6279              
6280             sub Tag() {
6281             my $self = shift;
6282             if (@_) {
6283             $self->setAttribute('Tag', shift);
6284             }
6285             return $self->getAttribute('Tag');
6286             }
6287              
6288             ##END_PACKAGE Search
6289              
6290             #===============================================================================
6291             # Generated by Hymnos Perl Code Generator
6292             # UML Model UUID: d5dfe696-3c43-11dd-a55e-001c25551abc
6293              
6294             package Rinchi::Outlook::Selection;
6295              
6296             use Carp;
6297              
6298             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
6299             our @EXPORT = qw();
6300             our @EXPORT_OK = qw();
6301              
6302             =head1 DESCRIPTION of Selection class
6303              
6304             Rinchi::Outlook::Selection is used for representing Selection objects.
6305              
6306             =head1 METHODS for Selection objects
6307              
6308             =cut
6309              
6310             #===============================================================================
6311              
6312             {
6313             no strict "refs";
6314             *TAG_NAME = sub { return 'selection'; };
6315             }
6316              
6317             #===============================================================================
6318             # Rinchi::Outlook::Selection::Application
6319              
6320             =head2 $value = $Object->Application([$new_value]);
6321              
6322             Set or get value of the Application attribute.
6323              
6324            
6325             Type: Application
6326             Lower: 0
6327             Upper: 1
6328              
6329             =cut
6330              
6331             sub Application() {
6332             my $self = shift;
6333             if (@_) {
6334             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6335             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
6336             $self->attribute_as_element('Application', shift);
6337             } else {
6338             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
6339             }
6340             }
6341             return $self->attribute_as_element('Application');
6342             }
6343              
6344             #===============================================================================
6345             # Rinchi::Outlook::Selection::Class
6346              
6347             =head2 $value = $Object->Class([$new_value]);
6348              
6349             Set or get value of the Class attribute.
6350              
6351            
6352             Type: OlObjectClass
6353             Lower: 0
6354             Upper: 1
6355              
6356             =cut
6357              
6358             sub Class() {
6359             my $self = shift;
6360             if (@_) {
6361             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
6362             $self->setAttribute('Class', shift);
6363             } else {
6364             if(ref($_[0])) {
6365             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
6366             } else {
6367             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
6368             }
6369             }
6370             }
6371             return $self->getAttribute('Class');
6372             }
6373              
6374             #===============================================================================
6375             # Rinchi::Outlook::Selection::Count
6376              
6377             =head2 $value = $Object->Count([$new_value]);
6378              
6379             Set or get value of the Count attribute.
6380              
6381            
6382             Type: Long
6383             Lower: 0
6384             Upper: 1
6385              
6386             =cut
6387              
6388             sub Count() {
6389             my $self = shift;
6390             if (@_) {
6391             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
6392             $self->setAttribute('Count', shift);
6393             } else {
6394             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Count\'';
6395             }
6396             }
6397             return $self->getAttribute('Count');
6398             }
6399              
6400             #===============================================================================
6401             # Rinchi::Outlook::Selection::Parent
6402              
6403             =head2 $value = $Object->Parent([$new_value]);
6404              
6405             Set or get value of the Parent attribute.
6406              
6407            
6408             Type: Object
6409             Lower: 0
6410             Upper: 1
6411              
6412             =cut
6413              
6414             sub Parent() {
6415             my $self = shift;
6416             if (@_) {
6417             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6418             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
6419             $self->attribute_as_element('Parent', shift);
6420             } else {
6421             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
6422             }
6423             }
6424             return $self->attribute_as_element('Parent');
6425             }
6426              
6427             #===============================================================================
6428             # Rinchi::Outlook::Selection::Session
6429              
6430             =head2 $value = $Object->Session([$new_value]);
6431              
6432             Set or get value of the Session attribute.
6433              
6434            
6435             Type: NameSpace
6436             Lower: 0
6437             Upper: 1
6438              
6439             =cut
6440              
6441             sub Session() {
6442             my $self = shift;
6443             if (@_) {
6444             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6445             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
6446             $self->attribute_as_element('Session', shift);
6447             } else {
6448             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
6449             }
6450             }
6451             return $self->attribute_as_element('Session');
6452             }
6453              
6454             ##END_PACKAGE Selection
6455              
6456             #===============================================================================
6457             # Generated by Hymnos Perl Code Generator
6458             # UML Model UUID: d5dff6c2-3c43-11dd-af3e-001c25551abc
6459              
6460             package Rinchi::Outlook::SyncObject;
6461              
6462             use Carp;
6463              
6464             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
6465             our @EXPORT = qw();
6466             our @EXPORT_OK = qw();
6467              
6468             =head1 DESCRIPTION of SyncObject class
6469              
6470             Rinchi::Outlook::SyncObject is used for representing SyncObject objects.
6471              
6472             =head1 METHODS for SyncObject objects
6473              
6474             =cut
6475              
6476             #===============================================================================
6477              
6478             {
6479             no strict "refs";
6480             *TAG_NAME = sub { return 'sync-object'; };
6481             }
6482              
6483             ##END_PACKAGE SyncObject
6484              
6485             #===============================================================================
6486             # Generated by Hymnos Perl Code Generator
6487             # UML Model UUID: d5e0ea5a-3c43-11dd-9e08-001c25551abc
6488              
6489             package Rinchi::Outlook::UserProperty;
6490              
6491             use Carp;
6492              
6493             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
6494             our @EXPORT = qw();
6495             our @EXPORT_OK = qw();
6496              
6497             =head1 DESCRIPTION of UserProperty class
6498              
6499             Rinchi::Outlook::UserProperty is used for representing UserProperty objects. A
6500             UserProperty object represents a custom property of a Microsoft Outlook item.
6501              
6502             =head1 METHODS for UserProperty objects
6503              
6504             =cut
6505              
6506             #===============================================================================
6507              
6508             {
6509             no strict "refs";
6510             *TAG_NAME = sub { return 'user-property'; };
6511             }
6512              
6513             #===============================================================================
6514             # Rinchi::Outlook::UserProperty::Formula
6515              
6516             =head2 $value = $Object->Formula([$new_value]);
6517              
6518             Set or get value of the Formula attribute.
6519              
6520            
6521             Type: String
6522             Lower: 0
6523             Upper: 1
6524              
6525             =cut
6526              
6527             sub Formula() {
6528             my $self = shift;
6529             if (@_) {
6530             $self->setAttribute('Formula', shift);
6531             }
6532             return $self->getAttribute('Formula');
6533             }
6534              
6535             #===============================================================================
6536             # Rinchi::Outlook::UserProperty::IsUserProperty
6537              
6538             =head2 $value = $Object->IsUserProperty([$new_value]);
6539              
6540             Set or get value of the IsUserProperty attribute.
6541              
6542            
6543             Type: Boolean
6544             Lower: 0
6545             Upper: 1
6546              
6547             =cut
6548              
6549             sub IsUserProperty() {
6550             my $self = shift;
6551             if (@_) {
6552             if ($_[0] =~ /^(true|false)$/i ) {
6553             $self->setAttribute('IsUserProperty', lc shift);
6554             } else {
6555             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsUserProperty\'';
6556             }
6557             }
6558             return $self->getAttribute('IsUserProperty');
6559             }
6560              
6561             #===============================================================================
6562             # Rinchi::Outlook::UserProperty::Type
6563              
6564             =head2 $value = $Object->Type([$new_value]);
6565              
6566             Set or get value of the Type attribute.
6567              
6568            
6569             Type: OlUserPropertyType
6570             Lower: 0
6571             Upper: 1
6572              
6573             =cut
6574              
6575             sub Type() {
6576             my $self = shift;
6577             if (@_) {
6578             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
6579             $self->setAttribute('Type', shift);
6580             } else {
6581             if(ref($_[0])) {
6582             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlUserPropertyType\' for attribute \'Type\'';
6583             } else {
6584             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlUserPropertyType\' for attribute \'Type\'';
6585             }
6586             }
6587             }
6588             return $self->getAttribute('Type');
6589             }
6590              
6591             #===============================================================================
6592             # Rinchi::Outlook::UserProperty::ValidationFormula
6593              
6594             =head2 $value = $Object->ValidationFormula([$new_value]);
6595              
6596             Set or get value of the ValidationFormula attribute.
6597              
6598            
6599             Type: String
6600             Lower: 0
6601             Upper: 1
6602              
6603             =cut
6604              
6605             sub ValidationFormula() {
6606             my $self = shift;
6607             if (@_) {
6608             $self->setAttribute('ValidationFormula', shift);
6609             }
6610             return $self->getAttribute('ValidationFormula');
6611             }
6612              
6613             #===============================================================================
6614             # Rinchi::Outlook::UserProperty::ValidationText
6615              
6616             =head2 $value = $Object->ValidationText([$new_value]);
6617              
6618             Set or get value of the ValidationText attribute.
6619              
6620            
6621             Type: String
6622             Lower: 0
6623             Upper: 1
6624              
6625             =cut
6626              
6627             sub ValidationText() {
6628             my $self = shift;
6629             if (@_) {
6630             $self->setAttribute('ValidationText', shift);
6631             }
6632             return $self->getAttribute('ValidationText');
6633             }
6634              
6635             #===============================================================================
6636             # Rinchi::Outlook::UserProperty::Value
6637              
6638             =head2 $value = $Object->Value([$new_value]);
6639              
6640             Set or get value of the Value attribute.
6641              
6642            
6643             Type: Variant
6644             Lower: 0
6645             Upper: 1
6646              
6647             =cut
6648              
6649             sub Value() {
6650             my $self = shift;
6651             if (@_) {
6652             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6653             if ('Rinchi::Outlook::Variant' =~ /$regexp/ ) {
6654             $self->attribute_as_element('Value', shift);
6655             } else {
6656             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Variant\' for attribute \'Value\'';
6657             }
6658             }
6659             return $self->attribute_as_element('Value');
6660             }
6661              
6662             ##END_PACKAGE UserProperty
6663              
6664             #===============================================================================
6665             # Generated by Hymnos Perl Code Generator
6666             # UML Model UUID: d5e0f9f0-3c43-11dd-8cc6-001c25551abc
6667              
6668             package Rinchi::Outlook::View;
6669              
6670             use Carp;
6671              
6672             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookNamedEntry);
6673             our @EXPORT = qw();
6674             our @EXPORT_OK = qw();
6675              
6676             =head1 DESCRIPTION of View class
6677              
6678             Rinchi::Outlook::View is used for representing View objects.
6679              
6680             =head1 METHODS for View objects
6681              
6682             =cut
6683              
6684             #===============================================================================
6685              
6686             {
6687             no strict "refs";
6688             *TAG_NAME = sub { return 'view'; };
6689             }
6690              
6691             #===============================================================================
6692             # Rinchi::Outlook::View::Language
6693              
6694             =head2 $value = $Object->Language([$new_value]);
6695              
6696             Set or get value of the Language attribute.
6697              
6698            
6699             Type: String
6700             Lower: 0
6701             Upper: 1
6702              
6703             =cut
6704              
6705             sub Language() {
6706             my $self = shift;
6707             if (@_) {
6708             $self->setAttribute('Language', shift);
6709             }
6710             return $self->getAttribute('Language');
6711             }
6712              
6713             #===============================================================================
6714             # Rinchi::Outlook::View::LockUserChanges
6715              
6716             =head2 $value = $Object->LockUserChanges([$new_value]);
6717              
6718             Set or get value of the LockUserChanges attribute.
6719              
6720            
6721             Type: Boolean
6722             Lower: 0
6723             Upper: 1
6724              
6725             =cut
6726              
6727             sub LockUserChanges() {
6728             my $self = shift;
6729             if (@_) {
6730             if ($_[0] =~ /^(true|false)$/i ) {
6731             $self->setAttribute('LockUserChanges', lc shift);
6732             } else {
6733             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'LockUserChanges\'';
6734             }
6735             }
6736             return $self->getAttribute('LockUserChanges');
6737             }
6738              
6739             #===============================================================================
6740             # Rinchi::Outlook::View::SaveOption
6741              
6742             =head2 $value = $Object->SaveOption([$new_value]);
6743              
6744             Set or get value of the SaveOption attribute.
6745              
6746            
6747             Type: OlViewSaveOption
6748             Lower: 0
6749             Upper: 1
6750              
6751             =cut
6752              
6753             sub SaveOption() {
6754             my $self = shift;
6755             if (@_) {
6756             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
6757             $self->setAttribute('SaveOption', shift);
6758             } else {
6759             if(ref($_[0])) {
6760             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlViewSaveOption\' for attribute \'SaveOption\'';
6761             } else {
6762             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlViewSaveOption\' for attribute \'SaveOption\'';
6763             }
6764             }
6765             }
6766             return $self->getAttribute('SaveOption');
6767             }
6768              
6769             #===============================================================================
6770             # Rinchi::Outlook::View::Standard
6771              
6772             =head2 $value = $Object->Standard([$new_value]);
6773              
6774             Set or get value of the Standard attribute.
6775              
6776            
6777             Type: Boolean
6778             Lower: 0
6779             Upper: 1
6780              
6781             =cut
6782              
6783             sub Standard() {
6784             my $self = shift;
6785             if (@_) {
6786             if ($_[0] =~ /^(true|false)$/i ) {
6787             $self->setAttribute('Standard', lc shift);
6788             } else {
6789             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Standard\'';
6790             }
6791             }
6792             return $self->getAttribute('Standard');
6793             }
6794              
6795             #===============================================================================
6796             # Rinchi::Outlook::View::ViewType
6797              
6798             =head2 $value = $Object->ViewType([$new_value]);
6799              
6800             Set or get value of the ViewType attribute.
6801              
6802            
6803             Type: OlViewType
6804             Lower: 0
6805             Upper: 1
6806              
6807             =cut
6808              
6809             sub ViewType() {
6810             my $self = shift;
6811             if (@_) {
6812             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
6813             $self->setAttribute('ViewType', shift);
6814             } else {
6815             if(ref($_[0])) {
6816             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlViewType\' for attribute \'ViewType\'';
6817             } else {
6818             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlViewType\' for attribute \'ViewType\'';
6819             }
6820             }
6821             }
6822             return $self->getAttribute('ViewType');
6823             }
6824              
6825             #===============================================================================
6826             # Rinchi::Outlook::View::XML
6827              
6828             =head2 $value = $Object->XML([$new_value]);
6829              
6830             Set or get value of the XML attribute.
6831              
6832            
6833             Type: String
6834             Lower: 0
6835             Upper: 1
6836              
6837             =cut
6838              
6839             sub XML() {
6840             my $self = shift;
6841             if (@_) {
6842             $self->setAttribute('XML', shift);
6843             }
6844             return $self->getAttribute('XML');
6845             }
6846              
6847             ##END_PACKAGE View
6848              
6849             #===============================================================================
6850             # Generated by Hymnos Perl Code Generator
6851             # UML Model UUID: 2d9adb24-3cc5-11dd-9836-00502c05c241
6852              
6853             package Rinchi::Outlook::OutlookNamedEntry;
6854              
6855             use Carp;
6856              
6857             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookEntry);
6858             our @EXPORT = qw();
6859             our @EXPORT_OK = qw();
6860              
6861             =head1 DESCRIPTION of OutlookNamedEntry class
6862              
6863             Rinchi::Outlook::OutlookNamedEntry is an abstract class representing
6864             OutlookNamedEntry objects.
6865              
6866             =head1 METHODS for OutlookNamedEntry objects.
6867              
6868             =cut
6869              
6870             #===============================================================================
6871              
6872             {
6873             no strict "refs";
6874             *TAG_NAME = sub { return 'outlook-named-entry'; };
6875             }
6876              
6877             #===============================================================================
6878             # Rinchi::Outlook::OutlookNamedEntry::Name
6879              
6880             =head2 $value = $Object->Name([$new_value]);
6881              
6882             Set or get value of the Name attribute.
6883              
6884             Type: String
6885             Lower: 0
6886             Upper: 1
6887              
6888             =cut
6889              
6890             sub Name() {
6891             my $self = shift;
6892             if (@_) {
6893             $self->setAttribute('Name', shift);
6894             }
6895             return $self->getAttribute('Name');
6896             }
6897              
6898             ##END_PACKAGE OutlookNamedEntry
6899              
6900             #===============================================================================
6901             # Generated by Hymnos Perl Code Generator
6902             # UML Model UUID: b965e11e-3ce2-11dd-9836-00502c05c241
6903              
6904             package Rinchi::Outlook::OutlookEntry;
6905              
6906             use Carp;
6907              
6908             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
6909             our @EXPORT = qw();
6910             our @EXPORT_OK = qw();
6911              
6912             =head1 DESCRIPTION of OutlookEntry class
6913              
6914             Rinchi::Outlook::OutlookEntry is an abstract class for representing OutlookEntry objects.
6915              
6916             =head1 METHODS for OutlookEntry objects
6917              
6918             =cut
6919              
6920             #===============================================================================
6921              
6922             {
6923             no strict "refs";
6924             *TAG_NAME = sub { return 'outlook-entry'; };
6925             }
6926              
6927             #===============================================================================
6928             # Rinchi::Outlook::OutlookEntry::Application
6929              
6930             =head2 $value = $Object->Application([$new_value]);
6931              
6932             Set or get value of the Application attribute.
6933              
6934             Type: Application
6935             Lower: 0
6936             Upper: 1
6937              
6938             =cut
6939              
6940             sub Application() {
6941             my $self = shift;
6942             if (@_) {
6943             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
6944             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
6945             $self->attribute_as_element('Application', shift);
6946             } else {
6947             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
6948             }
6949             }
6950             return $self->attribute_as_element('Application');
6951             }
6952              
6953             #===============================================================================
6954             # Rinchi::Outlook::OutlookEntry::Class
6955              
6956             =head2 $value = $Object->Class([$new_value]);
6957              
6958             Set or get value of the Class attribute.
6959              
6960            
6961             Type: OlObjectClass
6962             Lower: 0
6963             Upper: 1
6964              
6965             =cut
6966              
6967             sub Class() {
6968             my $self = shift;
6969             if (@_) {
6970             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
6971             $self->setAttribute('Class', shift);
6972             } else {
6973             if(ref($_[0])) {
6974             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
6975             } else {
6976             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
6977             }
6978             }
6979             }
6980             return $self->getAttribute('Class');
6981             }
6982              
6983             #===============================================================================
6984             # Rinchi::Outlook::OutlookEntry::Parent
6985              
6986             =head2 $value = $Object->Parent([$new_value]);
6987              
6988             Set or get value of the Parent attribute.
6989              
6990            
6991             Type: Object
6992             Lower: 0
6993             Upper: 1
6994              
6995             =cut
6996              
6997             sub Parent() {
6998             my $self = shift;
6999             if (@_) {
7000             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
7001             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
7002             $self->attribute_as_element('Parent', shift);
7003             } else {
7004             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
7005             }
7006             }
7007             return $self->attribute_as_element('Parent');
7008             }
7009              
7010             #===============================================================================
7011             # Rinchi::Outlook::OutlookEntry::Session
7012              
7013             =head2 $value = $Object->Session([$new_value]);
7014              
7015             Set or get value of the Session attribute.
7016              
7017            
7018             Type: NameSpace
7019             Lower: 0
7020             Upper: 1
7021              
7022             =cut
7023              
7024             sub Session() {
7025             my $self = shift;
7026             if (@_) {
7027             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
7028             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
7029             $self->attribute_as_element('Session', shift);
7030             } else {
7031             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
7032             }
7033             }
7034             return $self->attribute_as_element('Session');
7035             }
7036              
7037             ##END_PACKAGE OutlookEntry
7038              
7039             #===============================================================================
7040             # Generated by Hymnos Perl Code Generator
7041             # UML Model UUID: 17e7d2fd-3cc7-11dd-9836-00502c05c241
7042              
7043             package Rinchi::Outlook::OutlookCollection;
7044              
7045             use Carp;
7046              
7047             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
7048             our @EXPORT = qw();
7049             our @EXPORT_OK = qw();
7050              
7051             =head1 DESCRIPTION of OutlookCollection
7052              
7053             Rinchi::Outlook::OutlookCollection is used for representing OutlookCollection objects.
7054              
7055             =head1 METHODS for OutlookCollection objects
7056              
7057             =cut
7058              
7059             #===============================================================================
7060              
7061             {
7062             no strict "refs";
7063             *TAG_NAME = sub { return 'outlook-collection'; };
7064             }
7065              
7066             #===============================================================================
7067             # Rinchi::Outlook::OutlookCollection::Application
7068              
7069             =head2 $value = $Object->Application([$new_value]);
7070              
7071             Set or get value of the Application attribute.
7072              
7073             Type: Application
7074             Lower: 0
7075             Upper: 1
7076              
7077             =cut
7078              
7079             sub Application() {
7080             my $self = shift;
7081             if (@_) {
7082             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
7083             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
7084             $self->attribute_as_element('Application', shift);
7085             } else {
7086             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
7087             }
7088             }
7089             return $self->attribute_as_element('Application');
7090             }
7091              
7092             #===============================================================================
7093             # Rinchi::Outlook::OutlookCollection::Class
7094              
7095             =head2 $value = $Object->Class([$new_value]);
7096              
7097             Set or get value of the Class attribute.
7098              
7099             Type: OlObjectClass
7100             Lower: 0
7101             Upper: 1
7102              
7103             =cut
7104              
7105             sub Class() {
7106             my $self = shift;
7107             if (@_) {
7108             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
7109             $self->setAttribute('Class', shift);
7110             } else {
7111             if(ref($_[0])) {
7112             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
7113             } else {
7114             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
7115             }
7116             }
7117             }
7118             return $self->getAttribute('Class');
7119             }
7120              
7121             #===============================================================================
7122             # Rinchi::Outlook::OutlookCollection::Count
7123              
7124             =head2 $value = $Object->Count([$new_value]);
7125              
7126             Set or get value of the Count attribute.
7127              
7128             Type: Long
7129             Lower: 0
7130             Upper: 1
7131              
7132             =cut
7133              
7134             sub Count() {
7135             my $self = shift;
7136             if (@_) {
7137             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
7138             $self->setAttribute('Count', shift);
7139             } else {
7140             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Count\'';
7141             }
7142             }
7143             return $self->getAttribute('Count');
7144             }
7145              
7146             #===============================================================================
7147             # Rinchi::Outlook::OutlookCollection::Parent
7148              
7149             =head2 $value = $Object->Parent([$new_value]);
7150              
7151             Set or get value of the Parent attribute.
7152              
7153             Type: Object
7154             Lower: 0
7155             Upper: 1
7156              
7157             =cut
7158              
7159             sub Parent() {
7160             my $self = shift;
7161             if (@_) {
7162             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
7163             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
7164             $self->attribute_as_element('Parent', shift);
7165             } else {
7166             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
7167             }
7168             }
7169             return $self->attribute_as_element('Parent');
7170             }
7171              
7172             #===============================================================================
7173             # Rinchi::Outlook::OutlookCollection::Session
7174              
7175             =head2 $value = $Object->Session([$new_value]);
7176              
7177             Set or get value of the Session attribute.
7178              
7179             Type: NameSpace
7180             Lower: 0
7181             Upper: 1
7182              
7183             =cut
7184              
7185             sub Session() {
7186             my $self = shift;
7187             if (@_) {
7188             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
7189             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
7190             $self->attribute_as_element('Session', shift);
7191             } else {
7192             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
7193             }
7194             }
7195             return $self->attribute_as_element('Session');
7196             }
7197              
7198             ##END_PACKAGE OutlookCollection
7199              
7200             #===============================================================================
7201             # Generated by Hymnos Perl Code Generator
7202             # UML Model UUID: d5dcb782-3c43-11dd-bd77-001c25551abc
7203              
7204             package Rinchi::Outlook::Items;
7205              
7206             use Carp;
7207              
7208             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7209             our @EXPORT = qw();
7210             our @EXPORT_OK = qw();
7211              
7212             =head1 DESCRIPTION of Items class
7213              
7214             Rinchi::Outlook::Items is used for representing Items objects.
7215              
7216             =head1 METHODS for Items objects
7217              
7218             =cut
7219              
7220             #===============================================================================
7221              
7222             {
7223             no strict "refs";
7224             *TAG_NAME = sub { return 'items'; };
7225             }
7226              
7227             #===============================================================================
7228             # Rinchi::Outlook::Items::IncludeRecurrences
7229              
7230             =head2 $value = $Object->IncludeRecurrences([$new_value]);
7231              
7232             Set or get value of the IncludeRecurrences attribute.
7233            
7234             Type: Boolean
7235             Lower: 0
7236             Upper: 1
7237              
7238             =cut
7239              
7240             sub IncludeRecurrences() {
7241             my $self = shift;
7242             if (@_) {
7243             if ($_[0] =~ /^(true|false)$/i ) {
7244             $self->setAttribute('IncludeRecurrences', lc shift);
7245             } else {
7246             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IncludeRecurrences\'';
7247             }
7248             }
7249             return $self->getAttribute('IncludeRecurrences');
7250             }
7251              
7252             #===============================================================================
7253             # Rinchi::Outlook::Items::RawTable
7254              
7255             =head2 $value = $Object->RawTable([$new_value]);
7256              
7257             Set or get value of the RawTable attribute.
7258            
7259             Type: Unknown
7260             Lower: 0
7261             Upper: 1
7262              
7263             =cut
7264              
7265             sub RawTable() {
7266             my $self = shift;
7267             if (@_) {
7268             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
7269             if ('Rinchi::Outlook::Unknown' =~ /$regexp/ ) {
7270             $self->attribute_as_element('RawTable', shift);
7271             } else {
7272             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Unknown\' for attribute \'RawTable\'';
7273             }
7274             }
7275             return $self->attribute_as_element('RawTable');
7276             }
7277              
7278             ##END_PACKAGE Items
7279              
7280             #===============================================================================
7281             # Generated by Hymnos Perl Code Generator
7282             # UML Model UUID: d5dd05de-3c43-11dd-a072-001c25551abc
7283              
7284             package Rinchi::Outlook::Links;
7285              
7286             use Carp;
7287              
7288             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7289             our @EXPORT = qw();
7290             our @EXPORT_OK = qw();
7291              
7292             =head1 DESCRIPTION of Links class
7293              
7294             Rinchi::Outlook::Links is used for representing Links objects.
7295              
7296             =head1 METHODS for Links objects
7297              
7298             =cut
7299              
7300             #===============================================================================
7301              
7302             {
7303             no strict "refs";
7304             *TAG_NAME = sub { return 'links'; };
7305             }
7306              
7307             #===============================================================================
7308             # Rinchi::Outlook::Link::link
7309              
7310             =head2 $arrayref = $Object->link();
7311              
7312             Returns a reference to an array of the contained Link objects.
7313            
7314             Type:
7315              
7316             =cut
7317              
7318             sub link() {
7319             my $self = shift;
7320             return $self->{'_link'};
7321             }
7322              
7323             #===============================================================================
7324             # Rinchi::Outlook::Link::link
7325              
7326             =head2 $value = $Object->push_link([$new_value]);
7327              
7328             Set or get value of the link attribute.
7329              
7330            
7331             Type:
7332              
7333             =cut
7334              
7335             sub push_link() {
7336             my $self = shift;
7337             if (@_) {
7338             $self->{'_link'} = [] unless(exists($self->{'_link'}));
7339             push @{$self->{'_link'}}, shift;
7340             }
7341             return $self->{'_link'};
7342             }
7343              
7344             ##END_PACKAGE Links
7345              
7346             #===============================================================================
7347             # Generated by Hymnos Perl Code Generator
7348             # UML Model UUID: d5db98a2-3c43-11dd-8a37-001c25551abc
7349              
7350             package Rinchi::Outlook::Explorers;
7351              
7352             use Carp;
7353              
7354             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7355             our @EXPORT = qw();
7356             our @EXPORT_OK = qw();
7357              
7358             =head1 DESCRIPTION of Explorers class
7359              
7360             Rinchi::Outlook::Explorers is used for representing Explorers objects.
7361              
7362             =head1 METHODS for Explorers objects
7363              
7364             =cut
7365              
7366             #===============================================================================
7367              
7368             {
7369             no strict "refs";
7370             *TAG_NAME = sub { return 'explorers'; };
7371             }
7372              
7373             #===============================================================================
7374             # Rinchi::Outlook::Explorer::Explorer
7375              
7376             =head2 $arrayref = $Object->Explorer();
7377              
7378             Returns a reference to an array of the contained Explorer objects.
7379             Get values of the Explorer property.
7380              
7381            
7382             Type:
7383              
7384             =cut
7385              
7386             sub Explorer() {
7387             my $self = shift;
7388             return $self->{'_Explorer'};
7389             }
7390              
7391             #===============================================================================
7392             # Rinchi::Outlook::Explorer::Explorer
7393              
7394             =head2 $value = $Object->push_Explorer([$new_value]);
7395              
7396             Set or get value of the Explorer attribute.
7397            
7398             Type:
7399              
7400             =cut
7401              
7402             sub push_Explorer() {
7403             my $self = shift;
7404             if (@_) {
7405             $self->{'_Explorer'} = [] unless(exists($self->{'_Explorer'}));
7406             push @{$self->{'_Explorer'}}, shift;
7407             }
7408             return $self->{'_Explorer'};
7409             }
7410              
7411             ##END_PACKAGE Explorers
7412              
7413             #===============================================================================
7414             # Generated by Hymnos Perl Code Generator
7415             # UML Model UUID: d5d98b8e-3c43-11dd-b3ae-001c25551abc
7416              
7417             package Rinchi::Outlook::AddressEntries;
7418              
7419             use Carp;
7420              
7421             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7422             our @EXPORT = qw();
7423             our @EXPORT_OK = qw();
7424              
7425             =head1 DESCRIPTION of AddressEntries
7426              
7427             Rinchi::Outlook::AddressEntries is used for representing AddressEntries objects.
7428              
7429             =head1 METHODS for AddressEntries objects
7430              
7431             =cut
7432              
7433             #===============================================================================
7434              
7435             {
7436             no strict "refs";
7437             *TAG_NAME = sub { return 'address-entries'; };
7438             }
7439              
7440             #===============================================================================
7441             # Rinchi::Outlook::AddressEntries::RawTable
7442              
7443             =head2 $value = $Object->RawTable([$new_value]);
7444              
7445             Set or get value of the RawTable attribute.
7446              
7447            
7448             Type: Unknown
7449             Lower: 0
7450             Upper: 1
7451              
7452             =cut
7453              
7454             sub RawTable() {
7455             my $self = shift;
7456             if (@_) {
7457             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
7458             if ('Rinchi::Outlook::Unknown' =~ /$regexp/ ) {
7459             $self->attribute_as_element('RawTable', shift);
7460             } else {
7461             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Unknown\' for attribute \'RawTable\'';
7462             }
7463             }
7464             return $self->attribute_as_element('RawTable');
7465             }
7466              
7467             #===============================================================================
7468             # Rinchi::Outlook::AddressEntry::addressEntry
7469              
7470             =head2 $arrayref = $Object->addressEntry();
7471              
7472             Returns a reference to an array of the contained AddressEntry objects.
7473             Get values of the addressEntry property.
7474              
7475            
7476             Type:
7477              
7478             =cut
7479              
7480             sub addressEntry() {
7481             my $self = shift;
7482             return $self->{'_addressEntry'};
7483             }
7484              
7485             #===============================================================================
7486             # Rinchi::Outlook::AddressEntry::addressEntry
7487              
7488             =head2 $value = $Object->push_addressEntry([$new_value]);
7489              
7490             Set or get value of the addressEntry attribute.
7491              
7492            
7493             Type:
7494              
7495             =cut
7496              
7497             sub push_addressEntry() {
7498             my $self = shift;
7499             if (@_) {
7500             $self->{'_addressEntry'} = [] unless(exists($self->{'_addressEntry'}));
7501             push @{$self->{'_addressEntry'}}, shift;
7502             }
7503             return $self->{'_addressEntry'};
7504             }
7505              
7506             ##END_PACKAGE AddressEntries
7507              
7508             #===============================================================================
7509             # Generated by Hymnos Perl Code Generator
7510             # UML Model UUID: d5d9bbfe-3c43-11dd-b12c-001c25551abc
7511              
7512             package Rinchi::Outlook::AddressLists;
7513              
7514             use Carp;
7515              
7516             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7517             our @EXPORT = qw();
7518             our @EXPORT_OK = qw();
7519              
7520             =head1 DESCRIPTION of AddressLists class
7521              
7522             Rinchi::Outlook::AddressLists is used for representing AddressLists objects.
7523              
7524             =head1 METHODS for AddressLists objects
7525              
7526             =cut
7527              
7528             #===============================================================================
7529              
7530             {
7531             no strict "refs";
7532             *TAG_NAME = sub { return 'address-lists'; };
7533             }
7534              
7535             #===============================================================================
7536             # Rinchi::Outlook::AddressList::addressList
7537              
7538             =head2 $arrayref = $Object->addressList();
7539              
7540             Returns a reference to an array of the contained AddressList objects.
7541             Get values of the addressList property.
7542              
7543            
7544             Type:
7545              
7546             =cut
7547              
7548             sub addressList() {
7549             my $self = shift;
7550             return $self->{'_addressList'};
7551             }
7552              
7553             #===============================================================================
7554             # Rinchi::Outlook::AddressList::addressList
7555              
7556             =head2 $value = $Object->push_addressList([$new_value]);
7557              
7558             Set or get value of the addressList attribute.
7559              
7560            
7561             Type:
7562              
7563             =cut
7564              
7565             sub push_addressList() {
7566             my $self = shift;
7567             if (@_) {
7568             $self->{'_addressList'} = [] unless(exists($self->{'_addressList'}));
7569             push @{$self->{'_addressList'}}, shift;
7570             }
7571             return $self->{'_addressList'};
7572             }
7573              
7574             ##END_PACKAGE AddressLists
7575              
7576             #===============================================================================
7577             # Generated by Hymnos Perl Code Generator
7578             # UML Model UUID: d5d97afe-3c43-11dd-96cc-001c25551abc
7579              
7580             package Rinchi::Outlook::Actions;
7581              
7582             use Carp;
7583              
7584             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7585             our @EXPORT = qw();
7586             our @EXPORT_OK = qw();
7587              
7588             =head1 DESCRIPTION of Actions
7589              
7590             Rinchi::Outlook::Actions is used for representing Actions objects.
7591              
7592             =head1 METHODS for Actions objects
7593              
7594             =cut
7595              
7596             #===============================================================================
7597              
7598             {
7599             no strict "refs";
7600             *TAG_NAME = sub { return 'actions'; };
7601             }
7602              
7603             #===============================================================================
7604             # Rinchi::Outlook::Action::action
7605              
7606             =head2 $arrayref = $Object->action();
7607              
7608             Returns a reference to an array of the contained Action objects.
7609             Get values of the action property.
7610              
7611            
7612             Type:
7613              
7614             =cut
7615              
7616             sub action() {
7617             my $self = shift;
7618             return $self->{'_action'};
7619             }
7620              
7621             #===============================================================================
7622             # Rinchi::Outlook::Action::action
7623              
7624             =head2 $value = $Object->push_action([$new_value]);
7625              
7626             Set or get value of the action attribute.
7627              
7628            
7629             Type:
7630              
7631             =cut
7632              
7633             sub push_action() {
7634             my $self = shift;
7635             if (@_) {
7636             $self->{'_action'} = [] unless(exists($self->{'_action'}));
7637             push @{$self->{'_action'}}, shift;
7638             }
7639             return $self->{'_action'};
7640             }
7641              
7642             ##END_PACKAGE Actions
7643              
7644             #===============================================================================
7645             # Generated by Hymnos Perl Code Generator
7646             # UML Model UUID: d5da4d62-3c43-11dd-b486-001c25551abc
7647              
7648             package Rinchi::Outlook::Attachments;
7649              
7650             use Carp;
7651              
7652             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7653             our @EXPORT = qw();
7654             our @EXPORT_OK = qw();
7655              
7656             =head1 DESCRIPTION of Attachments
7657              
7658             Rinchi::Outlook::Attachments is used for representing Attachments objects.
7659              
7660             =head1 METHODS for Attachments objects
7661              
7662             =cut
7663              
7664             #===============================================================================
7665              
7666             {
7667             no strict "refs";
7668             *TAG_NAME = sub { return 'attachments'; };
7669             }
7670              
7671             #===============================================================================
7672             # Rinchi::Outlook::Attachment::attachment
7673              
7674             =head2 $arrayref = $Object->attachment();
7675              
7676             Returns a reference to an array of the contained Attachment objects.
7677             Get values of the attachment property.
7678              
7679            
7680             Type:
7681              
7682             =cut
7683              
7684             sub attachment() {
7685             my $self = shift;
7686             return $self->{'_attachment'};
7687             }
7688              
7689             #===============================================================================
7690             # Rinchi::Outlook::Attachment::attachment
7691              
7692             =head2 $value = $Object->push_attachment([$new_value]);
7693              
7694             Set or get value of the attachment attribute.
7695              
7696            
7697             Type:
7698              
7699             =cut
7700              
7701             sub push_attachment() {
7702             my $self = shift;
7703             if (@_) {
7704             $self->{'_attachment'} = [] unless(exists($self->{'_attachment'}));
7705             push @{$self->{'_attachment'}}, shift;
7706             }
7707             return $self->{'_attachment'};
7708             }
7709              
7710             ##END_PACKAGE Attachments
7711              
7712             #===============================================================================
7713             # Generated by Hymnos Perl Code Generator
7714             # UML Model UUID: d5da6d2e-3c43-11dd-8db8-001c25551abc
7715              
7716             package Rinchi::Outlook::Conflicts;
7717              
7718             use Carp;
7719              
7720             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7721             our @EXPORT = qw();
7722             our @EXPORT_OK = qw();
7723              
7724             =head1 DESCRIPTION of Conflicts class
7725              
7726             Rinchi::Outlook::Conflicts is used for representing Conflicts objects.
7727              
7728             =head1 METHODS for Conflicts objects
7729              
7730             =cut
7731              
7732             #===============================================================================
7733              
7734             {
7735             no strict "refs";
7736             *TAG_NAME = sub { return 'conflicts'; };
7737             }
7738              
7739             #===============================================================================
7740             # Rinchi::Outlook::Conflict::Conflict
7741              
7742             =head2 $arrayref = $Object->Conflict();
7743              
7744             Returns a reference to an array of the contained Conflict objects.
7745             Get values of the Conflict property.
7746              
7747            
7748             Type:
7749              
7750             =cut
7751              
7752             sub Conflict() {
7753             my $self = shift;
7754             return $self->{'_Conflict'};
7755             }
7756              
7757             #===============================================================================
7758             # Rinchi::Outlook::Conflict::Conflict
7759              
7760             =head2 $value = $Object->push_Conflict([$new_value]);
7761              
7762             Set or get value of the Conflict attribute.
7763              
7764            
7765             Type:
7766              
7767             =cut
7768              
7769             sub push_Conflict() {
7770             my $self = shift;
7771             if (@_) {
7772             $self->{'_Conflict'} = [] unless(exists($self->{'_Conflict'}));
7773             push @{$self->{'_Conflict'}}, shift;
7774             }
7775             return $self->{'_Conflict'};
7776             }
7777              
7778             ##END_PACKAGE Conflicts
7779              
7780             #===============================================================================
7781             # Generated by Hymnos Perl Code Generator
7782             # UML Model UUID: d5db3952-3c43-11dd-b07c-001c25551abc
7783              
7784             package Rinchi::Outlook::Exceptions;
7785              
7786             use Carp;
7787              
7788             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7789             our @EXPORT = qw();
7790             our @EXPORT_OK = qw();
7791              
7792             =head1 DESCRIPTION of Exceptions class
7793              
7794             Rinchi::Outlook::Exceptions is used for representing Exceptions objects.
7795              
7796             =head1 METHODS for Exceptions objects
7797              
7798             =cut
7799              
7800             #===============================================================================
7801              
7802             {
7803             no strict "refs";
7804             *TAG_NAME = sub { return 'exceptions'; };
7805             }
7806              
7807             #===============================================================================
7808             # Rinchi::Outlook::Exception::Exception
7809              
7810             =head2 $arrayref = $Object->Exception();
7811              
7812             Returns a reference to an array of the contained Exception objects.
7813             Get values of the Exception property.
7814              
7815            
7816             Type:
7817              
7818             =cut
7819              
7820             sub Exception() {
7821             my $self = shift;
7822             return $self->{'_Exception'};
7823             }
7824              
7825             #===============================================================================
7826             # Rinchi::Outlook::Exception::Exception
7827              
7828             =head2 $value = $Object->push_Exception([$new_value]);
7829              
7830             Set or get value of the Exception attribute.
7831              
7832            
7833             Type:
7834              
7835             =cut
7836              
7837             sub push_Exception() {
7838             my $self = shift;
7839             if (@_) {
7840             $self->{'_Exception'} = [] unless(exists($self->{'_Exception'}));
7841             push @{$self->{'_Exception'}}, shift;
7842             }
7843             return $self->{'_Exception'};
7844             }
7845              
7846             ##END_PACKAGE Exceptions
7847              
7848             #===============================================================================
7849             # Generated by Hymnos Perl Code Generator
7850             # UML Model UUID: d5dc4838-3c43-11dd-8fbc-001c25551abc
7851              
7852             package Rinchi::Outlook::Inspectors;
7853              
7854             use Carp;
7855              
7856             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7857             our @EXPORT = qw();
7858             our @EXPORT_OK = qw();
7859              
7860             =head1 DESCRIPTION of Inspectors class
7861              
7862             Rinchi::Outlook::Inspectors is used for representing Inspectors objects.
7863              
7864             =head1 METHODS for Inspectors objects
7865              
7866             =cut
7867              
7868             #===============================================================================
7869              
7870             {
7871             no strict "refs";
7872             *TAG_NAME = sub { return 'inspectors'; };
7873             }
7874              
7875             #===============================================================================
7876             # Rinchi::Outlook::Inspector::inspector
7877              
7878             =head2 $arrayref = $Object->inspector();
7879              
7880             Returns a reference to an array of the contained Inspector objects.
7881             Get values of the inspector property.
7882              
7883            
7884             Type:
7885              
7886             =cut
7887              
7888             sub inspector() {
7889             my $self = shift;
7890             return $self->{'_inspector'};
7891             }
7892              
7893             #===============================================================================
7894             # Rinchi::Outlook::Inspector::inspector
7895              
7896             =head2 $value = $Object->push_inspector([$new_value]);
7897              
7898             Set or get value of the inspector attribute.
7899              
7900            
7901             Type:
7902              
7903             =cut
7904              
7905             sub push_inspector() {
7906             my $self = shift;
7907             if (@_) {
7908             $self->{'_inspector'} = [] unless(exists($self->{'_inspector'}));
7909             push @{$self->{'_inspector'}}, shift;
7910             }
7911             return $self->{'_inspector'};
7912             }
7913              
7914             ##END_PACKAGE Inspectors
7915              
7916             #===============================================================================
7917             # Generated by Hymnos Perl Code Generator
7918             # UML Model UUID: d5dc878a-3c43-11dd-908f-001c25551abc
7919              
7920             package Rinchi::Outlook::ItemProperties;
7921              
7922             use Carp;
7923              
7924             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7925             our @EXPORT = qw();
7926             our @EXPORT_OK = qw();
7927              
7928             =head1 DESCRIPTION of ItemProperties class
7929              
7930             Rinchi::Outlook::ItemProperties is used for representing ItemProperties objects.
7931              
7932             =head1 METHODS for ItemProperties objects
7933              
7934             =cut
7935              
7936             #===============================================================================
7937              
7938             {
7939             no strict "refs";
7940             *TAG_NAME = sub { return 'item-properties'; };
7941             }
7942              
7943             #===============================================================================
7944             # Rinchi::Outlook::ItemProperty::itemProperty
7945              
7946             =head2 $arrayref = $Object->itemProperty();
7947              
7948             Returns a reference to an array of the contained ItemProperty objects.
7949             Get values of the itemProperty property.
7950              
7951            
7952             Type:
7953              
7954             =cut
7955              
7956             sub itemProperty() {
7957             my $self = shift;
7958             return $self->{'_itemProperty'};
7959             }
7960              
7961             #===============================================================================
7962             # Rinchi::Outlook::ItemProperty::itemProperty
7963              
7964             =head2 $value = $Object->push_itemProperty([$new_value]);
7965              
7966             Set or get value of the itemProperty attribute.
7967              
7968            
7969             Type:
7970              
7971             =cut
7972              
7973             sub push_itemProperty() {
7974             my $self = shift;
7975             if (@_) {
7976             $self->{'_itemProperty'} = [] unless(exists($self->{'_itemProperty'}));
7977             push @{$self->{'_itemProperty'}}, shift;
7978             }
7979             return $self->{'_itemProperty'};
7980             }
7981              
7982             ##END_PACKAGE ItemProperties
7983              
7984             #===============================================================================
7985             # Generated by Hymnos Perl Code Generator
7986             # UML Model UUID: d5ddd298-3c43-11dd-aa3f-001c25551abc
7987              
7988             package Rinchi::Outlook::OutlookBarGroups;
7989              
7990             use Carp;
7991              
7992             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
7993             our @EXPORT = qw();
7994             our @EXPORT_OK = qw();
7995              
7996             =head1 DESCRIPTION of OutlookBarGroups
7997              
7998             Rinchi::Outlook::OutlookBarGroups is used for representing OutlookBarGroups objects.
7999              
8000             =head1 METHODS for OutlookBarGroups objects
8001              
8002             =cut
8003              
8004             #===============================================================================
8005              
8006             {
8007             no strict "refs";
8008             *TAG_NAME = sub { return 'outlook-bar-groups'; };
8009             }
8010              
8011             #===============================================================================
8012             # Rinchi::Outlook::OutlookBarGroup::outlookBarGroup
8013              
8014             =head2 $arrayref = $Object->outlookBarGroup();
8015              
8016             Returns a reference to an array of the contained OutlookBarGroup objects.
8017             Get values of the outlookBarGroup property.
8018              
8019            
8020             Type:
8021              
8022             =cut
8023              
8024             sub outlookBarGroup() {
8025             my $self = shift;
8026             return $self->{'_outlookBarGroup'};
8027             }
8028              
8029             #===============================================================================
8030             # Rinchi::Outlook::OutlookBarGroup::outlookBarGroup
8031              
8032             =head2 $value = $Object->push_outlookBarGroup([$new_value]);
8033              
8034             Set or get value of the outlookBarGroup attribute.
8035              
8036            
8037             Type:
8038              
8039             =cut
8040              
8041             sub push_outlookBarGroup() {
8042             my $self = shift;
8043             if (@_) {
8044             $self->{'_outlookBarGroup'} = [] unless(exists($self->{'_outlookBarGroup'}));
8045             push @{$self->{'_outlookBarGroup'}}, shift;
8046             }
8047             return $self->{'_outlookBarGroup'};
8048             }
8049              
8050             ##END_PACKAGE OutlookBarGroups
8051              
8052             #===============================================================================
8053             # Generated by Hymnos Perl Code Generator
8054             # UML Model UUID: d5de41ba-3c43-11dd-b3d8-001c25551abc
8055              
8056             package Rinchi::Outlook::OutlookBarShortcuts;
8057              
8058             use Carp;
8059              
8060             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8061             our @EXPORT = qw();
8062             our @EXPORT_OK = qw();
8063              
8064             =head1 DESCRIPTION of OutlookBarShortcuts class
8065              
8066             Rinchi::Outlook::OutlookBarShortcuts is used for representing OutlookBarShortcuts objects.
8067              
8068             =head1 METHODS for OutlookBarShortcuts objects
8069              
8070             =cut
8071              
8072             #===============================================================================
8073              
8074             {
8075             no strict "refs";
8076             *TAG_NAME = sub { return 'outlook-bar-shortcuts'; };
8077             }
8078              
8079             #===============================================================================
8080             # Rinchi::Outlook::OutlookBarShortcut::outlookBarShortcut
8081              
8082             =head2 $arrayref = $Object->outlookBarShortcut();
8083              
8084             Returns a reference to an array of the contained OutlookBarShortcut objects.
8085             Get values of the outlookBarShortcut property.
8086              
8087            
8088             Type:
8089              
8090             =cut
8091              
8092             sub outlookBarShortcut() {
8093             my $self = shift;
8094             return $self->{'_outlookBarShortcut'};
8095             }
8096              
8097             #===============================================================================
8098             # Rinchi::Outlook::OutlookBarShortcut::outlookBarShortcut
8099              
8100             =head2 $value = $Object->push_outlookBarShortcut([$new_value]);
8101              
8102             Set or get value of the outlookBarShortcut attribute.
8103              
8104            
8105             Type:
8106              
8107             =cut
8108              
8109             sub push_outlookBarShortcut() {
8110             my $self = shift;
8111             if (@_) {
8112             $self->{'_outlookBarShortcut'} = [] unless(exists($self->{'_outlookBarShortcut'}));
8113             push @{$self->{'_outlookBarShortcut'}}, shift;
8114             }
8115             return $self->{'_outlookBarShortcut'};
8116             }
8117              
8118             ##END_PACKAGE OutlookBarShortcuts
8119              
8120             #===============================================================================
8121             # Generated by Hymnos Perl Code Generator
8122             # UML Model UUID: d5de7202-3c43-11dd-aec5-001c25551abc
8123              
8124             package Rinchi::Outlook::Pages;
8125              
8126             use Carp;
8127              
8128             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8129             our @EXPORT = qw();
8130             our @EXPORT_OK = qw();
8131              
8132             =head1 DESCRIPTION of Pages
8133              
8134             Rinchi::Outlook::Pages is used for representing Pages objects.
8135              
8136             =head1 METHODS for
8137              
8138             =cut
8139              
8140             #===============================================================================
8141              
8142             {
8143             no strict "refs";
8144             *TAG_NAME = sub { return 'pages'; };
8145             }
8146              
8147             ##END_PACKAGE Pages
8148              
8149             #===============================================================================
8150             # Generated by Hymnos Perl Code Generator
8151             # UML Model UUID: d5de818e-3c43-11dd-91fe-001c25551abc
8152              
8153             package Rinchi::Outlook::Panes;
8154              
8155             use Carp;
8156              
8157             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8158             our @EXPORT = qw();
8159             our @EXPORT_OK = qw();
8160              
8161             =head1 DESCRIPTION of Panes
8162              
8163             Rinchi::Outlook::Panes is used for representing Panes objects.
8164              
8165             =head1 METHODS for
8166              
8167             =cut
8168              
8169             #===============================================================================
8170              
8171             {
8172             no strict "refs";
8173             *TAG_NAME = sub { return 'panes'; };
8174             }
8175              
8176             ##END_PACKAGE Panes
8177              
8178             #===============================================================================
8179             # Generated by Hymnos Perl Code Generator
8180             # UML Model UUID: d5dec1bc-3c43-11dd-b11b-001c25551abc
8181              
8182             package Rinchi::Outlook::PropertyPages;
8183              
8184             use Carp;
8185              
8186             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8187             our @EXPORT = qw();
8188             our @EXPORT_OK = qw();
8189              
8190             =head1 DESCRIPTION of PropertyPages
8191              
8192             Rinchi::Outlook::PropertyPages is used for representing PropertyPages objects.
8193              
8194             =head1 METHODS for
8195              
8196             cut
8197              
8198             #===============================================================================
8199              
8200             {
8201             no strict "refs";
8202             *TAG_NAME = sub { return 'property-pages'; };
8203             }
8204              
8205             #===============================================================================
8206             # Rinchi::Outlook::PropertyPageSite::propertyPage
8207              
8208             =head2 $arrayref = $Object->propertyPage();
8209              
8210             Returns a reference to an array of the contained PropertyPageSite objects.
8211             Get values of the propertyPage property.
8212              
8213            
8214             Type:
8215              
8216             =cut
8217              
8218             sub propertyPage() {
8219             my $self = shift;
8220             return $self->{'_propertyPage'};
8221             }
8222              
8223             #===============================================================================
8224             # Rinchi::Outlook::PropertyPageSite::propertyPage
8225              
8226             =head2 $value = $Object->push_propertyPage([$new_value]);
8227              
8228             Set or get value of the propertyPage attribute.
8229              
8230            
8231             Type:
8232              
8233             =cut
8234              
8235             sub push_propertyPage() {
8236             my $self = shift;
8237             if (@_) {
8238             $self->{'_propertyPage'} = [] unless(exists($self->{'_propertyPage'}));
8239             push @{$self->{'_propertyPage'}}, shift;
8240             }
8241             return $self->{'_propertyPage'};
8242             }
8243              
8244             ##END_PACKAGE PropertyPages
8245              
8246             #===============================================================================
8247             # Generated by Hymnos Perl Code Generator
8248             # UML Model UUID: d5def222-3c43-11dd-84a4-001c25551abc
8249              
8250             package Rinchi::Outlook::Recipients;
8251              
8252             use Carp;
8253              
8254             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8255             our @EXPORT = qw();
8256             our @EXPORT_OK = qw();
8257              
8258             =head1 DESCRIPTION of Recipients
8259              
8260             Rinchi::Outlook::Recipients is used for representing Recipients objects.
8261              
8262             =head1 METHODS for Recipients objects
8263              
8264             =cut
8265              
8266             #===============================================================================
8267              
8268             {
8269             no strict "refs";
8270             *TAG_NAME = sub { return 'recipients'; };
8271             }
8272              
8273             #===============================================================================
8274             # Rinchi::Outlook::Recipient::recipient
8275              
8276             =head2 $arrayref = $Object->recipient();
8277              
8278             Returns a reference to an array of the contained Recipient objects.
8279             Get values of the recipient property.
8280              
8281            
8282             Type:
8283              
8284             =cut
8285              
8286             sub recipient() {
8287             my $self = shift;
8288             return $self->{'_recipient'};
8289             }
8290              
8291             #===============================================================================
8292             # Rinchi::Outlook::Recipient::recipient
8293              
8294             =head2 $value = $Object->push_recipient([$new_value]);
8295              
8296             Set or get value of the recipient attribute.
8297              
8298            
8299             Type:
8300              
8301             =cut
8302              
8303             sub push_recipient() {
8304             my $self = shift;
8305             if (@_) {
8306             $self->{'_recipient'} = [] unless(exists($self->{'_recipient'}));
8307             push @{$self->{'_recipient'}}, shift;
8308             }
8309             return $self->{'_recipient'};
8310             }
8311              
8312             ##END_PACKAGE Recipients
8313              
8314             #===============================================================================
8315             # Generated by Hymnos Perl Code Generator
8316             # UML Model UUID: d5df5208-3c43-11dd-b760-001c25551abc
8317              
8318             package Rinchi::Outlook::Reminders;
8319              
8320             use Carp;
8321              
8322             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8323             our @EXPORT = qw();
8324             our @EXPORT_OK = qw();
8325              
8326             =head1 DESCRIPTION of Reminders class
8327              
8328             Rinchi::Outlook::Reminders is used for representing Reminders objects.
8329              
8330             =head1 METHODS for Reminders objects
8331              
8332             =cut
8333              
8334             #===============================================================================
8335              
8336             {
8337             no strict "refs";
8338             *TAG_NAME = sub { return 'reminders'; };
8339             }
8340              
8341             #===============================================================================
8342             # Rinchi::Outlook::Reminder::reminder
8343              
8344             =head2 $arrayref = $Object->reminder();
8345              
8346             Returns a reference to an array of the contained Reminder objects.
8347             Get values of the reminder property.
8348              
8349            
8350             Type:
8351              
8352             =cut
8353              
8354             sub reminder() {
8355             my $self = shift;
8356             return $self->{'_reminder'};
8357             }
8358              
8359             #===============================================================================
8360             # Rinchi::Outlook::Reminder::reminder
8361              
8362             =head2 $value = $Object->push_reminder([$new_value]);
8363              
8364             Set or get value of the reminder attribute.
8365              
8366            
8367             Type:
8368              
8369             =cut
8370              
8371             sub push_reminder() {
8372             my $self = shift;
8373             if (@_) {
8374             $self->{'_reminder'} = [] unless(exists($self->{'_reminder'}));
8375             push @{$self->{'_reminder'}}, shift;
8376             }
8377             return $self->{'_reminder'};
8378             }
8379              
8380             ##END_PACKAGE Reminders
8381              
8382             #===============================================================================
8383             # Generated by Hymnos Perl Code Generator
8384             # UML Model UUID: d5dfb22a-3c43-11dd-935c-001c25551abc
8385              
8386             package Rinchi::Outlook::Results;
8387              
8388             use Carp;
8389              
8390             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8391             our @EXPORT = qw();
8392             our @EXPORT_OK = qw();
8393              
8394             =head1 DESCRIPTION of Results class
8395              
8396             Rinchi::Outlook::Results is used for representing Results objects.
8397              
8398             =head1 METHODS for Results objects
8399              
8400             =cut
8401              
8402             #===============================================================================
8403              
8404             {
8405             no strict "refs";
8406             *TAG_NAME = sub { return 'results'; };
8407             }
8408              
8409             #===============================================================================
8410             # Rinchi::Outlook::Results::DefaultItemType
8411              
8412             =head2 $value = $Object->DefaultItemType([$new_value]);
8413              
8414             Set or get value of the DefaultItemType attribute.
8415              
8416            
8417             Type: OlItemType
8418             Lower: 0
8419             Upper: 1
8420              
8421             =cut
8422              
8423             sub DefaultItemType() {
8424             my $self = shift;
8425             if (@_) {
8426             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
8427             $self->setAttribute('DefaultItemType', shift);
8428             } else {
8429             if(ref($_[0])) {
8430             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlItemType\' for attribute \'DefaultItemType\'';
8431             } else {
8432             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlItemType\' for attribute \'DefaultItemType\'';
8433             }
8434             }
8435             }
8436             return $self->getAttribute('DefaultItemType');
8437             }
8438              
8439             #===============================================================================
8440             # Rinchi::Outlook::Results::RawTable
8441              
8442             =head2 $value = $Object->RawTable([$new_value]);
8443              
8444             Set or get value of the RawTable attribute.
8445              
8446            
8447             Type: Unknown
8448             Lower: 0
8449             Upper: 1
8450              
8451             =cut
8452              
8453             sub RawTable() {
8454             my $self = shift;
8455             if (@_) {
8456             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
8457             if ('Rinchi::Outlook::Unknown' =~ /$regexp/ ) {
8458             $self->attribute_as_element('RawTable', shift);
8459             } else {
8460             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Unknown\' for attribute \'RawTable\'';
8461             }
8462             }
8463             return $self->attribute_as_element('RawTable');
8464             }
8465              
8466             ##END_PACKAGE Results
8467              
8468             #===============================================================================
8469             # Generated by Hymnos Perl Code Generator
8470             # UML Model UUID: d5e028cc-3c43-11dd-900a-001c25551abc
8471              
8472             package Rinchi::Outlook::SyncObjects;
8473              
8474             use Carp;
8475              
8476             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8477             our @EXPORT = qw();
8478             our @EXPORT_OK = qw();
8479              
8480             =head1 DESCRIPTION of SyncObjects class
8481              
8482             Rinchi::Outlook::SyncObjects is used for representing SyncObjects objects.
8483              
8484             =head1 METHODS for SyncObjects objects
8485              
8486             =cut
8487              
8488             #===============================================================================
8489              
8490             {
8491             no strict "refs";
8492             *TAG_NAME = sub { return 'sync-objects'; };
8493             }
8494              
8495             #===============================================================================
8496             # Rinchi::Outlook::SyncObjects::AppFolders
8497              
8498             =head2 $value = $Object->AppFolders([$new_value]);
8499              
8500             Set or get value of the AppFolders attribute.
8501              
8502            
8503             Type: SyncObject
8504             Lower: 0
8505             Upper: 1
8506              
8507             =cut
8508              
8509             sub AppFolders() {
8510             my $self = shift;
8511             if (@_) {
8512             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
8513             if ('Rinchi::Outlook::SyncObject' =~ /$regexp/ ) {
8514             $self->attribute_as_element('AppFolders', shift);
8515             } else {
8516             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::SyncObject\' for attribute \'AppFolders\'';
8517             }
8518             }
8519             return $self->attribute_as_element('AppFolders');
8520             }
8521              
8522             #===============================================================================
8523             # Rinchi::Outlook::SyncObject::syncObject
8524              
8525             =head2 $arrayref = $Object->syncObject();
8526              
8527             Returns a reference to an array of the contained SyncObject objects.
8528             Get values of the syncObject property.
8529              
8530            
8531             Type:
8532              
8533             =cut
8534              
8535             sub syncObject() {
8536             my $self = shift;
8537             return $self->{'_syncObject'};
8538             }
8539              
8540             #===============================================================================
8541             # Rinchi::Outlook::SyncObject::syncObject
8542              
8543             =head2 $value = $Object->push_syncObject([$new_value]);
8544              
8545             Set or get value of the syncObject attribute.
8546              
8547            
8548             Type:
8549              
8550             =cut
8551              
8552             sub push_syncObject() {
8553             my $self = shift;
8554             if (@_) {
8555             $self->{'_syncObject'} = [] unless(exists($self->{'_syncObject'}));
8556             push @{$self->{'_syncObject'}}, shift;
8557             }
8558             return $self->{'_syncObject'};
8559             }
8560              
8561             ##END_PACKAGE SyncObjects
8562              
8563             #===============================================================================
8564             # Generated by Hymnos Perl Code Generator
8565             # UML Model UUID: d5e0da92-3c43-11dd-9be6-001c25551abc
8566              
8567             package Rinchi::Outlook::UserProperties;
8568              
8569             use Carp;
8570              
8571             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8572             our @EXPORT = qw();
8573             our @EXPORT_OK = qw();
8574              
8575             =head1 DESCRIPTION of UserProperties class
8576              
8577             Rinchi::Outlook::UserProperties is used for representing UserProperties objects.
8578              
8579             =head1 METHODS for UserProperties objects
8580              
8581             =cut
8582              
8583             #===============================================================================
8584              
8585             {
8586             no strict "refs";
8587             *TAG_NAME = sub { return 'user-properties'; };
8588             }
8589              
8590             #===============================================================================
8591             # Rinchi::Outlook::UserProperty::userProperty
8592              
8593             =head2 $arrayref = $Object->userProperty();
8594              
8595             Returns a reference to an array of the contained UserProperty objects.
8596             Get values of the userProperty property.
8597              
8598            
8599             Type:
8600              
8601             =cut
8602              
8603             sub userProperty() {
8604             my $self = shift;
8605             return $self->{'_userProperty'};
8606             }
8607              
8608             #===============================================================================
8609             # Rinchi::Outlook::UserProperty::userProperty
8610              
8611             =head2 $value = $Object->push_userProperty([$new_value]);
8612              
8613             Set or get value of the userProperty attribute.
8614              
8615            
8616             Type:
8617              
8618             =cut
8619              
8620             sub push_userProperty() {
8621             my $self = shift;
8622             if (@_) {
8623             $self->{'_userProperty'} = [] unless(exists($self->{'_userProperty'}));
8624             push @{$self->{'_userProperty'}}, shift;
8625             }
8626             return $self->{'_userProperty'};
8627             }
8628              
8629             ##END_PACKAGE UserProperties
8630              
8631             #===============================================================================
8632             # Generated by Hymnos Perl Code Generator
8633             # UML Model UUID: d5e11c78-3c43-11dd-ab9d-001c25551abc
8634              
8635             package Rinchi::Outlook::Views;
8636              
8637             use Carp;
8638              
8639             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8640             our @EXPORT = qw();
8641             our @EXPORT_OK = qw();
8642              
8643             =head1 DESCRIPTION of Views
8644              
8645             Rinchi::Outlook::Views is used for representing Views objects.
8646              
8647             =head1 METHODS for Views objects
8648              
8649             =cut
8650              
8651             #===============================================================================
8652              
8653             {
8654             no strict "refs";
8655             *TAG_NAME = sub { return 'views'; };
8656             }
8657              
8658             #===============================================================================
8659             # Rinchi::Outlook::View::view
8660              
8661             =head2 $arrayref = $Object->view();
8662              
8663             Returns a reference to an array of the contained View objects.
8664             Get values of the view property.
8665              
8666            
8667             Type:
8668              
8669             =cut
8670              
8671             sub view() {
8672             my $self = shift;
8673             return $self->{'_view'};
8674             }
8675              
8676             #===============================================================================
8677             # Rinchi::Outlook::View::view
8678              
8679             =head2 $value = $Object->push_view([$new_value]);
8680              
8681             Set or get value of the view attribute.
8682              
8683            
8684             Type:
8685              
8686             =cut
8687              
8688             sub push_view() {
8689             my $self = shift;
8690             if (@_) {
8691             $self->{'_view'} = [] unless(exists($self->{'_view'}));
8692             push @{$self->{'_view'}}, shift;
8693             }
8694             return $self->{'_view'};
8695             }
8696              
8697             ##END_PACKAGE Views
8698              
8699             #===============================================================================
8700             # Generated by Hymnos Perl Code Generator
8701             # UML Model UUID: d5dbc840-3c43-11dd-8f3d-001c25551abc
8702              
8703             package Rinchi::Outlook::Folders;
8704              
8705             use Carp;
8706              
8707             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookCollection);
8708             our @EXPORT = qw();
8709             our @EXPORT_OK = qw();
8710              
8711             =head1 DESCRIPTION of Folders class
8712              
8713             Rinchi::Outlook::Folders is used for representing Folders objects.
8714              
8715             =head1 METHODS for Folders objects
8716              
8717             =cut
8718              
8719             #===============================================================================
8720              
8721             {
8722             no strict "refs";
8723             *TAG_NAME = sub { return 'folders'; };
8724             }
8725              
8726             #===============================================================================
8727             # Rinchi::Outlook::Folders::RawTable
8728              
8729             =head2 $value = $Object->RawTable([$new_value]);
8730              
8731             Set or get value of the RawTable attribute.
8732              
8733            
8734             Type: Unknown
8735             Lower: 0
8736             Upper: 1
8737              
8738             =cut
8739              
8740             sub RawTable() {
8741             my $self = shift;
8742             if (@_) {
8743             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
8744             if ('Rinchi::Outlook::Unknown' =~ /$regexp/ ) {
8745             $self->attribute_as_element('RawTable', shift);
8746             } else {
8747             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Unknown\' for attribute \'RawTable\'';
8748             }
8749             }
8750             return $self->attribute_as_element('RawTable');
8751             }
8752              
8753             #===============================================================================
8754             # Rinchi::Outlook::MAPIFolder::MAPIFolder
8755              
8756             =head2 $arrayref = $Object->MAPIFolder();
8757              
8758             Returns a reference to an array of the contained MAPIFolder objects.
8759             Get values of the MAPIFolder property.
8760              
8761            
8762             Type:
8763              
8764             =cut
8765              
8766             sub MAPIFolder() {
8767             my $self = shift;
8768             return $self->{'_MAPIFolder'};
8769             }
8770              
8771             #===============================================================================
8772             # Rinchi::Outlook::MAPIFolder::MAPIFolder
8773              
8774             =head2 $value = $Object->push_MAPIFolder([$new_value]);
8775              
8776             Set or get value of the MAPIFolder attribute.
8777              
8778            
8779             Type:
8780              
8781             =cut
8782              
8783             sub push_MAPIFolder() {
8784             my $self = shift;
8785             if (@_) {
8786             $self->{'_MAPIFolder'} = [] unless(exists($self->{'_MAPIFolder'}));
8787             push @{$self->{'_MAPIFolder'}}, shift;
8788             }
8789             return $self->{'_MAPIFolder'};
8790             }
8791              
8792             ##END_PACKAGE Folders
8793              
8794             #===============================================================================
8795             # Generated by Hymnos Perl Code Generator
8796             # UML Model UUID: d5da2d3c-3c43-11dd-b395-001c25551abc
8797              
8798             package Rinchi::Outlook::AppointmentItem;
8799              
8800             use Carp;
8801              
8802             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
8803             our @EXPORT = qw();
8804             our @EXPORT_OK = qw();
8805              
8806             =head1 DESCRIPTION of AppointmentItem class
8807              
8808             Rinchi::Outlook::AppointmentItem is used for representing AppointmentItem
8809             objects. An AppointmentItem object represents an appointment in the Calendar
8810             folder. An AppointmentItem object can represent a meeting, a one-time
8811             appointment, or a recurring appointment or meeting.
8812              
8813             =head1 METHODS for AppointmentItem objects
8814              
8815             =cut
8816              
8817             #===============================================================================
8818              
8819             {
8820             no strict "refs";
8821             *TAG_NAME = sub { return 'appointment-item'; };
8822             }
8823              
8824             #===============================================================================
8825             # Rinchi::Outlook::AppointmentItem::AllDayEvent
8826              
8827             =head2 $value = $Object->AllDayEvent([$new_value]);
8828              
8829             Set or get value of the AllDayEvent attribute.
8830              
8831            
8832             Type: Boolean
8833             Lower: 0
8834             Upper: 1
8835              
8836             =cut
8837              
8838             sub AllDayEvent() {
8839             my $self = shift;
8840             if (@_) {
8841             if ($_[0] =~ /^(true|false)$/i ) {
8842             $self->setAttribute('AllDayEvent', lc shift);
8843             } else {
8844             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'AllDayEvent\'';
8845             }
8846             }
8847             return $self->getAttribute('AllDayEvent');
8848             }
8849              
8850             #===============================================================================
8851             # Rinchi::Outlook::AppointmentItem::BusyStatus
8852              
8853             =head2 $value = $Object->BusyStatus([$new_value]);
8854              
8855             Set or get value of the BusyStatus attribute.
8856              
8857            
8858             Type: OlBusyStatus
8859             Lower: 0
8860             Upper: 1
8861              
8862             =cut
8863              
8864             sub BusyStatus() {
8865             my $self = shift;
8866             if (@_) {
8867             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
8868             $self->setAttribute('BusyStatus', shift);
8869             } else {
8870             if(ref($_[0])) {
8871             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlBusyStatus\' for attribute \'BusyStatus\'';
8872             } else {
8873             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlBusyStatus\' for attribute \'BusyStatus\'';
8874             }
8875             }
8876             }
8877             return $self->getAttribute('BusyStatus');
8878             }
8879              
8880             #===============================================================================
8881             # Rinchi::Outlook::AppointmentItem::ConferenceServerAllowExternal
8882              
8883             =head2 $value = $Object->ConferenceServerAllowExternal([$new_value]);
8884              
8885             Set or get value of the ConferenceServerAllowExternal attribute.
8886              
8887            
8888             Type: Boolean
8889             Lower: 0
8890             Upper: 1
8891              
8892             =cut
8893              
8894             sub ConferenceServerAllowExternal() {
8895             my $self = shift;
8896             if (@_) {
8897             if ($_[0] =~ /^(true|false)$/i ) {
8898             $self->setAttribute('ConferenceServerAllowExternal', lc shift);
8899             } else {
8900             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ConferenceServerAllowExternal\'';
8901             }
8902             }
8903             return $self->getAttribute('ConferenceServerAllowExternal');
8904             }
8905              
8906             #===============================================================================
8907             # Rinchi::Outlook::AppointmentItem::ConferenceServerPassword
8908              
8909             =head2 $value = $Object->ConferenceServerPassword([$new_value]);
8910              
8911             Set or get value of the ConferenceServerPassword attribute.
8912              
8913            
8914             Type: String
8915             Lower: 0
8916             Upper: 1
8917              
8918             =cut
8919              
8920             sub ConferenceServerPassword() {
8921             my $self = shift;
8922             if (@_) {
8923             $self->setAttribute('ConferenceServerPassword', shift);
8924             }
8925             return $self->getAttribute('ConferenceServerPassword');
8926             }
8927              
8928             #===============================================================================
8929             # Rinchi::Outlook::AppointmentItem::Duration
8930              
8931             =head2 $value = $Object->Duration([$new_value]);
8932              
8933             Set or get value of the Duration attribute.
8934              
8935            
8936             Type: Long
8937             Lower: 0
8938             Upper: 1
8939              
8940             =cut
8941              
8942             sub Duration() {
8943             my $self = shift;
8944             if (@_) {
8945             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
8946             $self->setAttribute('Duration', shift);
8947             } else {
8948             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Duration\'';
8949             }
8950             }
8951             return $self->getAttribute('Duration');
8952             }
8953              
8954             #===============================================================================
8955             # Rinchi::Outlook::AppointmentItem::End
8956              
8957             =head2 $value = $Object->End([$new_value]);
8958              
8959             Set or get value of the End attribute.
8960              
8961            
8962             Type: VT_DATE
8963             Lower: 0
8964             Upper: 1
8965              
8966             =cut
8967              
8968             sub End() {
8969             my $self = shift;
8970             if (@_) {
8971             $self->setAttribute('End', shift);
8972             }
8973             return $self->getAttribute('End');
8974             }
8975              
8976             #===============================================================================
8977             # Rinchi::Outlook::AppointmentItem::InternetCodepage
8978              
8979             =head2 $value = $Object->InternetCodepage([$new_value]);
8980              
8981             Set or get value of the InternetCodepage attribute.
8982              
8983            
8984             Type: Long
8985             Lower: 0
8986             Upper: 1
8987              
8988             =cut
8989              
8990             sub InternetCodepage() {
8991             my $self = shift;
8992             if (@_) {
8993             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
8994             $self->setAttribute('InternetCodepage', shift);
8995             } else {
8996             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'InternetCodepage\'';
8997             }
8998             }
8999             return $self->getAttribute('InternetCodepage');
9000             }
9001              
9002             #===============================================================================
9003             # Rinchi::Outlook::AppointmentItem::IsOnlineMeeting
9004              
9005             =head2 $value = $Object->IsOnlineMeeting([$new_value]);
9006              
9007             Set or get value of the IsOnlineMeeting attribute.
9008              
9009            
9010             Type: Boolean
9011             Lower: 0
9012             Upper: 1
9013              
9014             =cut
9015              
9016             sub IsOnlineMeeting() {
9017             my $self = shift;
9018             if (@_) {
9019             if ($_[0] =~ /^(true|false)$/i ) {
9020             $self->setAttribute('IsOnlineMeeting', lc shift);
9021             } else {
9022             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsOnlineMeeting\'';
9023             }
9024             }
9025             return $self->getAttribute('IsOnlineMeeting');
9026             }
9027              
9028             #===============================================================================
9029             # Rinchi::Outlook::AppointmentItem::IsRecurring
9030              
9031             =head2 $value = $Object->IsRecurring([$new_value]);
9032              
9033             Set or get value of the IsRecurring attribute.
9034              
9035            
9036             Type: Boolean
9037             Lower: 0
9038             Upper: 1
9039              
9040             =cut
9041              
9042             sub IsRecurring() {
9043             my $self = shift;
9044             if (@_) {
9045             if ($_[0] =~ /^(true|false)$/i ) {
9046             $self->setAttribute('IsRecurring', lc shift);
9047             } else {
9048             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsRecurring\'';
9049             }
9050             }
9051             return $self->getAttribute('IsRecurring');
9052             }
9053              
9054             #===============================================================================
9055             # Rinchi::Outlook::AppointmentItem::Location
9056              
9057             =head2 $value = $Object->Location([$new_value]);
9058              
9059             Set or get value of the Location attribute.
9060              
9061            
9062             Type: String
9063             Lower: 0
9064             Upper: 1
9065              
9066             =cut
9067              
9068             sub Location() {
9069             my $self = shift;
9070             if (@_) {
9071             $self->setAttribute('Location', shift);
9072             }
9073             return $self->getAttribute('Location');
9074             }
9075              
9076             #===============================================================================
9077             # Rinchi::Outlook::AppointmentItem::MeetingStatus
9078              
9079             =head2 $value = $Object->MeetingStatus([$new_value]);
9080              
9081             Set or get value of the MeetingStatus attribute.
9082              
9083            
9084             Type: OlMeetingStatus
9085             Lower: 0
9086             Upper: 1
9087              
9088             =cut
9089              
9090             sub MeetingStatus() {
9091             my $self = shift;
9092             if (@_) {
9093             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
9094             $self->setAttribute('MeetingStatus', shift);
9095             } else {
9096             if(ref($_[0])) {
9097             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlMeetingStatus\' for attribute \'MeetingStatus\'';
9098             } else {
9099             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlMeetingStatus\' for attribute \'MeetingStatus\'';
9100             }
9101             }
9102             }
9103             return $self->getAttribute('MeetingStatus');
9104             }
9105              
9106             #===============================================================================
9107             # Rinchi::Outlook::AppointmentItem::MeetingWorkspaceURL
9108              
9109             =head2 $value = $Object->MeetingWorkspaceURL([$new_value]);
9110              
9111             Set or get value of the MeetingWorkspaceURL attribute.
9112              
9113            
9114             Type: String
9115             Lower: 0
9116             Upper: 1
9117              
9118             =cut
9119              
9120             sub MeetingWorkspaceURL() {
9121             my $self = shift;
9122             if (@_) {
9123             $self->setAttribute('MeetingWorkspaceURL', shift);
9124             }
9125             return $self->getAttribute('MeetingWorkspaceURL');
9126             }
9127              
9128             #===============================================================================
9129             # Rinchi::Outlook::AppointmentItem::NetMeetingAutoStart
9130              
9131             =head2 $value = $Object->NetMeetingAutoStart([$new_value]);
9132              
9133             Set or get value of the NetMeetingAutoStart attribute.
9134              
9135            
9136             Type: Boolean
9137             Lower: 0
9138             Upper: 1
9139              
9140             =cut
9141              
9142             sub NetMeetingAutoStart() {
9143             my $self = shift;
9144             if (@_) {
9145             if ($_[0] =~ /^(true|false)$/i ) {
9146             $self->setAttribute('NetMeetingAutoStart', lc shift);
9147             } else {
9148             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'NetMeetingAutoStart\'';
9149             }
9150             }
9151             return $self->getAttribute('NetMeetingAutoStart');
9152             }
9153              
9154             #===============================================================================
9155             # Rinchi::Outlook::AppointmentItem::NetMeetingDocPathName
9156              
9157             =head2 $value = $Object->NetMeetingDocPathName([$new_value]);
9158              
9159             Set or get value of the NetMeetingDocPathName attribute.
9160              
9161            
9162             Type: String
9163             Lower: 0
9164             Upper: 1
9165              
9166             =cut
9167              
9168             sub NetMeetingDocPathName() {
9169             my $self = shift;
9170             if (@_) {
9171             $self->setAttribute('NetMeetingDocPathName', shift);
9172             }
9173             return $self->getAttribute('NetMeetingDocPathName');
9174             }
9175              
9176             #===============================================================================
9177             # Rinchi::Outlook::AppointmentItem::NetMeetingOrganizerAlias
9178              
9179             =head2 $value = $Object->NetMeetingOrganizerAlias([$new_value]);
9180              
9181             Set or get value of the NetMeetingOrganizerAlias attribute.
9182              
9183            
9184             Type: String
9185             Lower: 0
9186             Upper: 1
9187              
9188             =cut
9189              
9190             sub NetMeetingOrganizerAlias() {
9191             my $self = shift;
9192             if (@_) {
9193             $self->setAttribute('NetMeetingOrganizerAlias', shift);
9194             }
9195             return $self->getAttribute('NetMeetingOrganizerAlias');
9196             }
9197              
9198             #===============================================================================
9199             # Rinchi::Outlook::AppointmentItem::NetMeetingServer
9200              
9201             =head2 $value = $Object->NetMeetingServer([$new_value]);
9202              
9203             Set or get value of the NetMeetingServer attribute.
9204              
9205            
9206             Type: String
9207             Lower: 0
9208             Upper: 1
9209              
9210             =cut
9211              
9212             sub NetMeetingServer() {
9213             my $self = shift;
9214             if (@_) {
9215             $self->setAttribute('NetMeetingServer', shift);
9216             }
9217             return $self->getAttribute('NetMeetingServer');
9218             }
9219              
9220             #===============================================================================
9221             # Rinchi::Outlook::AppointmentItem::NetMeetingType
9222              
9223             =head2 $value = $Object->NetMeetingType([$new_value]);
9224              
9225             Set or get value of the NetMeetingType attribute.
9226              
9227            
9228             Type: OlNetMeetingType
9229             Lower: 0
9230             Upper: 1
9231              
9232             =cut
9233              
9234             sub NetMeetingType() {
9235             my $self = shift;
9236             if (@_) {
9237             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
9238             $self->setAttribute('NetMeetingType', shift);
9239             } else {
9240             if(ref($_[0])) {
9241             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlNetMeetingType\' for attribute \'NetMeetingType\'';
9242             } else {
9243             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlNetMeetingType\' for attribute \'NetMeetingType\'';
9244             }
9245             }
9246             }
9247             return $self->getAttribute('NetMeetingType');
9248             }
9249              
9250             #===============================================================================
9251             # Rinchi::Outlook::AppointmentItem::NetShowURL
9252              
9253             =head2 $value = $Object->NetShowURL([$new_value]);
9254              
9255             Set or get value of the NetShowURL attribute.
9256              
9257            
9258             Type: String
9259             Lower: 0
9260             Upper: 1
9261              
9262             =cut
9263              
9264             sub NetShowURL() {
9265             my $self = shift;
9266             if (@_) {
9267             $self->setAttribute('NetShowURL', shift);
9268             }
9269             return $self->getAttribute('NetShowURL');
9270             }
9271              
9272             #===============================================================================
9273             # Rinchi::Outlook::AppointmentItem::OptionalAttendees
9274              
9275             =head2 $value = $Object->OptionalAttendees([$new_value]);
9276              
9277             Set or get value of the OptionalAttendees attribute.
9278              
9279            
9280             Type: String
9281             Lower: 0
9282             Upper: 1
9283              
9284             =cut
9285              
9286             sub OptionalAttendees() {
9287             my $self = shift;
9288             if (@_) {
9289             $self->setAttribute('OptionalAttendees', shift);
9290             }
9291             return $self->getAttribute('OptionalAttendees');
9292             }
9293              
9294             #===============================================================================
9295             # Rinchi::Outlook::AppointmentItem::Organizer
9296              
9297             =head2 $value = $Object->Organizer([$new_value]);
9298              
9299             Set or get value of the Organizer attribute.
9300              
9301            
9302             Type: String
9303             Lower: 0
9304             Upper: 1
9305              
9306             =cut
9307              
9308             sub Organizer() {
9309             my $self = shift;
9310             if (@_) {
9311             $self->setAttribute('Organizer', shift);
9312             }
9313             return $self->getAttribute('Organizer');
9314             }
9315              
9316             #===============================================================================
9317             # Rinchi::Outlook::AppointmentItem::Recipients
9318              
9319             =head2 $Element = $Object->Recipients();
9320              
9321             Set or get value of the Recipients attribute.
9322              
9323            
9324             Type: Recipients
9325             Lower: 0
9326             Upper: 1
9327              
9328             =cut
9329              
9330             sub Recipients() {
9331             my $self = shift;
9332             return $self->get_collection('Recipients','recipients');
9333             }
9334              
9335             #===============================================================================
9336             # Rinchi::Outlook::AppointmentItem::RecurrenceState
9337              
9338             =head2 $value = $Object->RecurrenceState([$new_value]);
9339              
9340             Set or get value of the RecurrenceState attribute.
9341              
9342            
9343             Type: OlRecurrenceState
9344             Lower: 0
9345             Upper: 1
9346              
9347             =cut
9348              
9349             sub RecurrenceState() {
9350             my $self = shift;
9351             if (@_) {
9352             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
9353             $self->setAttribute('RecurrenceState', shift);
9354             } else {
9355             if(ref($_[0])) {
9356             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlRecurrenceState\' for attribute \'RecurrenceState\'';
9357             } else {
9358             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlRecurrenceState\' for attribute \'RecurrenceState\'';
9359             }
9360             }
9361             }
9362             return $self->getAttribute('RecurrenceState');
9363             }
9364              
9365             #===============================================================================
9366             # Rinchi::Outlook::AppointmentItem::ReminderMinutesBeforeStart
9367              
9368             =head2 $value = $Object->ReminderMinutesBeforeStart([$new_value]);
9369              
9370             Set or get value of the ReminderMinutesBeforeStart attribute.
9371              
9372            
9373             Type: Long
9374             Lower: 0
9375             Upper: 1
9376              
9377             =cut
9378              
9379             sub ReminderMinutesBeforeStart() {
9380             my $self = shift;
9381             if (@_) {
9382             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
9383             $self->setAttribute('ReminderMinutesBeforeStart', shift);
9384             } else {
9385             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'ReminderMinutesBeforeStart\'';
9386             }
9387             }
9388             return $self->getAttribute('ReminderMinutesBeforeStart');
9389             }
9390              
9391             #===============================================================================
9392             # Rinchi::Outlook::AppointmentItem::ReminderOverrideDefault
9393              
9394             =head2 $value = $Object->ReminderOverrideDefault([$new_value]);
9395              
9396             Set or get value of the ReminderOverrideDefault attribute.
9397              
9398            
9399             Type: Boolean
9400             Lower: 0
9401             Upper: 1
9402              
9403             =cut
9404              
9405             sub ReminderOverrideDefault() {
9406             my $self = shift;
9407             if (@_) {
9408             if ($_[0] =~ /^(true|false)$/i ) {
9409             $self->setAttribute('ReminderOverrideDefault', lc shift);
9410             } else {
9411             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderOverrideDefault\'';
9412             }
9413             }
9414             return $self->getAttribute('ReminderOverrideDefault');
9415             }
9416              
9417             #===============================================================================
9418             # Rinchi::Outlook::AppointmentItem::ReminderPlaySound
9419              
9420             =head2 $value = $Object->ReminderPlaySound([$new_value]);
9421              
9422             Set or get value of the ReminderPlaySound attribute.
9423              
9424            
9425             Type: Boolean
9426             Lower: 0
9427             Upper: 1
9428              
9429             =cut
9430              
9431             sub ReminderPlaySound() {
9432             my $self = shift;
9433             if (@_) {
9434             if ($_[0] =~ /^(true|false)$/i ) {
9435             $self->setAttribute('ReminderPlaySound', lc shift);
9436             } else {
9437             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderPlaySound\'';
9438             }
9439             }
9440             return $self->getAttribute('ReminderPlaySound');
9441             }
9442              
9443             #===============================================================================
9444             # Rinchi::Outlook::AppointmentItem::ReminderSet
9445              
9446             =head2 $value = $Object->ReminderSet([$new_value]);
9447              
9448             Set or get value of the ReminderSet attribute.
9449              
9450            
9451             Type: Boolean
9452             Lower: 0
9453             Upper: 1
9454              
9455             =cut
9456              
9457             sub ReminderSet() {
9458             my $self = shift;
9459             if (@_) {
9460             if ($_[0] =~ /^(true|false)$/i ) {
9461             $self->setAttribute('ReminderSet', lc shift);
9462             } else {
9463             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderSet\'';
9464             }
9465             }
9466             return $self->getAttribute('ReminderSet');
9467             }
9468              
9469             #===============================================================================
9470             # Rinchi::Outlook::AppointmentItem::ReminderSoundFile
9471              
9472             =head2 $value = $Object->ReminderSoundFile([$new_value]);
9473              
9474             Set or get value of the ReminderSoundFile attribute.
9475              
9476            
9477             Type: String
9478             Lower: 0
9479             Upper: 1
9480              
9481             =cut
9482              
9483             sub ReminderSoundFile() {
9484             my $self = shift;
9485             if (@_) {
9486             $self->setAttribute('ReminderSoundFile', shift);
9487             }
9488             return $self->getAttribute('ReminderSoundFile');
9489             }
9490              
9491             #===============================================================================
9492             # Rinchi::Outlook::AppointmentItem::ReplyTime
9493              
9494             =head2 $value = $Object->ReplyTime([$new_value]);
9495              
9496             Set or get value of the ReplyTime attribute.
9497              
9498            
9499             Type: VT_DATE
9500             Lower: 0
9501             Upper: 1
9502              
9503             =cut
9504              
9505             sub ReplyTime() {
9506             my $self = shift;
9507             if (@_) {
9508             $self->setAttribute('ReplyTime', shift);
9509             }
9510             return $self->getAttribute('ReplyTime');
9511             }
9512              
9513             #===============================================================================
9514             # Rinchi::Outlook::AppointmentItem::RequiredAttendees
9515              
9516             =head2 $value = $Object->RequiredAttendees([$new_value]);
9517              
9518             Set or get value of the RequiredAttendees attribute.
9519              
9520            
9521             Type: String
9522             Lower: 0
9523             Upper: 1
9524              
9525             =cut
9526              
9527             sub RequiredAttendees() {
9528             my $self = shift;
9529             if (@_) {
9530             $self->setAttribute('RequiredAttendees', shift);
9531             }
9532             return $self->getAttribute('RequiredAttendees');
9533             }
9534              
9535             #===============================================================================
9536             # Rinchi::Outlook::AppointmentItem::Resources
9537              
9538             =head2 $value = $Object->Resources([$new_value]);
9539              
9540             Set or get value of the Resources attribute.
9541              
9542            
9543             Type: String
9544             Lower: 0
9545             Upper: 1
9546              
9547             =cut
9548              
9549             sub Resources() {
9550             my $self = shift;
9551             if (@_) {
9552             $self->setAttribute('Resources', shift);
9553             }
9554             return $self->getAttribute('Resources');
9555             }
9556              
9557             #===============================================================================
9558             # Rinchi::Outlook::AppointmentItem::ResponseRequested
9559              
9560             =head2 $value = $Object->ResponseRequested([$new_value]);
9561              
9562             Set or get value of the ResponseRequested attribute.
9563              
9564            
9565             Type: Boolean
9566             Lower: 0
9567             Upper: 1
9568              
9569             =cut
9570              
9571             sub ResponseRequested() {
9572             my $self = shift;
9573             if (@_) {
9574             if ($_[0] =~ /^(true|false)$/i ) {
9575             $self->setAttribute('ResponseRequested', lc shift);
9576             } else {
9577             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ResponseRequested\'';
9578             }
9579             }
9580             return $self->getAttribute('ResponseRequested');
9581             }
9582              
9583             #===============================================================================
9584             # Rinchi::Outlook::AppointmentItem::ResponseStatus
9585              
9586             =head2 $value = $Object->ResponseStatus([$new_value]);
9587              
9588             Set or get value of the ResponseStatus attribute.
9589              
9590            
9591             Type: OlResponseStatus
9592             Lower: 0
9593             Upper: 1
9594              
9595             =cut
9596              
9597             sub ResponseStatus() {
9598             my $self = shift;
9599             if (@_) {
9600             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
9601             $self->setAttribute('ResponseStatus', shift);
9602             } else {
9603             if(ref($_[0])) {
9604             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlResponseStatus\' for attribute \'ResponseStatus\'';
9605             } else {
9606             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlResponseStatus\' for attribute \'ResponseStatus\'';
9607             }
9608             }
9609             }
9610             return $self->getAttribute('ResponseStatus');
9611             }
9612              
9613             #===============================================================================
9614             # Rinchi::Outlook::AppointmentItem::Start
9615              
9616             =head2 $value = $Object->Start([$new_value]);
9617              
9618             Set or get value of the Start attribute.
9619              
9620            
9621             Type: VT_DATE
9622             Lower: 0
9623             Upper: 1
9624              
9625             =cut
9626              
9627             sub Start() {
9628             my $self = shift;
9629             if (@_) {
9630             $self->setAttribute('Start', shift);
9631             }
9632             return $self->getAttribute('Start');
9633             }
9634              
9635             ##END_PACKAGE AppointmentItem
9636              
9637             #===============================================================================
9638             # Generated by Hymnos Perl Code Generator
9639             # UML Model UUID: d5da8d36-3c43-11dd-9cbf-001c25551abc
9640              
9641             package Rinchi::Outlook::ContactItem;
9642              
9643             use Carp;
9644              
9645             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
9646             our @EXPORT = qw();
9647             our @EXPORT_OK = qw();
9648              
9649             =head1 DESCRIPTION of ContactItem class
9650              
9651             Rinchi::Outlook::ContactItem is used for representing ContactItem objects. A
9652             ContactItem object represents a contact in a contacts folder. A contact can
9653             represent any person with whom you have any personal or professional contact.
9654              
9655             =head1 METHODS for ContactItem objects
9656              
9657             =cut
9658              
9659             #===============================================================================
9660              
9661             {
9662             no strict "refs";
9663             *TAG_NAME = sub { return 'contact-item'; };
9664             }
9665              
9666             #===============================================================================
9667             # Rinchi::Outlook::ContactItem::Account
9668              
9669             =head2 $value = $Object->Account([$new_value]);
9670              
9671             Set or get value of the Account attribute.
9672              
9673            
9674             Type: String
9675             Lower: 0
9676             Upper: 1
9677              
9678             =cut
9679              
9680             sub Account() {
9681             my $self = shift;
9682             if (@_) {
9683             $self->setAttribute('Account', shift);
9684             }
9685             return $self->getAttribute('Account');
9686             }
9687              
9688             #===============================================================================
9689             # Rinchi::Outlook::ContactItem::Anniversary
9690              
9691             =head2 $value = $Object->Anniversary([$new_value]);
9692              
9693             Set or get value of the Anniversary attribute.
9694              
9695            
9696             Type: VT_DATE
9697             Lower: 0
9698             Upper: 1
9699              
9700             =cut
9701              
9702             sub Anniversary() {
9703             my $self = shift;
9704             if (@_) {
9705             $self->setAttribute('Anniversary', shift);
9706             }
9707             return $self->getAttribute('Anniversary');
9708             }
9709              
9710             #===============================================================================
9711             # Rinchi::Outlook::ContactItem::AssistantName
9712              
9713             =head2 $value = $Object->AssistantName([$new_value]);
9714              
9715             Set or get value of the AssistantName attribute.
9716              
9717            
9718             Type: String
9719             Lower: 0
9720             Upper: 1
9721              
9722             =cut
9723              
9724             sub AssistantName() {
9725             my $self = shift;
9726             if (@_) {
9727             $self->setAttribute('AssistantName', shift);
9728             }
9729             return $self->getAttribute('AssistantName');
9730             }
9731              
9732             #===============================================================================
9733             # Rinchi::Outlook::ContactItem::AssistantTelephoneNumber
9734              
9735             =head2 $value = $Object->AssistantTelephoneNumber([$new_value]);
9736              
9737             Set or get value of the AssistantTelephoneNumber attribute.
9738              
9739            
9740             Type: String
9741             Lower: 0
9742             Upper: 1
9743              
9744             =cut
9745              
9746             sub AssistantTelephoneNumber() {
9747             my $self = shift;
9748             if (@_) {
9749             $self->setAttribute('AssistantTelephoneNumber', shift);
9750             }
9751             return $self->getAttribute('AssistantTelephoneNumber');
9752             }
9753              
9754             #===============================================================================
9755             # Rinchi::Outlook::ContactItem::Birthday
9756              
9757             =head2 $value = $Object->Birthday([$new_value]);
9758              
9759             Set or get value of the Birthday attribute.
9760              
9761            
9762             Type: VT_DATE
9763             Lower: 0
9764             Upper: 1
9765              
9766             =cut
9767              
9768             sub Birthday() {
9769             my $self = shift;
9770             if (@_) {
9771             $self->setAttribute('Birthday', shift);
9772             }
9773             return $self->getAttribute('Birthday');
9774             }
9775              
9776             #===============================================================================
9777             # Rinchi::Outlook::ContactItem::Business2TelephoneNumber
9778              
9779             =head2 $value = $Object->Business2TelephoneNumber([$new_value]);
9780              
9781             Set or get value of the Business2TelephoneNumber attribute.
9782              
9783            
9784             Type: String
9785             Lower: 0
9786             Upper: 1
9787              
9788             =cut
9789              
9790             sub Business2TelephoneNumber() {
9791             my $self = shift;
9792             if (@_) {
9793             $self->setAttribute('Business2TelephoneNumber', shift);
9794             }
9795             return $self->getAttribute('Business2TelephoneNumber');
9796             }
9797              
9798             #===============================================================================
9799             # Rinchi::Outlook::ContactItem::BusinessAddress
9800              
9801             =head2 $value = $Object->BusinessAddress([$new_value]);
9802              
9803             Set or get value of the BusinessAddress attribute.
9804              
9805            
9806             Type: String
9807             Lower: 0
9808             Upper: 1
9809              
9810             =cut
9811              
9812             sub BusinessAddress() {
9813             my $self = shift;
9814             if (@_) {
9815             $self->setAttribute('BusinessAddress', shift);
9816             }
9817             return $self->getAttribute('BusinessAddress');
9818             }
9819              
9820             #===============================================================================
9821             # Rinchi::Outlook::ContactItem::BusinessAddressCity
9822              
9823             =head2 $value = $Object->BusinessAddressCity([$new_value]);
9824              
9825             Set or get value of the BusinessAddressCity attribute.
9826              
9827            
9828             Type: String
9829             Lower: 0
9830             Upper: 1
9831              
9832             =cut
9833              
9834             sub BusinessAddressCity() {
9835             my $self = shift;
9836             if (@_) {
9837             $self->setAttribute('BusinessAddressCity', shift);
9838             }
9839             return $self->getAttribute('BusinessAddressCity');
9840             }
9841              
9842             #===============================================================================
9843             # Rinchi::Outlook::ContactItem::BusinessAddressCountry
9844              
9845             =head2 $value = $Object->BusinessAddressCountry([$new_value]);
9846              
9847             Set or get value of the BusinessAddressCountry attribute.
9848              
9849            
9850             Type: String
9851             Lower: 0
9852             Upper: 1
9853              
9854             =cut
9855              
9856             sub BusinessAddressCountry() {
9857             my $self = shift;
9858             if (@_) {
9859             $self->setAttribute('BusinessAddressCountry', shift);
9860             }
9861             return $self->getAttribute('BusinessAddressCountry');
9862             }
9863              
9864             #===============================================================================
9865             # Rinchi::Outlook::ContactItem::BusinessAddressPostOfficeBox
9866              
9867             =head2 $value = $Object->BusinessAddressPostOfficeBox([$new_value]);
9868              
9869             Set or get value of the BusinessAddressPostOfficeBox attribute.
9870              
9871            
9872             Type: String
9873             Lower: 0
9874             Upper: 1
9875              
9876             =cut
9877              
9878             sub BusinessAddressPostOfficeBox() {
9879             my $self = shift;
9880             if (@_) {
9881             $self->setAttribute('BusinessAddressPostOfficeBox', shift);
9882             }
9883             return $self->getAttribute('BusinessAddressPostOfficeBox');
9884             }
9885              
9886             #===============================================================================
9887             # Rinchi::Outlook::ContactItem::BusinessAddressPostalCode
9888              
9889             =head2 $value = $Object->BusinessAddressPostalCode([$new_value]);
9890              
9891             Set or get value of the BusinessAddressPostalCode attribute.
9892              
9893            
9894             Type: String
9895             Lower: 0
9896             Upper: 1
9897              
9898             =cut
9899              
9900             sub BusinessAddressPostalCode() {
9901             my $self = shift;
9902             if (@_) {
9903             $self->setAttribute('BusinessAddressPostalCode', shift);
9904             }
9905             return $self->getAttribute('BusinessAddressPostalCode');
9906             }
9907              
9908             #===============================================================================
9909             # Rinchi::Outlook::ContactItem::BusinessAddressState
9910              
9911             =head2 $value = $Object->BusinessAddressState([$new_value]);
9912              
9913             Set or get value of the BusinessAddressState attribute.
9914              
9915            
9916             Type: String
9917             Lower: 0
9918             Upper: 1
9919              
9920             =cut
9921              
9922             sub BusinessAddressState() {
9923             my $self = shift;
9924             if (@_) {
9925             $self->setAttribute('BusinessAddressState', shift);
9926             }
9927             return $self->getAttribute('BusinessAddressState');
9928             }
9929              
9930             #===============================================================================
9931             # Rinchi::Outlook::ContactItem::BusinessAddressStreet
9932              
9933             =head2 $value = $Object->BusinessAddressStreet([$new_value]);
9934              
9935             Set or get value of the BusinessAddressStreet attribute.
9936              
9937            
9938             Type: String
9939             Lower: 0
9940             Upper: 1
9941              
9942             =cut
9943              
9944             sub BusinessAddressStreet() {
9945             my $self = shift;
9946             if (@_) {
9947             $self->setAttribute('BusinessAddressStreet', shift);
9948             }
9949             return $self->getAttribute('BusinessAddressStreet');
9950             }
9951              
9952             #===============================================================================
9953             # Rinchi::Outlook::ContactItem::BusinessFaxNumber
9954              
9955             =head2 $value = $Object->BusinessFaxNumber([$new_value]);
9956              
9957             Set or get value of the BusinessFaxNumber attribute.
9958              
9959            
9960             Type: String
9961             Lower: 0
9962             Upper: 1
9963              
9964             =cut
9965              
9966             sub BusinessFaxNumber() {
9967             my $self = shift;
9968             if (@_) {
9969             $self->setAttribute('BusinessFaxNumber', shift);
9970             }
9971             return $self->getAttribute('BusinessFaxNumber');
9972             }
9973              
9974             #===============================================================================
9975             # Rinchi::Outlook::ContactItem::BusinessHomePage
9976              
9977             =head2 $value = $Object->BusinessHomePage([$new_value]);
9978              
9979             Set or get value of the BusinessHomePage attribute.
9980              
9981            
9982             Type: String
9983             Lower: 0
9984             Upper: 1
9985              
9986             =cut
9987              
9988             sub BusinessHomePage() {
9989             my $self = shift;
9990             if (@_) {
9991             $self->setAttribute('BusinessHomePage', shift);
9992             }
9993             return $self->getAttribute('BusinessHomePage');
9994             }
9995              
9996             #===============================================================================
9997             # Rinchi::Outlook::ContactItem::BusinessTelephoneNumber
9998              
9999             =head2 $value = $Object->BusinessTelephoneNumber([$new_value]);
10000              
10001             Set or get value of the BusinessTelephoneNumber attribute.
10002              
10003            
10004             Type: String
10005             Lower: 0
10006             Upper: 1
10007              
10008             =cut
10009              
10010             sub BusinessTelephoneNumber() {
10011             my $self = shift;
10012             if (@_) {
10013             $self->setAttribute('BusinessTelephoneNumber', shift);
10014             }
10015             return $self->getAttribute('BusinessTelephoneNumber');
10016             }
10017              
10018             #===============================================================================
10019             # Rinchi::Outlook::ContactItem::CallbackTelephoneNumber
10020              
10021             =head2 $value = $Object->CallbackTelephoneNumber([$new_value]);
10022              
10023             Set or get value of the CallbackTelephoneNumber attribute.
10024              
10025            
10026             Type: String
10027             Lower: 0
10028             Upper: 1
10029              
10030             =cut
10031              
10032             sub CallbackTelephoneNumber() {
10033             my $self = shift;
10034             if (@_) {
10035             $self->setAttribute('CallbackTelephoneNumber', shift);
10036             }
10037             return $self->getAttribute('CallbackTelephoneNumber');
10038             }
10039              
10040             #===============================================================================
10041             # Rinchi::Outlook::ContactItem::CarTelephoneNumber
10042              
10043             =head2 $value = $Object->CarTelephoneNumber([$new_value]);
10044              
10045             Set or get value of the CarTelephoneNumber attribute.
10046              
10047            
10048             Type: String
10049             Lower: 0
10050             Upper: 1
10051              
10052             =cut
10053              
10054             sub CarTelephoneNumber() {
10055             my $self = shift;
10056             if (@_) {
10057             $self->setAttribute('CarTelephoneNumber', shift);
10058             }
10059             return $self->getAttribute('CarTelephoneNumber');
10060             }
10061              
10062             #===============================================================================
10063             # Rinchi::Outlook::ContactItem::Children
10064              
10065             =head2 $value = $Object->Children([$new_value]);
10066              
10067             Set or get value of the Children attribute.
10068              
10069            
10070             Type: String
10071             Lower: 0
10072             Upper: 1
10073              
10074             =cut
10075              
10076             sub Children() {
10077             my $self = shift;
10078             if (@_) {
10079             $self->setAttribute('Children', shift);
10080             }
10081             return $self->getAttribute('Children');
10082             }
10083              
10084             #===============================================================================
10085             # Rinchi::Outlook::ContactItem::CompanyAndFullName
10086              
10087             =head2 $value = $Object->CompanyAndFullName([$new_value]);
10088              
10089             Set or get value of the CompanyAndFullName attribute.
10090              
10091            
10092             Type: String
10093             Lower: 0
10094             Upper: 1
10095              
10096             =cut
10097              
10098             sub CompanyAndFullName() {
10099             my $self = shift;
10100             if (@_) {
10101             $self->setAttribute('CompanyAndFullName', shift);
10102             }
10103             return $self->getAttribute('CompanyAndFullName');
10104             }
10105              
10106             #===============================================================================
10107             # Rinchi::Outlook::ContactItem::CompanyLastFirstNoSpace
10108              
10109             =head2 $value = $Object->CompanyLastFirstNoSpace([$new_value]);
10110              
10111             Set or get value of the CompanyLastFirstNoSpace attribute.
10112              
10113            
10114             Type: String
10115             Lower: 0
10116             Upper: 1
10117              
10118             =cut
10119              
10120             sub CompanyLastFirstNoSpace() {
10121             my $self = shift;
10122             if (@_) {
10123             $self->setAttribute('CompanyLastFirstNoSpace', shift);
10124             }
10125             return $self->getAttribute('CompanyLastFirstNoSpace');
10126             }
10127              
10128             #===============================================================================
10129             # Rinchi::Outlook::ContactItem::CompanyLastFirstSpaceOnly
10130              
10131             =head2 $value = $Object->CompanyLastFirstSpaceOnly([$new_value]);
10132              
10133             Set or get value of the CompanyLastFirstSpaceOnly attribute.
10134              
10135            
10136             Type: String
10137             Lower: 0
10138             Upper: 1
10139              
10140             =cut
10141              
10142             sub CompanyLastFirstSpaceOnly() {
10143             my $self = shift;
10144             if (@_) {
10145             $self->setAttribute('CompanyLastFirstSpaceOnly', shift);
10146             }
10147             return $self->getAttribute('CompanyLastFirstSpaceOnly');
10148             }
10149              
10150             #===============================================================================
10151             # Rinchi::Outlook::ContactItem::CompanyMainTelephoneNumber
10152              
10153             =head2 $value = $Object->CompanyMainTelephoneNumber([$new_value]);
10154              
10155             Set or get value of the CompanyMainTelephoneNumber attribute.
10156              
10157            
10158             Type: String
10159             Lower: 0
10160             Upper: 1
10161              
10162             =cut
10163              
10164             sub CompanyMainTelephoneNumber() {
10165             my $self = shift;
10166             if (@_) {
10167             $self->setAttribute('CompanyMainTelephoneNumber', shift);
10168             }
10169             return $self->getAttribute('CompanyMainTelephoneNumber');
10170             }
10171              
10172             #===============================================================================
10173             # Rinchi::Outlook::ContactItem::CompanyName
10174              
10175             =head2 $value = $Object->CompanyName([$new_value]);
10176              
10177             Set or get value of the CompanyName attribute.
10178              
10179            
10180             Type: String
10181             Lower: 0
10182             Upper: 1
10183              
10184             =cut
10185              
10186             sub CompanyName() {
10187             my $self = shift;
10188             if (@_) {
10189             $self->setAttribute('CompanyName', shift);
10190             }
10191             return $self->getAttribute('CompanyName');
10192             }
10193              
10194             #===============================================================================
10195             # Rinchi::Outlook::ContactItem::ComputerNetworkName
10196              
10197             =head2 $value = $Object->ComputerNetworkName([$new_value]);
10198              
10199             Set or get value of the ComputerNetworkName attribute.
10200              
10201            
10202             Type: String
10203             Lower: 0
10204             Upper: 1
10205              
10206             =cut
10207              
10208             sub ComputerNetworkName() {
10209             my $self = shift;
10210             if (@_) {
10211             $self->setAttribute('ComputerNetworkName', shift);
10212             }
10213             return $self->getAttribute('ComputerNetworkName');
10214             }
10215              
10216             #===============================================================================
10217             # Rinchi::Outlook::ContactItem::CustomerID
10218              
10219             =head2 $value = $Object->CustomerID([$new_value]);
10220              
10221             Set or get value of the CustomerID attribute.
10222              
10223            
10224             Type: String
10225             Lower: 0
10226             Upper: 1
10227              
10228             =cut
10229              
10230             sub CustomerID() {
10231             my $self = shift;
10232             if (@_) {
10233             $self->setAttribute('CustomerID', shift);
10234             }
10235             return $self->getAttribute('CustomerID');
10236             }
10237              
10238             #===============================================================================
10239             # Rinchi::Outlook::ContactItem::Department
10240              
10241             =head2 $value = $Object->Department([$new_value]);
10242              
10243             Set or get value of the Department attribute.
10244              
10245            
10246             Type: String
10247             Lower: 0
10248             Upper: 1
10249              
10250             =cut
10251              
10252             sub Department() {
10253             my $self = shift;
10254             if (@_) {
10255             $self->setAttribute('Department', shift);
10256             }
10257             return $self->getAttribute('Department');
10258             }
10259              
10260             #===============================================================================
10261             # Rinchi::Outlook::ContactItem::Email1Address
10262              
10263             =head2 $value = $Object->Email1Address([$new_value]);
10264              
10265             Set or get value of the Email1Address attribute.
10266              
10267            
10268             Type: String
10269             Lower: 0
10270             Upper: 1
10271              
10272             =cut
10273              
10274             sub Email1Address() {
10275             my $self = shift;
10276             if (@_) {
10277             $self->setAttribute('Email1Address', shift);
10278             }
10279             return $self->getAttribute('Email1Address');
10280             }
10281              
10282             #===============================================================================
10283             # Rinchi::Outlook::ContactItem::Email1AddressType
10284              
10285             =head2 $value = $Object->Email1AddressType([$new_value]);
10286              
10287             Set or get value of the Email1AddressType attribute.
10288              
10289            
10290             Type: String
10291             Lower: 0
10292             Upper: 1
10293              
10294             =cut
10295              
10296             sub Email1AddressType() {
10297             my $self = shift;
10298             if (@_) {
10299             $self->setAttribute('Email1AddressType', shift);
10300             }
10301             return $self->getAttribute('Email1AddressType');
10302             }
10303              
10304             #===============================================================================
10305             # Rinchi::Outlook::ContactItem::Email1DisplayName
10306              
10307             =head2 $value = $Object->Email1DisplayName([$new_value]);
10308              
10309             Set or get value of the Email1DisplayName attribute.
10310              
10311            
10312             Type: String
10313             Lower: 0
10314             Upper: 1
10315              
10316             =cut
10317              
10318             sub Email1DisplayName() {
10319             my $self = shift;
10320             if (@_) {
10321             $self->setAttribute('Email1DisplayName', shift);
10322             }
10323             return $self->getAttribute('Email1DisplayName');
10324             }
10325              
10326             #===============================================================================
10327             # Rinchi::Outlook::ContactItem::Email1EntryID
10328              
10329             =head2 $value = $Object->Email1EntryID([$new_value]);
10330              
10331             Set or get value of the Email1EntryID attribute.
10332              
10333            
10334             Type: String
10335             Lower: 0
10336             Upper: 1
10337              
10338             =cut
10339              
10340             sub Email1EntryID() {
10341             my $self = shift;
10342             if (@_) {
10343             $self->setAttribute('Email1EntryID', shift);
10344             }
10345             return $self->getAttribute('Email1EntryID');
10346             }
10347              
10348             #===============================================================================
10349             # Rinchi::Outlook::ContactItem::Email2Address
10350              
10351             =head2 $value = $Object->Email2Address([$new_value]);
10352              
10353             Set or get value of the Email2Address attribute.
10354              
10355            
10356             Type: String
10357             Lower: 0
10358             Upper: 1
10359              
10360             =cut
10361              
10362             sub Email2Address() {
10363             my $self = shift;
10364             if (@_) {
10365             $self->setAttribute('Email2Address', shift);
10366             }
10367             return $self->getAttribute('Email2Address');
10368             }
10369              
10370             #===============================================================================
10371             # Rinchi::Outlook::ContactItem::Email2AddressType
10372              
10373             =head2 $value = $Object->Email2AddressType([$new_value]);
10374              
10375             Set or get value of the Email2AddressType attribute.
10376              
10377            
10378             Type: String
10379             Lower: 0
10380             Upper: 1
10381              
10382             =cut
10383              
10384             sub Email2AddressType() {
10385             my $self = shift;
10386             if (@_) {
10387             $self->setAttribute('Email2AddressType', shift);
10388             }
10389             return $self->getAttribute('Email2AddressType');
10390             }
10391              
10392             #===============================================================================
10393             # Rinchi::Outlook::ContactItem::Email2DisplayName
10394              
10395             =head2 $value = $Object->Email2DisplayName([$new_value]);
10396              
10397             Set or get value of the Email2DisplayName attribute.
10398              
10399            
10400             Type: String
10401             Lower: 0
10402             Upper: 1
10403              
10404             =cut
10405              
10406             sub Email2DisplayName() {
10407             my $self = shift;
10408             if (@_) {
10409             $self->setAttribute('Email2DisplayName', shift);
10410             }
10411             return $self->getAttribute('Email2DisplayName');
10412             }
10413              
10414             #===============================================================================
10415             # Rinchi::Outlook::ContactItem::Email2EntryID
10416              
10417             =head2 $value = $Object->Email2EntryID([$new_value]);
10418              
10419             Set or get value of the Email2EntryID attribute.
10420              
10421            
10422             Type: String
10423             Lower: 0
10424             Upper: 1
10425              
10426             =cut
10427              
10428             sub Email2EntryID() {
10429             my $self = shift;
10430             if (@_) {
10431             $self->setAttribute('Email2EntryID', shift);
10432             }
10433             return $self->getAttribute('Email2EntryID');
10434             }
10435              
10436             #===============================================================================
10437             # Rinchi::Outlook::ContactItem::Email3Address
10438              
10439             =head2 $value = $Object->Email3Address([$new_value]);
10440              
10441             Set or get value of the Email3Address attribute.
10442              
10443            
10444             Type: String
10445             Lower: 0
10446             Upper: 1
10447              
10448             =cut
10449              
10450             sub Email3Address() {
10451             my $self = shift;
10452             if (@_) {
10453             $self->setAttribute('Email3Address', shift);
10454             }
10455             return $self->getAttribute('Email3Address');
10456             }
10457              
10458             #===============================================================================
10459             # Rinchi::Outlook::ContactItem::Email3AddressType
10460              
10461             =head2 $value = $Object->Email3AddressType([$new_value]);
10462              
10463             Set or get value of the Email3AddressType attribute.
10464              
10465            
10466             Type: String
10467             Lower: 0
10468             Upper: 1
10469              
10470             =cut
10471              
10472             sub Email3AddressType() {
10473             my $self = shift;
10474             if (@_) {
10475             $self->setAttribute('Email3AddressType', shift);
10476             }
10477             return $self->getAttribute('Email3AddressType');
10478             }
10479              
10480             #===============================================================================
10481             # Rinchi::Outlook::ContactItem::Email3DisplayName
10482              
10483             =head2 $value = $Object->Email3DisplayName([$new_value]);
10484              
10485             Set or get value of the Email3DisplayName attribute.
10486              
10487            
10488             Type: String
10489             Lower: 0
10490             Upper: 1
10491              
10492             =cut
10493              
10494             sub Email3DisplayName() {
10495             my $self = shift;
10496             if (@_) {
10497             $self->setAttribute('Email3DisplayName', shift);
10498             }
10499             return $self->getAttribute('Email3DisplayName');
10500             }
10501              
10502             #===============================================================================
10503             # Rinchi::Outlook::ContactItem::Email3EntryID
10504              
10505             =head2 $value = $Object->Email3EntryID([$new_value]);
10506              
10507             Set or get value of the Email3EntryID attribute.
10508              
10509            
10510             Type: String
10511             Lower: 0
10512             Upper: 1
10513              
10514             =cut
10515              
10516             sub Email3EntryID() {
10517             my $self = shift;
10518             if (@_) {
10519             $self->setAttribute('Email3EntryID', shift);
10520             }
10521             return $self->getAttribute('Email3EntryID');
10522             }
10523              
10524             #===============================================================================
10525             # Rinchi::Outlook::ContactItem::FTPSite
10526              
10527             =head2 $value = $Object->FTPSite([$new_value]);
10528              
10529             Set or get value of the FTPSite attribute.
10530              
10531            
10532             Type: String
10533             Lower: 0
10534             Upper: 1
10535              
10536             =cut
10537              
10538             sub FTPSite() {
10539             my $self = shift;
10540             if (@_) {
10541             $self->setAttribute('FTPSite', shift);
10542             }
10543             return $self->getAttribute('FTPSite');
10544             }
10545              
10546             #===============================================================================
10547             # Rinchi::Outlook::ContactItem::FileAs
10548              
10549             =head2 $value = $Object->FileAs([$new_value]);
10550              
10551             Set or get value of the FileAs attribute.
10552              
10553            
10554             Type: String
10555             Lower: 0
10556             Upper: 1
10557              
10558             =cut
10559              
10560             sub FileAs() {
10561             my $self = shift;
10562             if (@_) {
10563             $self->setAttribute('FileAs', shift);
10564             }
10565             return $self->getAttribute('FileAs');
10566             }
10567              
10568             #===============================================================================
10569             # Rinchi::Outlook::ContactItem::FirstName
10570              
10571             =head2 $value = $Object->FirstName([$new_value]);
10572              
10573             Set or get value of the FirstName attribute.
10574              
10575            
10576             Type: String
10577             Lower: 0
10578             Upper: 1
10579              
10580             =cut
10581              
10582             sub FirstName() {
10583             my $self = shift;
10584             if (@_) {
10585             $self->setAttribute('FirstName', shift);
10586             }
10587             return $self->getAttribute('FirstName');
10588             }
10589              
10590             #===============================================================================
10591             # Rinchi::Outlook::ContactItem::FullName
10592              
10593             =head2 $value = $Object->FullName([$new_value]);
10594              
10595             Set or get value of the FullName attribute.
10596              
10597            
10598             Type: String
10599             Lower: 0
10600             Upper: 1
10601              
10602             =cut
10603              
10604             sub FullName() {
10605             my $self = shift;
10606             if (@_) {
10607             $self->setAttribute('FullName', shift);
10608             }
10609             return $self->getAttribute('FullName');
10610             }
10611              
10612             #===============================================================================
10613             # Rinchi::Outlook::ContactItem::FullNameAndCompany
10614              
10615             =head2 $value = $Object->FullNameAndCompany([$new_value]);
10616              
10617             Set or get value of the FullNameAndCompany attribute.
10618              
10619            
10620             Type: String
10621             Lower: 0
10622             Upper: 1
10623              
10624             =cut
10625              
10626             sub FullNameAndCompany() {
10627             my $self = shift;
10628             if (@_) {
10629             $self->setAttribute('FullNameAndCompany', shift);
10630             }
10631             return $self->getAttribute('FullNameAndCompany');
10632             }
10633              
10634             #===============================================================================
10635             # Rinchi::Outlook::ContactItem::Gender
10636              
10637             =head2 $value = $Object->Gender([$new_value]);
10638              
10639             Set or get value of the Gender attribute.
10640              
10641            
10642             Type: OlGender
10643             Lower: 0
10644             Upper: 1
10645              
10646             =cut
10647              
10648             sub Gender() {
10649             my $self = shift;
10650             if (@_) {
10651             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
10652             $self->setAttribute('Gender', shift);
10653             } else {
10654             if(ref($_[0])) {
10655             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlGender\' for attribute \'Gender\'';
10656             } else {
10657             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlGender\' for attribute \'Gender\'';
10658             }
10659             }
10660             }
10661             return $self->getAttribute('Gender');
10662             }
10663              
10664             #===============================================================================
10665             # Rinchi::Outlook::ContactItem::GovernmentIDNumber
10666              
10667             =head2 $value = $Object->GovernmentIDNumber([$new_value]);
10668              
10669             Set or get value of the GovernmentIDNumber attribute.
10670              
10671            
10672             Type: String
10673             Lower: 0
10674             Upper: 1
10675              
10676             =cut
10677              
10678             sub GovernmentIDNumber() {
10679             my $self = shift;
10680             if (@_) {
10681             $self->setAttribute('GovernmentIDNumber', shift);
10682             }
10683             return $self->getAttribute('GovernmentIDNumber');
10684             }
10685              
10686             #===============================================================================
10687             # Rinchi::Outlook::ContactItem::HasPicture
10688              
10689             =head2 $value = $Object->HasPicture([$new_value]);
10690              
10691             Set or get value of the HasPicture attribute.
10692              
10693            
10694             Type: Boolean
10695             Lower: 0
10696             Upper: 1
10697              
10698             =cut
10699              
10700             sub HasPicture() {
10701             my $self = shift;
10702             if (@_) {
10703             if ($_[0] =~ /^(true|false)$/i ) {
10704             $self->setAttribute('HasPicture', lc shift);
10705             } else {
10706             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'HasPicture\'';
10707             }
10708             }
10709             return $self->getAttribute('HasPicture');
10710             }
10711              
10712             #===============================================================================
10713             # Rinchi::Outlook::ContactItem::Hobby
10714              
10715             =head2 $value = $Object->Hobby([$new_value]);
10716              
10717             Set or get value of the Hobby attribute.
10718              
10719            
10720             Type: String
10721             Lower: 0
10722             Upper: 1
10723              
10724             =cut
10725              
10726             sub Hobby() {
10727             my $self = shift;
10728             if (@_) {
10729             $self->setAttribute('Hobby', shift);
10730             }
10731             return $self->getAttribute('Hobby');
10732             }
10733              
10734             #===============================================================================
10735             # Rinchi::Outlook::ContactItem::Home2TelephoneNumber
10736              
10737             =head2 $value = $Object->Home2TelephoneNumber([$new_value]);
10738              
10739             Set or get value of the Home2TelephoneNumber attribute.
10740              
10741            
10742             Type: String
10743             Lower: 0
10744             Upper: 1
10745              
10746             =cut
10747              
10748             sub Home2TelephoneNumber() {
10749             my $self = shift;
10750             if (@_) {
10751             $self->setAttribute('Home2TelephoneNumber', shift);
10752             }
10753             return $self->getAttribute('Home2TelephoneNumber');
10754             }
10755              
10756             #===============================================================================
10757             # Rinchi::Outlook::ContactItem::HomeAddress
10758              
10759             =head2 $value = $Object->HomeAddress([$new_value]);
10760              
10761             Set or get value of the HomeAddress attribute.
10762              
10763            
10764             Type: String
10765             Lower: 0
10766             Upper: 1
10767              
10768             =cut
10769              
10770             sub HomeAddress() {
10771             my $self = shift;
10772             if (@_) {
10773             $self->setAttribute('HomeAddress', shift);
10774             }
10775             return $self->getAttribute('HomeAddress');
10776             }
10777              
10778             #===============================================================================
10779             # Rinchi::Outlook::ContactItem::HomeAddressCity
10780              
10781             =head2 $value = $Object->HomeAddressCity([$new_value]);
10782              
10783             Set or get value of the HomeAddressCity attribute.
10784              
10785            
10786             Type: String
10787             Lower: 0
10788             Upper: 1
10789              
10790             =cut
10791              
10792             sub HomeAddressCity() {
10793             my $self = shift;
10794             if (@_) {
10795             $self->setAttribute('HomeAddressCity', shift);
10796             }
10797             return $self->getAttribute('HomeAddressCity');
10798             }
10799              
10800             #===============================================================================
10801             # Rinchi::Outlook::ContactItem::HomeAddressCountry
10802              
10803             =head2 $value = $Object->HomeAddressCountry([$new_value]);
10804              
10805             Set or get value of the HomeAddressCountry attribute.
10806              
10807            
10808             Type: String
10809             Lower: 0
10810             Upper: 1
10811              
10812             =cut
10813              
10814             sub HomeAddressCountry() {
10815             my $self = shift;
10816             if (@_) {
10817             $self->setAttribute('HomeAddressCountry', shift);
10818             }
10819             return $self->getAttribute('HomeAddressCountry');
10820             }
10821              
10822             #===============================================================================
10823             # Rinchi::Outlook::ContactItem::HomeAddressPostOfficeBox
10824              
10825             =head2 $value = $Object->HomeAddressPostOfficeBox([$new_value]);
10826              
10827             Set or get value of the HomeAddressPostOfficeBox attribute.
10828              
10829            
10830             Type: String
10831             Lower: 0
10832             Upper: 1
10833              
10834             =cut
10835              
10836             sub HomeAddressPostOfficeBox() {
10837             my $self = shift;
10838             if (@_) {
10839             $self->setAttribute('HomeAddressPostOfficeBox', shift);
10840             }
10841             return $self->getAttribute('HomeAddressPostOfficeBox');
10842             }
10843              
10844             #===============================================================================
10845             # Rinchi::Outlook::ContactItem::HomeAddressPostalCode
10846              
10847             =head2 $value = $Object->HomeAddressPostalCode([$new_value]);
10848              
10849             Set or get value of the HomeAddressPostalCode attribute.
10850              
10851            
10852             Type: String
10853             Lower: 0
10854             Upper: 1
10855              
10856             =cut
10857              
10858             sub HomeAddressPostalCode() {
10859             my $self = shift;
10860             if (@_) {
10861             $self->setAttribute('HomeAddressPostalCode', shift);
10862             }
10863             return $self->getAttribute('HomeAddressPostalCode');
10864             }
10865              
10866             #===============================================================================
10867             # Rinchi::Outlook::ContactItem::HomeAddressState
10868              
10869             =head2 $value = $Object->HomeAddressState([$new_value]);
10870              
10871             Set or get value of the HomeAddressState attribute.
10872              
10873            
10874             Type: String
10875             Lower: 0
10876             Upper: 1
10877              
10878             =cut
10879              
10880             sub HomeAddressState() {
10881             my $self = shift;
10882             if (@_) {
10883             $self->setAttribute('HomeAddressState', shift);
10884             }
10885             return $self->getAttribute('HomeAddressState');
10886             }
10887              
10888             #===============================================================================
10889             # Rinchi::Outlook::ContactItem::HomeAddressStreet
10890              
10891             =head2 $value = $Object->HomeAddressStreet([$new_value]);
10892              
10893             Set or get value of the HomeAddressStreet attribute.
10894              
10895            
10896             Type: String
10897             Lower: 0
10898             Upper: 1
10899              
10900             =cut
10901              
10902             sub HomeAddressStreet() {
10903             my $self = shift;
10904             if (@_) {
10905             $self->setAttribute('HomeAddressStreet', shift);
10906             }
10907             return $self->getAttribute('HomeAddressStreet');
10908             }
10909              
10910             #===============================================================================
10911             # Rinchi::Outlook::ContactItem::HomeFaxNumber
10912              
10913             =head2 $value = $Object->HomeFaxNumber([$new_value]);
10914              
10915             Set or get value of the HomeFaxNumber attribute.
10916              
10917            
10918             Type: String
10919             Lower: 0
10920             Upper: 1
10921              
10922             =cut
10923              
10924             sub HomeFaxNumber() {
10925             my $self = shift;
10926             if (@_) {
10927             $self->setAttribute('HomeFaxNumber', shift);
10928             }
10929             return $self->getAttribute('HomeFaxNumber');
10930             }
10931              
10932             #===============================================================================
10933             # Rinchi::Outlook::ContactItem::HomeTelephoneNumber
10934              
10935             =head2 $value = $Object->HomeTelephoneNumber([$new_value]);
10936              
10937             Set or get value of the HomeTelephoneNumber attribute.
10938              
10939            
10940             Type: String
10941             Lower: 0
10942             Upper: 1
10943              
10944             =cut
10945              
10946             sub HomeTelephoneNumber() {
10947             my $self = shift;
10948             if (@_) {
10949             $self->setAttribute('HomeTelephoneNumber', shift);
10950             }
10951             return $self->getAttribute('HomeTelephoneNumber');
10952             }
10953              
10954             #===============================================================================
10955             # Rinchi::Outlook::ContactItem::IMAddress
10956              
10957             =head2 $value = $Object->IMAddress([$new_value]);
10958              
10959             Set or get value of the IMAddress attribute.
10960              
10961            
10962             Type: String
10963             Lower: 0
10964             Upper: 1
10965              
10966             =cut
10967              
10968             sub IMAddress() {
10969             my $self = shift;
10970             if (@_) {
10971             $self->setAttribute('IMAddress', shift);
10972             }
10973             return $self->getAttribute('IMAddress');
10974             }
10975              
10976             #===============================================================================
10977             # Rinchi::Outlook::ContactItem::ISDNNumber
10978              
10979             =head2 $value = $Object->ISDNNumber([$new_value]);
10980              
10981             Set or get value of the ISDNNumber attribute.
10982              
10983            
10984             Type: String
10985             Lower: 0
10986             Upper: 1
10987              
10988             =cut
10989              
10990             sub ISDNNumber() {
10991             my $self = shift;
10992             if (@_) {
10993             $self->setAttribute('ISDNNumber', shift);
10994             }
10995             return $self->getAttribute('ISDNNumber');
10996             }
10997              
10998             #===============================================================================
10999             # Rinchi::Outlook::ContactItem::Initials
11000              
11001             =head2 $value = $Object->Initials([$new_value]);
11002              
11003             Set or get value of the Initials attribute.
11004              
11005            
11006             Type: String
11007             Lower: 0
11008             Upper: 1
11009              
11010             =cut
11011              
11012             sub Initials() {
11013             my $self = shift;
11014             if (@_) {
11015             $self->setAttribute('Initials', shift);
11016             }
11017             return $self->getAttribute('Initials');
11018             }
11019              
11020             #===============================================================================
11021             # Rinchi::Outlook::ContactItem::InternetFreeBusyAddress
11022              
11023             =head2 $value = $Object->InternetFreeBusyAddress([$new_value]);
11024              
11025             Set or get value of the InternetFreeBusyAddress attribute.
11026              
11027            
11028             Type: String
11029             Lower: 0
11030             Upper: 1
11031              
11032             =cut
11033              
11034             sub InternetFreeBusyAddress() {
11035             my $self = shift;
11036             if (@_) {
11037             $self->setAttribute('InternetFreeBusyAddress', shift);
11038             }
11039             return $self->getAttribute('InternetFreeBusyAddress');
11040             }
11041              
11042             #===============================================================================
11043             # Rinchi::Outlook::ContactItem::JobTitle
11044              
11045             =head2 $value = $Object->JobTitle([$new_value]);
11046              
11047             Set or get value of the JobTitle attribute.
11048              
11049            
11050             Type: String
11051             Lower: 0
11052             Upper: 1
11053              
11054             =cut
11055              
11056             sub JobTitle() {
11057             my $self = shift;
11058             if (@_) {
11059             $self->setAttribute('JobTitle', shift);
11060             }
11061             return $self->getAttribute('JobTitle');
11062             }
11063              
11064             #===============================================================================
11065             # Rinchi::Outlook::ContactItem::Journal
11066              
11067             =head2 $value = $Object->Journal([$new_value]);
11068              
11069             Set or get value of the Journal attribute.
11070              
11071            
11072             Type: Boolean
11073             Lower: 0
11074             Upper: 1
11075              
11076             =cut
11077              
11078             sub Journal() {
11079             my $self = shift;
11080             if (@_) {
11081             if ($_[0] =~ /^(true|false)$/i ) {
11082             $self->setAttribute('Journal', lc shift);
11083             } else {
11084             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Journal\'';
11085             }
11086             }
11087             return $self->getAttribute('Journal');
11088             }
11089              
11090             #===============================================================================
11091             # Rinchi::Outlook::ContactItem::Language
11092              
11093             =head2 $value = $Object->Language([$new_value]);
11094              
11095             Set or get value of the Language attribute.
11096              
11097            
11098             Type: String
11099             Lower: 0
11100             Upper: 1
11101              
11102             =cut
11103              
11104             sub Language() {
11105             my $self = shift;
11106             if (@_) {
11107             $self->setAttribute('Language', shift);
11108             }
11109             return $self->getAttribute('Language');
11110             }
11111              
11112             #===============================================================================
11113             # Rinchi::Outlook::ContactItem::LastFirstAndSuffix
11114              
11115             =head2 $value = $Object->LastFirstAndSuffix([$new_value]);
11116              
11117             Set or get value of the LastFirstAndSuffix attribute.
11118              
11119            
11120             Type: String
11121             Lower: 0
11122             Upper: 1
11123              
11124             =cut
11125              
11126             sub LastFirstAndSuffix() {
11127             my $self = shift;
11128             if (@_) {
11129             $self->setAttribute('LastFirstAndSuffix', shift);
11130             }
11131             return $self->getAttribute('LastFirstAndSuffix');
11132             }
11133              
11134             #===============================================================================
11135             # Rinchi::Outlook::ContactItem::LastFirstNoSpace
11136              
11137             =head2 $value = $Object->LastFirstNoSpace([$new_value]);
11138              
11139             Set or get value of the LastFirstNoSpace attribute.
11140              
11141            
11142             Type: String
11143             Lower: 0
11144             Upper: 1
11145              
11146             =cut
11147              
11148             sub LastFirstNoSpace() {
11149             my $self = shift;
11150             if (@_) {
11151             $self->setAttribute('LastFirstNoSpace', shift);
11152             }
11153             return $self->getAttribute('LastFirstNoSpace');
11154             }
11155              
11156             #===============================================================================
11157             # Rinchi::Outlook::ContactItem::LastFirstNoSpaceAndSuffix
11158              
11159             =head2 $value = $Object->LastFirstNoSpaceAndSuffix([$new_value]);
11160              
11161             Set or get value of the LastFirstNoSpaceAndSuffix attribute.
11162              
11163            
11164             Type: String
11165             Lower: 0
11166             Upper: 1
11167              
11168             =cut
11169              
11170             sub LastFirstNoSpaceAndSuffix() {
11171             my $self = shift;
11172             if (@_) {
11173             $self->setAttribute('LastFirstNoSpaceAndSuffix', shift);
11174             }
11175             return $self->getAttribute('LastFirstNoSpaceAndSuffix');
11176             }
11177              
11178             #===============================================================================
11179             # Rinchi::Outlook::ContactItem::LastFirstNoSpaceCompany
11180              
11181             =head2 $value = $Object->LastFirstNoSpaceCompany([$new_value]);
11182              
11183             Set or get value of the LastFirstNoSpaceCompany attribute.
11184              
11185            
11186             Type: String
11187             Lower: 0
11188             Upper: 1
11189              
11190             =cut
11191              
11192             sub LastFirstNoSpaceCompany() {
11193             my $self = shift;
11194             if (@_) {
11195             $self->setAttribute('LastFirstNoSpaceCompany', shift);
11196             }
11197             return $self->getAttribute('LastFirstNoSpaceCompany');
11198             }
11199              
11200             #===============================================================================
11201             # Rinchi::Outlook::ContactItem::LastFirstSpaceOnly
11202              
11203             =head2 $value = $Object->LastFirstSpaceOnly([$new_value]);
11204              
11205             Set or get value of the LastFirstSpaceOnly attribute.
11206              
11207            
11208             Type: String
11209             Lower: 0
11210             Upper: 1
11211              
11212             =cut
11213              
11214             sub LastFirstSpaceOnly() {
11215             my $self = shift;
11216             if (@_) {
11217             $self->setAttribute('LastFirstSpaceOnly', shift);
11218             }
11219             return $self->getAttribute('LastFirstSpaceOnly');
11220             }
11221              
11222             #===============================================================================
11223             # Rinchi::Outlook::ContactItem::LastFirstSpaceOnlyCompany
11224              
11225             =head2 $value = $Object->LastFirstSpaceOnlyCompany([$new_value]);
11226              
11227             Set or get value of the LastFirstSpaceOnlyCompany attribute.
11228              
11229            
11230             Type: String
11231             Lower: 0
11232             Upper: 1
11233              
11234             =cut
11235              
11236             sub LastFirstSpaceOnlyCompany() {
11237             my $self = shift;
11238             if (@_) {
11239             $self->setAttribute('LastFirstSpaceOnlyCompany', shift);
11240             }
11241             return $self->getAttribute('LastFirstSpaceOnlyCompany');
11242             }
11243              
11244             #===============================================================================
11245             # Rinchi::Outlook::ContactItem::LastName
11246              
11247             =head2 $value = $Object->LastName([$new_value]);
11248              
11249             Set or get value of the LastName attribute.
11250              
11251            
11252             Type: String
11253             Lower: 0
11254             Upper: 1
11255              
11256             =cut
11257              
11258             sub LastName() {
11259             my $self = shift;
11260             if (@_) {
11261             $self->setAttribute('LastName', shift);
11262             }
11263             return $self->getAttribute('LastName');
11264             }
11265              
11266             #===============================================================================
11267             # Rinchi::Outlook::ContactItem::LastNameAndFirstName
11268              
11269             =head2 $value = $Object->LastNameAndFirstName([$new_value]);
11270              
11271             Set or get value of the LastNameAndFirstName attribute.
11272              
11273            
11274             Type: String
11275             Lower: 0
11276             Upper: 1
11277              
11278             =cut
11279              
11280             sub LastNameAndFirstName() {
11281             my $self = shift;
11282             if (@_) {
11283             $self->setAttribute('LastNameAndFirstName', shift);
11284             }
11285             return $self->getAttribute('LastNameAndFirstName');
11286             }
11287              
11288             #===============================================================================
11289             # Rinchi::Outlook::ContactItem::MailingAddress
11290              
11291             =head2 $value = $Object->MailingAddress([$new_value]);
11292              
11293             Set or get value of the MailingAddress attribute.
11294              
11295            
11296             Type: String
11297             Lower: 0
11298             Upper: 1
11299              
11300             =cut
11301              
11302             sub MailingAddress() {
11303             my $self = shift;
11304             if (@_) {
11305             $self->setAttribute('MailingAddress', shift);
11306             }
11307             return $self->getAttribute('MailingAddress');
11308             }
11309              
11310             #===============================================================================
11311             # Rinchi::Outlook::ContactItem::MailingAddressCity
11312              
11313             =head2 $value = $Object->MailingAddressCity([$new_value]);
11314              
11315             Set or get value of the MailingAddressCity attribute.
11316              
11317            
11318             Type: String
11319             Lower: 0
11320             Upper: 1
11321              
11322             =cut
11323              
11324             sub MailingAddressCity() {
11325             my $self = shift;
11326             if (@_) {
11327             $self->setAttribute('MailingAddressCity', shift);
11328             }
11329             return $self->getAttribute('MailingAddressCity');
11330             }
11331              
11332             #===============================================================================
11333             # Rinchi::Outlook::ContactItem::MailingAddressCountry
11334              
11335             =head2 $value = $Object->MailingAddressCountry([$new_value]);
11336              
11337             Set or get value of the MailingAddressCountry attribute.
11338              
11339            
11340             Type: String
11341             Lower: 0
11342             Upper: 1
11343              
11344             =cut
11345              
11346             sub MailingAddressCountry() {
11347             my $self = shift;
11348             if (@_) {
11349             $self->setAttribute('MailingAddressCountry', shift);
11350             }
11351             return $self->getAttribute('MailingAddressCountry');
11352             }
11353              
11354             #===============================================================================
11355             # Rinchi::Outlook::ContactItem::MailingAddressPostOfficeBox
11356              
11357             =head2 $value = $Object->MailingAddressPostOfficeBox([$new_value]);
11358              
11359             Set or get value of the MailingAddressPostOfficeBox attribute.
11360              
11361            
11362             Type: String
11363             Lower: 0
11364             Upper: 1
11365              
11366             =cut
11367              
11368             sub MailingAddressPostOfficeBox() {
11369             my $self = shift;
11370             if (@_) {
11371             $self->setAttribute('MailingAddressPostOfficeBox', shift);
11372             }
11373             return $self->getAttribute('MailingAddressPostOfficeBox');
11374             }
11375              
11376             #===============================================================================
11377             # Rinchi::Outlook::ContactItem::MailingAddressPostalCode
11378              
11379             =head2 $value = $Object->MailingAddressPostalCode([$new_value]);
11380              
11381             Set or get value of the MailingAddressPostalCode attribute.
11382              
11383            
11384             Type: String
11385             Lower: 0
11386             Upper: 1
11387              
11388             =cut
11389              
11390             sub MailingAddressPostalCode() {
11391             my $self = shift;
11392             if (@_) {
11393             $self->setAttribute('MailingAddressPostalCode', shift);
11394             }
11395             return $self->getAttribute('MailingAddressPostalCode');
11396             }
11397              
11398             #===============================================================================
11399             # Rinchi::Outlook::ContactItem::MailingAddressState
11400              
11401             =head2 $value = $Object->MailingAddressState([$new_value]);
11402              
11403             Set or get value of the MailingAddressState attribute.
11404              
11405            
11406             Type: String
11407             Lower: 0
11408             Upper: 1
11409              
11410             =cut
11411              
11412             sub MailingAddressState() {
11413             my $self = shift;
11414             if (@_) {
11415             $self->setAttribute('MailingAddressState', shift);
11416             }
11417             return $self->getAttribute('MailingAddressState');
11418             }
11419              
11420             #===============================================================================
11421             # Rinchi::Outlook::ContactItem::MailingAddressStreet
11422              
11423             =head2 $value = $Object->MailingAddressStreet([$new_value]);
11424              
11425             Set or get value of the MailingAddressStreet attribute.
11426              
11427            
11428             Type: String
11429             Lower: 0
11430             Upper: 1
11431              
11432             =cut
11433              
11434             sub MailingAddressStreet() {
11435             my $self = shift;
11436             if (@_) {
11437             $self->setAttribute('MailingAddressStreet', shift);
11438             }
11439             return $self->getAttribute('MailingAddressStreet');
11440             }
11441              
11442             #===============================================================================
11443             # Rinchi::Outlook::ContactItem::ManagerName
11444              
11445             =head2 $value = $Object->ManagerName([$new_value]);
11446              
11447             Set or get value of the ManagerName attribute.
11448              
11449            
11450             Type: String
11451             Lower: 0
11452             Upper: 1
11453              
11454             =cut
11455              
11456             sub ManagerName() {
11457             my $self = shift;
11458             if (@_) {
11459             $self->setAttribute('ManagerName', shift);
11460             }
11461             return $self->getAttribute('ManagerName');
11462             }
11463              
11464             #===============================================================================
11465             # Rinchi::Outlook::ContactItem::MiddleName
11466              
11467             =head2 $value = $Object->MiddleName([$new_value]);
11468              
11469             Set or get value of the MiddleName attribute.
11470              
11471            
11472             Type: String
11473             Lower: 0
11474             Upper: 1
11475              
11476             =cut
11477              
11478             sub MiddleName() {
11479             my $self = shift;
11480             if (@_) {
11481             $self->setAttribute('MiddleName', shift);
11482             }
11483             return $self->getAttribute('MiddleName');
11484             }
11485              
11486             #===============================================================================
11487             # Rinchi::Outlook::ContactItem::MobileTelephoneNumber
11488              
11489             =head2 $value = $Object->MobileTelephoneNumber([$new_value]);
11490              
11491             Set or get value of the MobileTelephoneNumber attribute.
11492              
11493            
11494             Type: String
11495             Lower: 0
11496             Upper: 1
11497              
11498             =cut
11499              
11500             sub MobileTelephoneNumber() {
11501             my $self = shift;
11502             if (@_) {
11503             $self->setAttribute('MobileTelephoneNumber', shift);
11504             }
11505             return $self->getAttribute('MobileTelephoneNumber');
11506             }
11507              
11508             #===============================================================================
11509             # Rinchi::Outlook::ContactItem::NetMeetingAlias
11510              
11511             =head2 $value = $Object->NetMeetingAlias([$new_value]);
11512              
11513             Set or get value of the NetMeetingAlias attribute.
11514              
11515            
11516             Type: String
11517             Lower: 0
11518             Upper: 1
11519              
11520             =cut
11521              
11522             sub NetMeetingAlias() {
11523             my $self = shift;
11524             if (@_) {
11525             $self->setAttribute('NetMeetingAlias', shift);
11526             }
11527             return $self->getAttribute('NetMeetingAlias');
11528             }
11529              
11530             #===============================================================================
11531             # Rinchi::Outlook::ContactItem::NetMeetingServer
11532              
11533             =head2 $value = $Object->NetMeetingServer([$new_value]);
11534              
11535             Set or get value of the NetMeetingServer attribute.
11536              
11537            
11538             Type: String
11539             Lower: 0
11540             Upper: 1
11541              
11542             =cut
11543              
11544             sub NetMeetingServer() {
11545             my $self = shift;
11546             if (@_) {
11547             $self->setAttribute('NetMeetingServer', shift);
11548             }
11549             return $self->getAttribute('NetMeetingServer');
11550             }
11551              
11552             #===============================================================================
11553             # Rinchi::Outlook::ContactItem::NickName
11554              
11555             =head2 $value = $Object->NickName([$new_value]);
11556              
11557             Set or get value of the NickName attribute.
11558              
11559            
11560             Type: String
11561             Lower: 0
11562             Upper: 1
11563              
11564             =cut
11565              
11566             sub NickName() {
11567             my $self = shift;
11568             if (@_) {
11569             $self->setAttribute('NickName', shift);
11570             }
11571             return $self->getAttribute('NickName');
11572             }
11573              
11574             #===============================================================================
11575             # Rinchi::Outlook::ContactItem::OfficeLocation
11576              
11577             =head2 $value = $Object->OfficeLocation([$new_value]);
11578              
11579             Set or get value of the OfficeLocation attribute.
11580              
11581            
11582             Type: String
11583             Lower: 0
11584             Upper: 1
11585              
11586             =cut
11587              
11588             sub OfficeLocation() {
11589             my $self = shift;
11590             if (@_) {
11591             $self->setAttribute('OfficeLocation', shift);
11592             }
11593             return $self->getAttribute('OfficeLocation');
11594             }
11595              
11596             #===============================================================================
11597             # Rinchi::Outlook::ContactItem::OrganizationalIDNumber
11598              
11599             =head2 $value = $Object->OrganizationalIDNumber([$new_value]);
11600              
11601             Set or get value of the OrganizationalIDNumber attribute.
11602              
11603            
11604             Type: String
11605             Lower: 0
11606             Upper: 1
11607              
11608             =cut
11609              
11610             sub OrganizationalIDNumber() {
11611             my $self = shift;
11612             if (@_) {
11613             $self->setAttribute('OrganizationalIDNumber', shift);
11614             }
11615             return $self->getAttribute('OrganizationalIDNumber');
11616             }
11617              
11618             #===============================================================================
11619             # Rinchi::Outlook::ContactItem::OtherAddress
11620              
11621             =head2 $value = $Object->OtherAddress([$new_value]);
11622              
11623             Set or get value of the OtherAddress attribute.
11624              
11625            
11626             Type: String
11627             Lower: 0
11628             Upper: 1
11629              
11630             =cut
11631              
11632             sub OtherAddress() {
11633             my $self = shift;
11634             if (@_) {
11635             $self->setAttribute('OtherAddress', shift);
11636             }
11637             return $self->getAttribute('OtherAddress');
11638             }
11639              
11640             #===============================================================================
11641             # Rinchi::Outlook::ContactItem::OtherAddressCity
11642              
11643             =head2 $value = $Object->OtherAddressCity([$new_value]);
11644              
11645             Set or get value of the OtherAddressCity attribute.
11646              
11647            
11648             Type: String
11649             Lower: 0
11650             Upper: 1
11651              
11652             =cut
11653              
11654             sub OtherAddressCity() {
11655             my $self = shift;
11656             if (@_) {
11657             $self->setAttribute('OtherAddressCity', shift);
11658             }
11659             return $self->getAttribute('OtherAddressCity');
11660             }
11661              
11662             #===============================================================================
11663             # Rinchi::Outlook::ContactItem::OtherAddressCountry
11664              
11665             =head2 $value = $Object->OtherAddressCountry([$new_value]);
11666              
11667             Set or get value of the OtherAddressCountry attribute.
11668              
11669            
11670             Type: String
11671             Lower: 0
11672             Upper: 1
11673              
11674             =cut
11675              
11676             sub OtherAddressCountry() {
11677             my $self = shift;
11678             if (@_) {
11679             $self->setAttribute('OtherAddressCountry', shift);
11680             }
11681             return $self->getAttribute('OtherAddressCountry');
11682             }
11683              
11684             #===============================================================================
11685             # Rinchi::Outlook::ContactItem::OtherAddressPostOfficeBox
11686              
11687             =head2 $value = $Object->OtherAddressPostOfficeBox([$new_value]);
11688              
11689             Set or get value of the OtherAddressPostOfficeBox attribute.
11690              
11691            
11692             Type: String
11693             Lower: 0
11694             Upper: 1
11695              
11696             =cut
11697              
11698             sub OtherAddressPostOfficeBox() {
11699             my $self = shift;
11700             if (@_) {
11701             $self->setAttribute('OtherAddressPostOfficeBox', shift);
11702             }
11703             return $self->getAttribute('OtherAddressPostOfficeBox');
11704             }
11705              
11706             #===============================================================================
11707             # Rinchi::Outlook::ContactItem::OtherAddressPostalCode
11708              
11709             =head2 $value = $Object->OtherAddressPostalCode([$new_value]);
11710              
11711             Set or get value of the OtherAddressPostalCode attribute.
11712              
11713            
11714             Type: String
11715             Lower: 0
11716             Upper: 1
11717              
11718             =cut
11719              
11720             sub OtherAddressPostalCode() {
11721             my $self = shift;
11722             if (@_) {
11723             $self->setAttribute('OtherAddressPostalCode', shift);
11724             }
11725             return $self->getAttribute('OtherAddressPostalCode');
11726             }
11727              
11728             #===============================================================================
11729             # Rinchi::Outlook::ContactItem::OtherAddressState
11730              
11731             =head2 $value = $Object->OtherAddressState([$new_value]);
11732              
11733             Set or get value of the OtherAddressState attribute.
11734              
11735            
11736             Type: String
11737             Lower: 0
11738             Upper: 1
11739              
11740             =cut
11741              
11742             sub OtherAddressState() {
11743             my $self = shift;
11744             if (@_) {
11745             $self->setAttribute('OtherAddressState', shift);
11746             }
11747             return $self->getAttribute('OtherAddressState');
11748             }
11749              
11750             #===============================================================================
11751             # Rinchi::Outlook::ContactItem::OtherAddressStreet
11752              
11753             =head2 $value = $Object->OtherAddressStreet([$new_value]);
11754              
11755             Set or get value of the OtherAddressStreet attribute.
11756              
11757            
11758             Type: String
11759             Lower: 0
11760             Upper: 1
11761              
11762             =cut
11763              
11764             sub OtherAddressStreet() {
11765             my $self = shift;
11766             if (@_) {
11767             $self->setAttribute('OtherAddressStreet', shift);
11768             }
11769             return $self->getAttribute('OtherAddressStreet');
11770             }
11771              
11772             #===============================================================================
11773             # Rinchi::Outlook::ContactItem::OtherFaxNumber
11774              
11775             =head2 $value = $Object->OtherFaxNumber([$new_value]);
11776              
11777             Set or get value of the OtherFaxNumber attribute.
11778              
11779            
11780             Type: String
11781             Lower: 0
11782             Upper: 1
11783              
11784             =cut
11785              
11786             sub OtherFaxNumber() {
11787             my $self = shift;
11788             if (@_) {
11789             $self->setAttribute('OtherFaxNumber', shift);
11790             }
11791             return $self->getAttribute('OtherFaxNumber');
11792             }
11793              
11794             #===============================================================================
11795             # Rinchi::Outlook::ContactItem::OtherTelephoneNumber
11796              
11797             =head2 $value = $Object->OtherTelephoneNumber([$new_value]);
11798              
11799             Set or get value of the OtherTelephoneNumber attribute.
11800              
11801            
11802             Type: String
11803             Lower: 0
11804             Upper: 1
11805              
11806             =cut
11807              
11808             sub OtherTelephoneNumber() {
11809             my $self = shift;
11810             if (@_) {
11811             $self->setAttribute('OtherTelephoneNumber', shift);
11812             }
11813             return $self->getAttribute('OtherTelephoneNumber');
11814             }
11815              
11816             #===============================================================================
11817             # Rinchi::Outlook::ContactItem::PagerNumber
11818              
11819             =head2 $value = $Object->PagerNumber([$new_value]);
11820              
11821             Set or get value of the PagerNumber attribute.
11822              
11823            
11824             Type: String
11825             Lower: 0
11826             Upper: 1
11827              
11828             =cut
11829              
11830             sub PagerNumber() {
11831             my $self = shift;
11832             if (@_) {
11833             $self->setAttribute('PagerNumber', shift);
11834             }
11835             return $self->getAttribute('PagerNumber');
11836             }
11837              
11838             #===============================================================================
11839             # Rinchi::Outlook::ContactItem::PersonalHomePage
11840              
11841             =head2 $value = $Object->PersonalHomePage([$new_value]);
11842              
11843             Set or get value of the PersonalHomePage attribute.
11844              
11845            
11846             Type: String
11847             Lower: 0
11848             Upper: 1
11849              
11850             =cut
11851              
11852             sub PersonalHomePage() {
11853             my $self = shift;
11854             if (@_) {
11855             $self->setAttribute('PersonalHomePage', shift);
11856             }
11857             return $self->getAttribute('PersonalHomePage');
11858             }
11859              
11860             #===============================================================================
11861             # Rinchi::Outlook::ContactItem::PrimaryTelephoneNumber
11862              
11863             =head2 $value = $Object->PrimaryTelephoneNumber([$new_value]);
11864              
11865             Set or get value of the PrimaryTelephoneNumber attribute.
11866              
11867            
11868             Type: String
11869             Lower: 0
11870             Upper: 1
11871              
11872             =cut
11873              
11874             sub PrimaryTelephoneNumber() {
11875             my $self = shift;
11876             if (@_) {
11877             $self->setAttribute('PrimaryTelephoneNumber', shift);
11878             }
11879             return $self->getAttribute('PrimaryTelephoneNumber');
11880             }
11881              
11882             #===============================================================================
11883             # Rinchi::Outlook::ContactItem::Profession
11884              
11885             =head2 $value = $Object->Profession([$new_value]);
11886              
11887             Set or get value of the Profession attribute.
11888              
11889            
11890             Type: String
11891             Lower: 0
11892             Upper: 1
11893              
11894             =cut
11895              
11896             sub Profession() {
11897             my $self = shift;
11898             if (@_) {
11899             $self->setAttribute('Profession', shift);
11900             }
11901             return $self->getAttribute('Profession');
11902             }
11903              
11904             #===============================================================================
11905             # Rinchi::Outlook::ContactItem::RadioTelephoneNumber
11906              
11907             =head2 $value = $Object->RadioTelephoneNumber([$new_value]);
11908              
11909             Set or get value of the RadioTelephoneNumber attribute.
11910              
11911            
11912             Type: String
11913             Lower: 0
11914             Upper: 1
11915              
11916             =cut
11917              
11918             sub RadioTelephoneNumber() {
11919             my $self = shift;
11920             if (@_) {
11921             $self->setAttribute('RadioTelephoneNumber', shift);
11922             }
11923             return $self->getAttribute('RadioTelephoneNumber');
11924             }
11925              
11926             #===============================================================================
11927             # Rinchi::Outlook::ContactItem::ReferredBy
11928              
11929             =head2 $value = $Object->ReferredBy([$new_value]);
11930              
11931             Set or get value of the ReferredBy attribute.
11932              
11933            
11934             Type: String
11935             Lower: 0
11936             Upper: 1
11937              
11938             =cut
11939              
11940             sub ReferredBy() {
11941             my $self = shift;
11942             if (@_) {
11943             $self->setAttribute('ReferredBy', shift);
11944             }
11945             return $self->getAttribute('ReferredBy');
11946             }
11947              
11948             #===============================================================================
11949             # Rinchi::Outlook::ContactItem::SelectedMailingAddress
11950              
11951             =head2 $value = $Object->SelectedMailingAddress([$new_value]);
11952              
11953             Set or get value of the SelectedMailingAddress attribute.
11954              
11955            
11956             Type: OlMailingAddress
11957             Lower: 0
11958             Upper: 1
11959              
11960             =cut
11961              
11962             sub SelectedMailingAddress() {
11963             my $self = shift;
11964             if (@_) {
11965             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
11966             $self->setAttribute('SelectedMailingAddress', shift);
11967             } else {
11968             if(ref($_[0])) {
11969             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlMailingAddress\' for attribute \'SelectedMailingAddress\'';
11970             } else {
11971             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlMailingAddress\' for attribute \'SelectedMailingAddress\'';
11972             }
11973             }
11974             }
11975             return $self->getAttribute('SelectedMailingAddress');
11976             }
11977              
11978             #===============================================================================
11979             # Rinchi::Outlook::ContactItem::Spouse
11980              
11981             =head2 $value = $Object->Spouse([$new_value]);
11982              
11983             Set or get value of the Spouse attribute.
11984              
11985            
11986             Type: String
11987             Lower: 0
11988             Upper: 1
11989              
11990             =cut
11991              
11992             sub Spouse() {
11993             my $self = shift;
11994             if (@_) {
11995             $self->setAttribute('Spouse', shift);
11996             }
11997             return $self->getAttribute('Spouse');
11998             }
11999              
12000             #===============================================================================
12001             # Rinchi::Outlook::ContactItem::Suffix
12002              
12003             =head2 $value = $Object->Suffix([$new_value]);
12004              
12005             Set or get value of the Suffix attribute.
12006              
12007            
12008             Type: String
12009             Lower: 0
12010             Upper: 1
12011              
12012             =cut
12013              
12014             sub Suffix() {
12015             my $self = shift;
12016             if (@_) {
12017             $self->setAttribute('Suffix', shift);
12018             }
12019             return $self->getAttribute('Suffix');
12020             }
12021              
12022             #===============================================================================
12023             # Rinchi::Outlook::ContactItem::TTYTDDTelephoneNumber
12024              
12025             =head2 $value = $Object->TTYTDDTelephoneNumber([$new_value]);
12026              
12027             Set or get value of the TTYTDDTelephoneNumber attribute.
12028              
12029            
12030             Type: String
12031             Lower: 0
12032             Upper: 1
12033              
12034             =cut
12035              
12036             sub TTYTDDTelephoneNumber() {
12037             my $self = shift;
12038             if (@_) {
12039             $self->setAttribute('TTYTDDTelephoneNumber', shift);
12040             }
12041             return $self->getAttribute('TTYTDDTelephoneNumber');
12042             }
12043              
12044             #===============================================================================
12045             # Rinchi::Outlook::ContactItem::TelexNumber
12046              
12047             =head2 $value = $Object->TelexNumber([$new_value]);
12048              
12049             Set or get value of the TelexNumber attribute.
12050              
12051            
12052             Type: String
12053             Lower: 0
12054             Upper: 1
12055              
12056             =cut
12057              
12058             sub TelexNumber() {
12059             my $self = shift;
12060             if (@_) {
12061             $self->setAttribute('TelexNumber', shift);
12062             }
12063             return $self->getAttribute('TelexNumber');
12064             }
12065              
12066             #===============================================================================
12067             # Rinchi::Outlook::ContactItem::Title
12068              
12069             =head2 $value = $Object->Title([$new_value]);
12070              
12071             Set or get value of the Title attribute.
12072              
12073            
12074             Type: String
12075             Lower: 0
12076             Upper: 1
12077              
12078             =cut
12079              
12080             sub Title() {
12081             my $self = shift;
12082             if (@_) {
12083             $self->setAttribute('Title', shift);
12084             }
12085             return $self->getAttribute('Title');
12086             }
12087              
12088             #===============================================================================
12089             # Rinchi::Outlook::ContactItem::User1
12090              
12091             =head2 $value = $Object->User1([$new_value]);
12092              
12093             Set or get value of the User1 attribute.
12094              
12095            
12096             Type: String
12097             Lower: 0
12098             Upper: 1
12099              
12100             =cut
12101              
12102             sub User1() {
12103             my $self = shift;
12104             if (@_) {
12105             $self->setAttribute('User1', shift);
12106             }
12107             return $self->getAttribute('User1');
12108             }
12109              
12110             #===============================================================================
12111             # Rinchi::Outlook::ContactItem::User2
12112              
12113             =head2 $value = $Object->User2([$new_value]);
12114              
12115             Set or get value of the User2 attribute.
12116              
12117            
12118             Type: String
12119             Lower: 0
12120             Upper: 1
12121              
12122             =cut
12123              
12124             sub User2() {
12125             my $self = shift;
12126             if (@_) {
12127             $self->setAttribute('User2', shift);
12128             }
12129             return $self->getAttribute('User2');
12130             }
12131              
12132             #===============================================================================
12133             # Rinchi::Outlook::ContactItem::User3
12134              
12135             =head2 $value = $Object->User3([$new_value]);
12136              
12137             Set or get value of the User3 attribute.
12138              
12139            
12140             Type: String
12141             Lower: 0
12142             Upper: 1
12143              
12144             =cut
12145              
12146             sub User3() {
12147             my $self = shift;
12148             if (@_) {
12149             $self->setAttribute('User3', shift);
12150             }
12151             return $self->getAttribute('User3');
12152             }
12153              
12154             #===============================================================================
12155             # Rinchi::Outlook::ContactItem::User4
12156              
12157             =head2 $value = $Object->User4([$new_value]);
12158              
12159             Set or get value of the User4 attribute.
12160              
12161            
12162             Type: String
12163             Lower: 0
12164             Upper: 1
12165              
12166             =cut
12167              
12168             sub User4() {
12169             my $self = shift;
12170             if (@_) {
12171             $self->setAttribute('User4', shift);
12172             }
12173             return $self->getAttribute('User4');
12174             }
12175              
12176             #===============================================================================
12177             # Rinchi::Outlook::ContactItem::UserCertificate
12178              
12179             =head2 $value = $Object->UserCertificate([$new_value]);
12180              
12181             Set or get value of the UserCertificate attribute.
12182              
12183            
12184             Type: String
12185             Lower: 0
12186             Upper: 1
12187              
12188             =cut
12189              
12190             sub UserCertificate() {
12191             my $self = shift;
12192             if (@_) {
12193             $self->setAttribute('UserCertificate', shift);
12194             }
12195             return $self->getAttribute('UserCertificate');
12196             }
12197              
12198             #===============================================================================
12199             # Rinchi::Outlook::ContactItem::WebPage
12200              
12201             =head2 $value = $Object->WebPage([$new_value]);
12202              
12203             Set or get value of the WebPage attribute.
12204              
12205            
12206             Type: String
12207             Lower: 0
12208             Upper: 1
12209              
12210             =cut
12211              
12212             sub WebPage() {
12213             my $self = shift;
12214             if (@_) {
12215             $self->setAttribute('WebPage', shift);
12216             }
12217             return $self->getAttribute('WebPage');
12218             }
12219              
12220             #===============================================================================
12221             # Rinchi::Outlook::ContactItem::YomiCompanyName
12222              
12223             =head2 $value = $Object->YomiCompanyName([$new_value]);
12224              
12225             Set or get value of the YomiCompanyName attribute.
12226              
12227            
12228             Type: String
12229             Lower: 0
12230             Upper: 1
12231              
12232             =cut
12233              
12234             sub YomiCompanyName() {
12235             my $self = shift;
12236             if (@_) {
12237             $self->setAttribute('YomiCompanyName', shift);
12238             }
12239             return $self->getAttribute('YomiCompanyName');
12240             }
12241              
12242             #===============================================================================
12243             # Rinchi::Outlook::ContactItem::YomiFirstName
12244              
12245             =head2 $value = $Object->YomiFirstName([$new_value]);
12246              
12247             Set or get value of the YomiFirstName attribute.
12248              
12249            
12250             Type: String
12251             Lower: 0
12252             Upper: 1
12253              
12254             =cut
12255              
12256             sub YomiFirstName() {
12257             my $self = shift;
12258             if (@_) {
12259             $self->setAttribute('YomiFirstName', shift);
12260             }
12261             return $self->getAttribute('YomiFirstName');
12262             }
12263              
12264             #===============================================================================
12265             # Rinchi::Outlook::ContactItem::YomiLastName
12266              
12267             =head2 $value = $Object->YomiLastName([$new_value]);
12268              
12269             Set or get value of the YomiLastName attribute.
12270              
12271            
12272             Type: String
12273             Lower: 0
12274             Upper: 1
12275              
12276             =cut
12277              
12278             sub YomiLastName() {
12279             my $self = shift;
12280             if (@_) {
12281             $self->setAttribute('YomiLastName', shift);
12282             }
12283             return $self->getAttribute('YomiLastName');
12284             }
12285              
12286             ##END_PACKAGE ContactItem
12287              
12288             #===============================================================================
12289             # Generated by Hymnos Perl Code Generator
12290             # UML Model UUID: d5daeb96-3c43-11dd-aaa8-001c25551abc
12291              
12292             package Rinchi::Outlook::DistListItem;
12293              
12294             use Carp;
12295              
12296             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
12297             our @EXPORT = qw();
12298             our @EXPORT_OK = qw();
12299              
12300             =head1 DESCRIPTION of DistListItem
12301              
12302             Rinchi::Outlook::DistListItem is used for representing DistListItem objects. A
12303             DistListItem object represents a distribution list in a contacts folder. A
12304             distribution list can contain multiple recipients and is used to send messages
12305             to everyone in the list.
12306              
12307             =head1 METHODS for DistListItem objects
12308              
12309             =cut
12310              
12311             #===============================================================================
12312              
12313             {
12314             no strict "refs";
12315             *TAG_NAME = sub { return 'dist-list-item'; };
12316             }
12317              
12318             #===============================================================================
12319             # Rinchi::Outlook::DistListItem::CheckSum
12320              
12321             =head2 $value = $Object->CheckSum([$new_value]);
12322              
12323             Set or get value of the CheckSum attribute.
12324              
12325            
12326             Type: Long
12327             Lower: 0
12328             Upper: 1
12329              
12330             =cut
12331              
12332             sub CheckSum() {
12333             my $self = shift;
12334             if (@_) {
12335             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
12336             $self->setAttribute('CheckSum', shift);
12337             } else {
12338             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'CheckSum\'';
12339             }
12340             }
12341             return $self->getAttribute('CheckSum');
12342             }
12343              
12344             #===============================================================================
12345             # Rinchi::Outlook::DistListItem::DLName
12346              
12347             =head2 $value = $Object->DLName([$new_value]);
12348              
12349             Set or get value of the DLName attribute.
12350              
12351            
12352             Type: String
12353             Lower: 0
12354             Upper: 1
12355              
12356             =cut
12357              
12358             sub DLName() {
12359             my $self = shift;
12360             if (@_) {
12361             $self->setAttribute('DLName', shift);
12362             }
12363             return $self->getAttribute('DLName');
12364             }
12365              
12366             #===============================================================================
12367             # Rinchi::Outlook::DistListItem::MemberCount
12368              
12369             =head2 $value = $Object->MemberCount([$new_value]);
12370              
12371             Set or get value of the MemberCount attribute.
12372              
12373            
12374             Type: Long
12375             Lower: 0
12376             Upper: 1
12377              
12378             =cut
12379              
12380             sub MemberCount() {
12381             my $self = shift;
12382             if (@_) {
12383             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
12384             $self->setAttribute('MemberCount', shift);
12385             } else {
12386             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'MemberCount\'';
12387             }
12388             }
12389             return $self->getAttribute('MemberCount');
12390             }
12391              
12392             #===============================================================================
12393             # Rinchi::Outlook::DistListItem::Members
12394              
12395             =head2 $value = $Object->Members([$new_value]);
12396              
12397             Set or get value of the Members attribute.
12398              
12399            
12400             Type: Variant
12401             Lower: 0
12402             Upper: 1
12403              
12404             =cut
12405              
12406             sub Members() {
12407             my $self = shift;
12408             if (@_) {
12409             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
12410             if ('Rinchi::Outlook::Variant' =~ /$regexp/ ) {
12411             $self->attribute_as_element('Members', shift);
12412             } else {
12413             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Variant\' for attribute \'Members\'';
12414             }
12415             }
12416             return $self->attribute_as_element('Members');
12417             }
12418              
12419             #===============================================================================
12420             # Rinchi::Outlook::DistListItem::OneOffMembers
12421              
12422             =head2 $value = $Object->OneOffMembers([$new_value]);
12423              
12424             Set or get value of the OneOffMembers attribute.
12425              
12426            
12427             Type: Variant
12428             Lower: 0
12429             Upper: 1
12430              
12431             =cut
12432              
12433             sub OneOffMembers() {
12434             my $self = shift;
12435             if (@_) {
12436             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
12437             if ('Rinchi::Outlook::Variant' =~ /$regexp/ ) {
12438             $self->attribute_as_element('OneOffMembers', shift);
12439             } else {
12440             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Variant\' for attribute \'OneOffMembers\'';
12441             }
12442             }
12443             return $self->attribute_as_element('OneOffMembers');
12444             }
12445              
12446             ##END_PACKAGE DistListItem
12447              
12448             #===============================================================================
12449             # Generated by Hymnos Perl Code Generator
12450             # UML Model UUID: d5db1a6c-3c43-11dd-9a98-001c25551abc
12451              
12452             package Rinchi::Outlook::DocumentItem;
12453              
12454             use Carp;
12455              
12456             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
12457             our @EXPORT = qw();
12458             our @EXPORT_OK = qw();
12459              
12460             =head1 DESCRIPTION of DocumentItem
12461              
12462             Rinchi::Outlook::DocumentItem is used for representing DocumentItem objects. A DocumentItem object is any document other than a Microsoft Outlook item as an item in an Outlook folder. In common usage, this will be an Office document but may be any type of document or executable file.
12463              
12464             Note When you try to programmatically add a user-defined property to a DocumentItem object, you receive the following error message: "Property is read-only." This is because the Outlook object model does not support this functionality.
12465             Example
12466              
12467             The following Visual Basic for Applications (VBA) example shows how to create a DocumentItem.
12468              
12469             Sub AddDocItem()
12470             Dim outApp As New Outlook.Application
12471             Dim nsp As Outlook.NameSpace
12472             Dim mpfInbox As Outlook.MAPIFolder
12473             Dim doci As Outlook.DocumentItem
12474            
12475             Set nsp = outApp.GetNamespace("MAPI")
12476             Set mpfInbox = nsp.GetDefaultFolder(olFolderInbox)
12477             Set doci = mpfInbox.Items.Add(olWordDocumentItem)
12478             doci.Subject = "Word Document Item"
12479             doci.Save
12480             End Sub
12481              
12482              
12483             =cut
12484              
12485             #===============================================================================
12486              
12487             {
12488             no strict "refs";
12489             *TAG_NAME = sub { return 'document-item'; };
12490             }
12491              
12492             ##END_PACKAGE DocumentItem
12493              
12494             #===============================================================================
12495             # Generated by Hymnos Perl Code Generator
12496             # UML Model UUID: d5dce770-3c43-11dd-bc44-001c25551abc
12497              
12498             package Rinchi::Outlook::JournalItem;
12499              
12500             use Carp;
12501              
12502             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
12503             our @EXPORT = qw();
12504             our @EXPORT_OK = qw();
12505              
12506             =head1 DESCRIPTION of JournalItem class
12507              
12508             Rinchi::Outlook::JournalItem is used for representing JournalItem objects.
12509             Represents a journal entry in a Journal folder. A journal entry represents a
12510             record of all Microsoft Outlook-moderated transactions for any given period.
12511              
12512             =head1 METHODS for JournalItem objects
12513              
12514             =cut
12515              
12516             #===============================================================================
12517              
12518             {
12519             no strict "refs";
12520             *TAG_NAME = sub { return 'journal-item'; };
12521             }
12522              
12523             #===============================================================================
12524             # Rinchi::Outlook::JournalItem::ContactNames
12525              
12526             =head2 $value = $Object->ContactNames([$new_value]);
12527              
12528             Set or get value of the ContactNames attribute.
12529              
12530            
12531             Type: String
12532             Lower: 0
12533             Upper: 1
12534              
12535             =cut
12536              
12537             sub ContactNames() {
12538             my $self = shift;
12539             if (@_) {
12540             $self->setAttribute('ContactNames', shift);
12541             }
12542             return $self->getAttribute('ContactNames');
12543             }
12544              
12545             #===============================================================================
12546             # Rinchi::Outlook::JournalItem::DocPosted
12547              
12548             =head2 $value = $Object->DocPosted([$new_value]);
12549              
12550             Set or get value of the DocPosted attribute.
12551              
12552            
12553             Type: Boolean
12554             Lower: 0
12555             Upper: 1
12556              
12557             =cut
12558              
12559             sub DocPosted() {
12560             my $self = shift;
12561             if (@_) {
12562             if ($_[0] =~ /^(true|false)$/i ) {
12563             $self->setAttribute('DocPosted', lc shift);
12564             } else {
12565             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'DocPosted\'';
12566             }
12567             }
12568             return $self->getAttribute('DocPosted');
12569             }
12570              
12571             #===============================================================================
12572             # Rinchi::Outlook::JournalItem::DocPrinted
12573              
12574             =head2 $value = $Object->DocPrinted([$new_value]);
12575              
12576             Set or get value of the DocPrinted attribute.
12577              
12578            
12579             Type: Boolean
12580             Lower: 0
12581             Upper: 1
12582              
12583             =cut
12584              
12585             sub DocPrinted() {
12586             my $self = shift;
12587             if (@_) {
12588             if ($_[0] =~ /^(true|false)$/i ) {
12589             $self->setAttribute('DocPrinted', lc shift);
12590             } else {
12591             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'DocPrinted\'';
12592             }
12593             }
12594             return $self->getAttribute('DocPrinted');
12595             }
12596              
12597             #===============================================================================
12598             # Rinchi::Outlook::JournalItem::DocRouted
12599              
12600             =head2 $value = $Object->DocRouted([$new_value]);
12601              
12602             Set or get value of the DocRouted attribute.
12603              
12604            
12605             Type: Boolean
12606             Lower: 0
12607             Upper: 1
12608              
12609             =cut
12610              
12611             sub DocRouted() {
12612             my $self = shift;
12613             if (@_) {
12614             if ($_[0] =~ /^(true|false)$/i ) {
12615             $self->setAttribute('DocRouted', lc shift);
12616             } else {
12617             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'DocRouted\'';
12618             }
12619             }
12620             return $self->getAttribute('DocRouted');
12621             }
12622              
12623             #===============================================================================
12624             # Rinchi::Outlook::JournalItem::DocSaved
12625              
12626             =head2 $value = $Object->DocSaved([$new_value]);
12627              
12628             Set or get value of the DocSaved attribute.
12629              
12630            
12631             Type: Boolean
12632             Lower: 0
12633             Upper: 1
12634              
12635             =cut
12636              
12637             sub DocSaved() {
12638             my $self = shift;
12639             if (@_) {
12640             if ($_[0] =~ /^(true|false)$/i ) {
12641             $self->setAttribute('DocSaved', lc shift);
12642             } else {
12643             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'DocSaved\'';
12644             }
12645             }
12646             return $self->getAttribute('DocSaved');
12647             }
12648              
12649             #===============================================================================
12650             # Rinchi::Outlook::JournalItem::Duration
12651              
12652             =head2 $value = $Object->Duration([$new_value]);
12653              
12654             Set or get value of the Duration attribute.
12655              
12656            
12657             Type: Long
12658             Lower: 0
12659             Upper: 1
12660              
12661             =cut
12662              
12663             sub Duration() {
12664             my $self = shift;
12665             if (@_) {
12666             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
12667             $self->setAttribute('Duration', shift);
12668             } else {
12669             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Duration\'';
12670             }
12671             }
12672             return $self->getAttribute('Duration');
12673             }
12674              
12675             #===============================================================================
12676             # Rinchi::Outlook::JournalItem::End
12677              
12678             =head2 $value = $Object->End([$new_value]);
12679              
12680             Set or get value of the End attribute.
12681              
12682            
12683             Type: VT_DATE
12684             Lower: 0
12685             Upper: 1
12686              
12687             =cut
12688              
12689             sub End() {
12690             my $self = shift;
12691             if (@_) {
12692             $self->setAttribute('End', shift);
12693             }
12694             return $self->getAttribute('End');
12695             }
12696              
12697             #===============================================================================
12698             # Rinchi::Outlook::JournalItem::Recipients
12699              
12700             =head2 $Element = $Object->Recipients();
12701              
12702             Set or get value of the Recipients attribute.
12703              
12704            
12705             Type: Recipients
12706             Lower: 0
12707             Upper: 1
12708              
12709             =cut
12710              
12711             sub Recipients() {
12712             my $self = shift;
12713             return $self->get_collection('Recipients','recipients');
12714             }
12715              
12716             #===============================================================================
12717             # Rinchi::Outlook::JournalItem::Start
12718              
12719             =head2 $value = $Object->Start([$new_value]);
12720              
12721             Set or get value of the Start attribute.
12722              
12723            
12724             Type: VT_DATE
12725             Lower: 0
12726             Upper: 1
12727              
12728             =cut
12729              
12730             sub Start() {
12731             my $self = shift;
12732             if (@_) {
12733             $self->setAttribute('Start', shift);
12734             }
12735             return $self->getAttribute('Start');
12736             }
12737              
12738             #===============================================================================
12739             # Rinchi::Outlook::JournalItem::Type
12740              
12741             =head2 $value = $Object->Type([$new_value]);
12742              
12743             Set or get value of the Type attribute.
12744              
12745            
12746             Type: String
12747             Lower: 0
12748             Upper: 1
12749              
12750             =cut
12751              
12752             sub Type() {
12753             my $self = shift;
12754             if (@_) {
12755             $self->setAttribute('Type', shift);
12756             }
12757             return $self->getAttribute('Type');
12758             }
12759              
12760             ##END_PACKAGE JournalItem
12761              
12762             #===============================================================================
12763             # Generated by Hymnos Perl Code Generator
12764             # UML Model UUID: d5dd253c-3c43-11dd-bbbf-001c25551abc
12765              
12766             package Rinchi::Outlook::MailItem;
12767              
12768             use Carp;
12769              
12770             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
12771             our @EXPORT = qw();
12772             our @EXPORT_OK = qw();
12773              
12774             =head1 DESCRIPTION of MailItem
12775              
12776             Rinchi::Outlook::MailItem is used for representing MailItem objects. A MailItem
12777             object Represents a mail message in an Inbox (mail) folder.
12778              
12779             =head1 METHODS for MailItem objects
12780              
12781             =cut
12782              
12783             #===============================================================================
12784              
12785             {
12786             no strict "refs";
12787             *TAG_NAME = sub { return 'mail-item'; };
12788             }
12789              
12790             #===============================================================================
12791             # Rinchi::Outlook::MailItem::AlternateRecipientAllowed
12792              
12793             =head2 $value = $Object->AlternateRecipientAllowed([$new_value]);
12794              
12795             Set or get value of the AlternateRecipientAllowed attribute.
12796              
12797            
12798             Type: Boolean
12799             Lower: 0
12800             Upper: 1
12801              
12802             =cut
12803              
12804             sub AlternateRecipientAllowed() {
12805             my $self = shift;
12806             if (@_) {
12807             if ($_[0] =~ /^(true|false)$/i ) {
12808             $self->setAttribute('AlternateRecipientAllowed', lc shift);
12809             } else {
12810             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'AlternateRecipientAllowed\'';
12811             }
12812             }
12813             return $self->getAttribute('AlternateRecipientAllowed');
12814             }
12815              
12816             #===============================================================================
12817             # Rinchi::Outlook::MailItem::AutoForwarded
12818              
12819             =head2 $value = $Object->AutoForwarded([$new_value]);
12820              
12821             Set or get value of the AutoForwarded attribute.
12822              
12823            
12824             Type: Boolean
12825             Lower: 0
12826             Upper: 1
12827              
12828             =cut
12829              
12830             sub AutoForwarded() {
12831             my $self = shift;
12832             if (@_) {
12833             if ($_[0] =~ /^(true|false)$/i ) {
12834             $self->setAttribute('AutoForwarded', lc shift);
12835             } else {
12836             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'AutoForwarded\'';
12837             }
12838             }
12839             return $self->getAttribute('AutoForwarded');
12840             }
12841              
12842             #===============================================================================
12843             # Rinchi::Outlook::MailItem::BCC
12844              
12845             =head2 $value = $Object->BCC([$new_value]);
12846              
12847             Set or get value of the BCC attribute.
12848              
12849            
12850             Type: String
12851             Lower: 0
12852             Upper: 1
12853              
12854             =cut
12855              
12856             sub BCC() {
12857             my $self = shift;
12858             if (@_) {
12859             $self->setAttribute('BCC', shift);
12860             }
12861             return $self->getAttribute('BCC');
12862             }
12863              
12864             #===============================================================================
12865             # Rinchi::Outlook::MailItem::BodyFormat
12866              
12867             =head2 $value = $Object->BodyFormat([$new_value]);
12868              
12869             Set or get value of the BodyFormat attribute.
12870              
12871            
12872             Type: OlBodyFormat
12873             Lower: 0
12874             Upper: 1
12875              
12876             =cut
12877              
12878             sub BodyFormat() {
12879             my $self = shift;
12880             if (@_) {
12881             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
12882             $self->setAttribute('BodyFormat', shift);
12883             } else {
12884             if(ref($_[0])) {
12885             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlBodyFormat\' for attribute \'BodyFormat\'';
12886             } else {
12887             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlBodyFormat\' for attribute \'BodyFormat\'';
12888             }
12889             }
12890             }
12891             return $self->getAttribute('BodyFormat');
12892             }
12893              
12894             #===============================================================================
12895             # Rinchi::Outlook::MailItem::CC
12896              
12897             =head2 $value = $Object->CC([$new_value]);
12898              
12899             Set or get value of the CC attribute.
12900              
12901            
12902             Type: String
12903             Lower: 0
12904             Upper: 1
12905              
12906             =cut
12907              
12908             sub CC() {
12909             my $self = shift;
12910             if (@_) {
12911             $self->setAttribute('CC', shift);
12912             }
12913             return $self->getAttribute('CC');
12914             }
12915              
12916             #===============================================================================
12917             # Rinchi::Outlook::MailItem::DeferredDeliveryTime
12918              
12919             =head2 $value = $Object->DeferredDeliveryTime([$new_value]);
12920              
12921             Set or get value of the DeferredDeliveryTime attribute.
12922              
12923            
12924             Type: VT_DATE
12925             Lower: 0
12926             Upper: 1
12927              
12928             =cut
12929              
12930             sub DeferredDeliveryTime() {
12931             my $self = shift;
12932             if (@_) {
12933             $self->setAttribute('DeferredDeliveryTime', shift);
12934             }
12935             return $self->getAttribute('DeferredDeliveryTime');
12936             }
12937              
12938             #===============================================================================
12939             # Rinchi::Outlook::MailItem::DeleteAfterSubmit
12940              
12941             =head2 $value = $Object->DeleteAfterSubmit([$new_value]);
12942              
12943             Set or get value of the DeleteAfterSubmit attribute.
12944              
12945            
12946             Type: Boolean
12947             Lower: 0
12948             Upper: 1
12949              
12950             =cut
12951              
12952             sub DeleteAfterSubmit() {
12953             my $self = shift;
12954             if (@_) {
12955             if ($_[0] =~ /^(true|false)$/i ) {
12956             $self->setAttribute('DeleteAfterSubmit', lc shift);
12957             } else {
12958             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'DeleteAfterSubmit\'';
12959             }
12960             }
12961             return $self->getAttribute('DeleteAfterSubmit');
12962             }
12963              
12964             #===============================================================================
12965             # Rinchi::Outlook::MailItem::EnableSharedAttachments
12966              
12967             =head2 $value = $Object->EnableSharedAttachments([$new_value]);
12968              
12969             Set or get value of the EnableSharedAttachments attribute.
12970              
12971            
12972             Type: Boolean
12973             Lower: 0
12974             Upper: 1
12975              
12976             =cut
12977              
12978             sub EnableSharedAttachments() {
12979             my $self = shift;
12980             if (@_) {
12981             if ($_[0] =~ /^(true|false)$/i ) {
12982             $self->setAttribute('EnableSharedAttachments', lc shift);
12983             } else {
12984             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'EnableSharedAttachments\'';
12985             }
12986             }
12987             return $self->getAttribute('EnableSharedAttachments');
12988             }
12989              
12990             #===============================================================================
12991             # Rinchi::Outlook::MailItem::ExpiryTime
12992              
12993             =head2 $value = $Object->ExpiryTime([$new_value]);
12994              
12995             Set or get value of the ExpiryTime attribute.
12996              
12997            
12998             Type: VT_DATE
12999             Lower: 0
13000             Upper: 1
13001              
13002             =cut
13003              
13004             sub ExpiryTime() {
13005             my $self = shift;
13006             if (@_) {
13007             $self->setAttribute('ExpiryTime', shift);
13008             }
13009             return $self->getAttribute('ExpiryTime');
13010             }
13011              
13012             #===============================================================================
13013             # Rinchi::Outlook::MailItem::FlagDueBy
13014              
13015             =head2 $value = $Object->FlagDueBy([$new_value]);
13016              
13017             Set or get value of the FlagDueBy attribute.
13018              
13019            
13020             Type: VT_DATE
13021             Lower: 0
13022             Upper: 1
13023              
13024             =cut
13025              
13026             sub FlagDueBy() {
13027             my $self = shift;
13028             if (@_) {
13029             $self->setAttribute('FlagDueBy', shift);
13030             }
13031             return $self->getAttribute('FlagDueBy');
13032             }
13033              
13034             #===============================================================================
13035             # Rinchi::Outlook::MailItem::FlagIcon
13036              
13037             =head2 $value = $Object->FlagIcon([$new_value]);
13038              
13039             Set or get value of the FlagIcon attribute.
13040              
13041            
13042             Type: OlFlagIcon
13043             Lower: 0
13044             Upper: 1
13045              
13046             =cut
13047              
13048             sub FlagIcon() {
13049             my $self = shift;
13050             if (@_) {
13051             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
13052             $self->setAttribute('FlagIcon', shift);
13053             } else {
13054             if(ref($_[0])) {
13055             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlFlagIcon\' for attribute \'FlagIcon\'';
13056             } else {
13057             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlFlagIcon\' for attribute \'FlagIcon\'';
13058             }
13059             }
13060             }
13061             return $self->getAttribute('FlagIcon');
13062             }
13063              
13064             #===============================================================================
13065             # Rinchi::Outlook::MailItem::FlagRequest
13066              
13067             =head2 $value = $Object->FlagRequest([$new_value]);
13068              
13069             Set or get value of the FlagRequest attribute.
13070              
13071            
13072             Type: String
13073             Lower: 0
13074             Upper: 1
13075              
13076             =cut
13077              
13078             sub FlagRequest() {
13079             my $self = shift;
13080             if (@_) {
13081             $self->setAttribute('FlagRequest', shift);
13082             }
13083             return $self->getAttribute('FlagRequest');
13084             }
13085              
13086             #===============================================================================
13087             # Rinchi::Outlook::MailItem::FlagStatus
13088              
13089             =head2 $value = $Object->FlagStatus([$new_value]);
13090              
13091             Set or get value of the FlagStatus attribute.
13092              
13093            
13094             Type: OlFlagStatus
13095             Lower: 0
13096             Upper: 1
13097              
13098             =cut
13099              
13100             sub FlagStatus() {
13101             my $self = shift;
13102             if (@_) {
13103             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
13104             $self->setAttribute('FlagStatus', shift);
13105             } else {
13106             if(ref($_[0])) {
13107             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlFlagStatus\' for attribute \'FlagStatus\'';
13108             } else {
13109             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlFlagStatus\' for attribute \'FlagStatus\'';
13110             }
13111             }
13112             }
13113             return $self->getAttribute('FlagStatus');
13114             }
13115              
13116             #===============================================================================
13117             # Rinchi::Outlook::MailItem::HTMLBody
13118              
13119             =head2 $value = $Object->HTMLBody([$new_value]);
13120              
13121             Set or get value of the HTMLBody attribute.
13122              
13123            
13124             Type: String
13125             Lower: 0
13126             Upper: 1
13127              
13128             =cut
13129              
13130             sub HTMLBody() {
13131             my $self = shift;
13132             if (@_) {
13133             $self->setAttribute('HTMLBody', shift);
13134             }
13135             return $self->getAttribute('HTMLBody');
13136             }
13137              
13138             #===============================================================================
13139             # Rinchi::Outlook::MailItem::HasCoverSheet
13140              
13141             =head2 $value = $Object->HasCoverSheet([$new_value]);
13142              
13143             Set or get value of the HasCoverSheet attribute.
13144              
13145            
13146             Type: Boolean
13147             Lower: 0
13148             Upper: 1
13149              
13150             =cut
13151              
13152             sub HasCoverSheet() {
13153             my $self = shift;
13154             if (@_) {
13155             if ($_[0] =~ /^(true|false)$/i ) {
13156             $self->setAttribute('HasCoverSheet', lc shift);
13157             } else {
13158             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'HasCoverSheet\'';
13159             }
13160             }
13161             return $self->getAttribute('HasCoverSheet');
13162             }
13163              
13164             #===============================================================================
13165             # Rinchi::Outlook::MailItem::InternetCodepage
13166              
13167             =head2 $value = $Object->InternetCodepage([$new_value]);
13168              
13169             Set or get value of the InternetCodepage attribute.
13170              
13171            
13172             Type: Long
13173             Lower: 0
13174             Upper: 1
13175              
13176             =cut
13177              
13178             sub InternetCodepage() {
13179             my $self = shift;
13180             if (@_) {
13181             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
13182             $self->setAttribute('InternetCodepage', shift);
13183             } else {
13184             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'InternetCodepage\'';
13185             }
13186             }
13187             return $self->getAttribute('InternetCodepage');
13188             }
13189              
13190             #===============================================================================
13191             # Rinchi::Outlook::MailItem::IsIPFax
13192              
13193             =head2 $value = $Object->IsIPFax([$new_value]);
13194              
13195             Set or get value of the IsIPFax attribute.
13196              
13197            
13198             Type: Boolean
13199             Lower: 0
13200             Upper: 1
13201              
13202             =cut
13203              
13204             sub IsIPFax() {
13205             my $self = shift;
13206             if (@_) {
13207             if ($_[0] =~ /^(true|false)$/i ) {
13208             $self->setAttribute('IsIPFax', lc shift);
13209             } else {
13210             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsIPFax\'';
13211             }
13212             }
13213             return $self->getAttribute('IsIPFax');
13214             }
13215              
13216             #===============================================================================
13217             # Rinchi::Outlook::MailItem::OriginatorDeliveryReportRequested
13218              
13219             =head2 $value = $Object->OriginatorDeliveryReportRequested([$new_value]);
13220              
13221             Set or get value of the OriginatorDeliveryReportRequested attribute.
13222              
13223            
13224             Type: Boolean
13225             Lower: 0
13226             Upper: 1
13227              
13228             =cut
13229              
13230             sub OriginatorDeliveryReportRequested() {
13231             my $self = shift;
13232             if (@_) {
13233             if ($_[0] =~ /^(true|false)$/i ) {
13234             $self->setAttribute('OriginatorDeliveryReportRequested', lc shift);
13235             } else {
13236             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'OriginatorDeliveryReportRequested\'';
13237             }
13238             }
13239             return $self->getAttribute('OriginatorDeliveryReportRequested');
13240             }
13241              
13242             #===============================================================================
13243             # Rinchi::Outlook::MailItem::Permission
13244              
13245             =head2 $value = $Object->Permission([$new_value]);
13246              
13247             Set or get value of the Permission attribute.
13248              
13249            
13250             Type: OlPermission
13251             Lower: 0
13252             Upper: 1
13253              
13254             =cut
13255              
13256             sub Permission() {
13257             my $self = shift;
13258             if (@_) {
13259             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
13260             $self->setAttribute('Permission', shift);
13261             } else {
13262             if(ref($_[0])) {
13263             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlPermission\' for attribute \'Permission\'';
13264             } else {
13265             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlPermission\' for attribute \'Permission\'';
13266             }
13267             }
13268             }
13269             return $self->getAttribute('Permission');
13270             }
13271              
13272             #===============================================================================
13273             # Rinchi::Outlook::MailItem::PermissionService
13274              
13275             =head2 $value = $Object->PermissionService([$new_value]);
13276              
13277             Set or get value of the PermissionService attribute.
13278              
13279            
13280             Type: OlPermissionService
13281             Lower: 0
13282             Upper: 1
13283              
13284             =cut
13285              
13286             sub PermissionService() {
13287             my $self = shift;
13288             if (@_) {
13289             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
13290             $self->setAttribute('PermissionService', shift);
13291             } else {
13292             if(ref($_[0])) {
13293             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlPermissionService\' for attribute \'PermissionService\'';
13294             } else {
13295             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlPermissionService\' for attribute \'PermissionService\'';
13296             }
13297             }
13298             }
13299             return $self->getAttribute('PermissionService');
13300             }
13301              
13302             #===============================================================================
13303             # Rinchi::Outlook::MailItem::ReadReceiptRequested
13304              
13305             =head2 $value = $Object->ReadReceiptRequested([$new_value]);
13306              
13307             Set or get value of the ReadReceiptRequested attribute.
13308              
13309            
13310             Type: Boolean
13311             Lower: 0
13312             Upper: 1
13313              
13314             =cut
13315              
13316             sub ReadReceiptRequested() {
13317             my $self = shift;
13318             if (@_) {
13319             if ($_[0] =~ /^(true|false)$/i ) {
13320             $self->setAttribute('ReadReceiptRequested', lc shift);
13321             } else {
13322             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReadReceiptRequested\'';
13323             }
13324             }
13325             return $self->getAttribute('ReadReceiptRequested');
13326             }
13327              
13328             #===============================================================================
13329             # Rinchi::Outlook::MailItem::ReceivedByEntryID
13330              
13331             =head2 $value = $Object->ReceivedByEntryID([$new_value]);
13332              
13333             Set or get value of the ReceivedByEntryID attribute.
13334              
13335            
13336             Type: String
13337             Lower: 0
13338             Upper: 1
13339              
13340             =cut
13341              
13342             sub ReceivedByEntryID() {
13343             my $self = shift;
13344             if (@_) {
13345             $self->setAttribute('ReceivedByEntryID', shift);
13346             }
13347             return $self->getAttribute('ReceivedByEntryID');
13348             }
13349              
13350             #===============================================================================
13351             # Rinchi::Outlook::MailItem::ReceivedByName
13352              
13353             =head2 $value = $Object->ReceivedByName([$new_value]);
13354              
13355             Set or get value of the ReceivedByName attribute.
13356              
13357            
13358             Type: String
13359             Lower: 0
13360             Upper: 1
13361              
13362             =cut
13363              
13364             sub ReceivedByName() {
13365             my $self = shift;
13366             if (@_) {
13367             $self->setAttribute('ReceivedByName', shift);
13368             }
13369             return $self->getAttribute('ReceivedByName');
13370             }
13371              
13372             #===============================================================================
13373             # Rinchi::Outlook::MailItem::ReceivedOnBehalfOfEntryID
13374              
13375             =head2 $value = $Object->ReceivedOnBehalfOfEntryID([$new_value]);
13376              
13377             Set or get value of the ReceivedOnBehalfOfEntryID attribute.
13378              
13379            
13380             Type: String
13381             Lower: 0
13382             Upper: 1
13383              
13384             =cut
13385              
13386             sub ReceivedOnBehalfOfEntryID() {
13387             my $self = shift;
13388             if (@_) {
13389             $self->setAttribute('ReceivedOnBehalfOfEntryID', shift);
13390             }
13391             return $self->getAttribute('ReceivedOnBehalfOfEntryID');
13392             }
13393              
13394             #===============================================================================
13395             # Rinchi::Outlook::MailItem::ReceivedOnBehalfOfName
13396              
13397             =head2 $value = $Object->ReceivedOnBehalfOfName([$new_value]);
13398              
13399             Set or get value of the ReceivedOnBehalfOfName attribute.
13400              
13401            
13402             Type: String
13403             Lower: 0
13404             Upper: 1
13405              
13406             =cut
13407              
13408             sub ReceivedOnBehalfOfName() {
13409             my $self = shift;
13410             if (@_) {
13411             $self->setAttribute('ReceivedOnBehalfOfName', shift);
13412             }
13413             return $self->getAttribute('ReceivedOnBehalfOfName');
13414             }
13415              
13416             #===============================================================================
13417             # Rinchi::Outlook::MailItem::ReceivedTime
13418              
13419             =head2 $value = $Object->ReceivedTime([$new_value]);
13420              
13421             Set or get value of the ReceivedTime attribute.
13422              
13423            
13424             Type: VT_DATE
13425             Lower: 0
13426             Upper: 1
13427              
13428             =cut
13429              
13430             sub ReceivedTime() {
13431             my $self = shift;
13432             if (@_) {
13433             $self->setAttribute('ReceivedTime', shift);
13434             }
13435             return $self->getAttribute('ReceivedTime');
13436             }
13437              
13438             #===============================================================================
13439             # Rinchi::Outlook::MailItem::RecipientReassignmentProhibited
13440              
13441             =head2 $value = $Object->RecipientReassignmentProhibited([$new_value]);
13442              
13443             Set or get value of the RecipientReassignmentProhibited attribute.
13444              
13445            
13446             Type: Boolean
13447             Lower: 0
13448             Upper: 1
13449              
13450             =cut
13451              
13452             sub RecipientReassignmentProhibited() {
13453             my $self = shift;
13454             if (@_) {
13455             if ($_[0] =~ /^(true|false)$/i ) {
13456             $self->setAttribute('RecipientReassignmentProhibited', lc shift);
13457             } else {
13458             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'RecipientReassignmentProhibited\'';
13459             }
13460             }
13461             return $self->getAttribute('RecipientReassignmentProhibited');
13462             }
13463              
13464             #===============================================================================
13465             # Rinchi::Outlook::MailItem::Recipients
13466              
13467             =head2 $Element = $Object->Recipients();
13468              
13469             Set or get value of the Recipients attribute.
13470              
13471            
13472             Type: Recipients
13473             Lower: 0
13474             Upper: 1
13475              
13476             =cut
13477              
13478             sub Recipients() {
13479             my $self = shift;
13480             return $self->get_collection('Recipients','recipients');
13481             }
13482              
13483             #===============================================================================
13484             # Rinchi::Outlook::MailItem::ReminderOverrideDefault
13485              
13486             =head2 $value = $Object->ReminderOverrideDefault([$new_value]);
13487              
13488             Set or get value of the ReminderOverrideDefault attribute.
13489              
13490            
13491             Type: Boolean
13492             Lower: 0
13493             Upper: 1
13494              
13495             =cut
13496              
13497             sub ReminderOverrideDefault() {
13498             my $self = shift;
13499             if (@_) {
13500             if ($_[0] =~ /^(true|false)$/i ) {
13501             $self->setAttribute('ReminderOverrideDefault', lc shift);
13502             } else {
13503             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderOverrideDefault\'';
13504             }
13505             }
13506             return $self->getAttribute('ReminderOverrideDefault');
13507             }
13508              
13509             #===============================================================================
13510             # Rinchi::Outlook::MailItem::ReminderPlaySound
13511              
13512             =head2 $value = $Object->ReminderPlaySound([$new_value]);
13513              
13514             Set or get value of the ReminderPlaySound attribute.
13515              
13516            
13517             Type: Boolean
13518             Lower: 0
13519             Upper: 1
13520              
13521             =cut
13522              
13523             sub ReminderPlaySound() {
13524             my $self = shift;
13525             if (@_) {
13526             if ($_[0] =~ /^(true|false)$/i ) {
13527             $self->setAttribute('ReminderPlaySound', lc shift);
13528             } else {
13529             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderPlaySound\'';
13530             }
13531             }
13532             return $self->getAttribute('ReminderPlaySound');
13533             }
13534              
13535             #===============================================================================
13536             # Rinchi::Outlook::MailItem::ReminderSet
13537              
13538             =head2 $value = $Object->ReminderSet([$new_value]);
13539              
13540             Set or get value of the ReminderSet attribute.
13541              
13542            
13543             Type: Boolean
13544             Lower: 0
13545             Upper: 1
13546              
13547             =cut
13548              
13549             sub ReminderSet() {
13550             my $self = shift;
13551             if (@_) {
13552             if ($_[0] =~ /^(true|false)$/i ) {
13553             $self->setAttribute('ReminderSet', lc shift);
13554             } else {
13555             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderSet\'';
13556             }
13557             }
13558             return $self->getAttribute('ReminderSet');
13559             }
13560              
13561             #===============================================================================
13562             # Rinchi::Outlook::MailItem::ReminderSoundFile
13563              
13564             =head2 $value = $Object->ReminderSoundFile([$new_value]);
13565              
13566             Set or get value of the ReminderSoundFile attribute.
13567              
13568            
13569             Type: String
13570             Lower: 0
13571             Upper: 1
13572              
13573             =cut
13574              
13575             sub ReminderSoundFile() {
13576             my $self = shift;
13577             if (@_) {
13578             $self->setAttribute('ReminderSoundFile', shift);
13579             }
13580             return $self->getAttribute('ReminderSoundFile');
13581             }
13582              
13583             #===============================================================================
13584             # Rinchi::Outlook::MailItem::ReminderTime
13585              
13586             =head2 $value = $Object->ReminderTime([$new_value]);
13587              
13588             Set or get value of the ReminderTime attribute.
13589              
13590            
13591             Type: VT_DATE
13592             Lower: 0
13593             Upper: 1
13594              
13595             =cut
13596              
13597             sub ReminderTime() {
13598             my $self = shift;
13599             if (@_) {
13600             $self->setAttribute('ReminderTime', shift);
13601             }
13602             return $self->getAttribute('ReminderTime');
13603             }
13604              
13605             #===============================================================================
13606             # Rinchi::Outlook::MailItem::RemoteStatus
13607              
13608             =head2 $value = $Object->RemoteStatus([$new_value]);
13609              
13610             Set or get value of the RemoteStatus attribute.
13611              
13612            
13613             Type: OlRemoteStatus
13614             Lower: 0
13615             Upper: 1
13616              
13617             =cut
13618              
13619             sub RemoteStatus() {
13620             my $self = shift;
13621             if (@_) {
13622             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
13623             $self->setAttribute('RemoteStatus', shift);
13624             } else {
13625             if(ref($_[0])) {
13626             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlRemoteStatus\' for attribute \'RemoteStatus\'';
13627             } else {
13628             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlRemoteStatus\' for attribute \'RemoteStatus\'';
13629             }
13630             }
13631             }
13632             return $self->getAttribute('RemoteStatus');
13633             }
13634              
13635             #===============================================================================
13636             # Rinchi::Outlook::MailItem::ReplyRecipientNames
13637              
13638             =head2 $value = $Object->ReplyRecipientNames([$new_value]);
13639              
13640             Set or get value of the ReplyRecipientNames attribute.
13641              
13642            
13643             Type: String
13644             Lower: 0
13645             Upper: 1
13646              
13647             =cut
13648              
13649             sub ReplyRecipientNames() {
13650             my $self = shift;
13651             if (@_) {
13652             $self->setAttribute('ReplyRecipientNames', shift);
13653             }
13654             return $self->getAttribute('ReplyRecipientNames');
13655             }
13656              
13657             #===============================================================================
13658             # Rinchi::Outlook::MailItem::ReplyRecipients
13659              
13660             =head2 $Element = $Object->ReplyRecipients();
13661              
13662             Set or get value of the ReplyRecipients attribute.
13663              
13664            
13665             Type: Recipients
13666             Lower: 0
13667             Upper: 1
13668              
13669             =cut
13670              
13671             sub ReplyRecipients() {
13672             my $self = shift;
13673             return $self->get_collection('Recipients','recipients');
13674             }
13675              
13676             #===============================================================================
13677             # Rinchi::Outlook::MailItem::SaveSentMessageFolder
13678              
13679             =head2 $value = $Object->SaveSentMessageFolder([$new_value]);
13680              
13681             Set or get value of the SaveSentMessageFolder attribute.
13682              
13683            
13684             Type: MAPIFolder
13685             Lower: 0
13686             Upper: 1
13687              
13688             =cut
13689              
13690             sub SaveSentMessageFolder() {
13691             my $self = shift;
13692             if (@_) {
13693             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
13694             if ('Rinchi::Outlook::MAPIFolder' =~ /$regexp/ ) {
13695             $self->attribute_as_element('SaveSentMessageFolder', shift);
13696             } else {
13697             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::MAPIFolder\' for attribute \'SaveSentMessageFolder\'';
13698             }
13699             }
13700             return $self->attribute_as_element('SaveSentMessageFolder');
13701             }
13702              
13703             #===============================================================================
13704             # Rinchi::Outlook::MailItem::SenderEmailAddress
13705              
13706             =head2 $value = $Object->SenderEmailAddress([$new_value]);
13707              
13708             Set or get value of the SenderEmailAddress attribute.
13709              
13710            
13711             Type: String
13712             Lower: 0
13713             Upper: 1
13714              
13715             =cut
13716              
13717             sub SenderEmailAddress() {
13718             my $self = shift;
13719             if (@_) {
13720             $self->setAttribute('SenderEmailAddress', shift);
13721             }
13722             return $self->getAttribute('SenderEmailAddress');
13723             }
13724              
13725             #===============================================================================
13726             # Rinchi::Outlook::MailItem::SenderEmailType
13727              
13728             =head2 $value = $Object->SenderEmailType([$new_value]);
13729              
13730             Set or get value of the SenderEmailType attribute.
13731              
13732            
13733             Type: String
13734             Lower: 0
13735             Upper: 1
13736              
13737             =cut
13738              
13739             sub SenderEmailType() {
13740             my $self = shift;
13741             if (@_) {
13742             $self->setAttribute('SenderEmailType', shift);
13743             }
13744             return $self->getAttribute('SenderEmailType');
13745             }
13746              
13747             #===============================================================================
13748             # Rinchi::Outlook::MailItem::SenderName
13749              
13750             =head2 $value = $Object->SenderName([$new_value]);
13751              
13752             Set or get value of the SenderName attribute.
13753              
13754            
13755             Type: String
13756             Lower: 0
13757             Upper: 1
13758              
13759             =cut
13760              
13761             sub SenderName() {
13762             my $self = shift;
13763             if (@_) {
13764             $self->setAttribute('SenderName', shift);
13765             }
13766             return $self->getAttribute('SenderName');
13767             }
13768              
13769             #===============================================================================
13770             # Rinchi::Outlook::MailItem::Sent
13771              
13772             =head2 $value = $Object->Sent([$new_value]);
13773              
13774             Set or get value of the Sent attribute.
13775              
13776            
13777             Type: Boolean
13778             Lower: 0
13779             Upper: 1
13780              
13781             =cut
13782              
13783             sub Sent() {
13784             my $self = shift;
13785             if (@_) {
13786             if ($_[0] =~ /^(true|false)$/i ) {
13787             $self->setAttribute('Sent', lc shift);
13788             } else {
13789             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Sent\'';
13790             }
13791             }
13792             return $self->getAttribute('Sent');
13793             }
13794              
13795             #===============================================================================
13796             # Rinchi::Outlook::MailItem::SentOn
13797              
13798             =head2 $value = $Object->SentOn([$new_value]);
13799              
13800             Set or get value of the SentOn attribute.
13801              
13802            
13803             Type: VT_DATE
13804             Lower: 0
13805             Upper: 1
13806              
13807             =cut
13808              
13809             sub SentOn() {
13810             my $self = shift;
13811             if (@_) {
13812             $self->setAttribute('SentOn', shift);
13813             }
13814             return $self->getAttribute('SentOn');
13815             }
13816              
13817             #===============================================================================
13818             # Rinchi::Outlook::MailItem::SentOnBehalfOfName
13819              
13820             =head2 $value = $Object->SentOnBehalfOfName([$new_value]);
13821              
13822             Set or get value of the SentOnBehalfOfName attribute.
13823              
13824            
13825             Type: String
13826             Lower: 0
13827             Upper: 1
13828              
13829             =cut
13830              
13831             sub SentOnBehalfOfName() {
13832             my $self = shift;
13833             if (@_) {
13834             $self->setAttribute('SentOnBehalfOfName', shift);
13835             }
13836             return $self->getAttribute('SentOnBehalfOfName');
13837             }
13838              
13839             #===============================================================================
13840             # Rinchi::Outlook::MailItem::Submitted
13841              
13842             =head2 $value = $Object->Submitted([$new_value]);
13843              
13844             Set or get value of the Submitted attribute.
13845              
13846            
13847             Type: Boolean
13848             Lower: 0
13849             Upper: 1
13850              
13851             =cut
13852              
13853             sub Submitted() {
13854             my $self = shift;
13855             if (@_) {
13856             if ($_[0] =~ /^(true|false)$/i ) {
13857             $self->setAttribute('Submitted', lc shift);
13858             } else {
13859             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Submitted\'';
13860             }
13861             }
13862             return $self->getAttribute('Submitted');
13863             }
13864              
13865             #===============================================================================
13866             # Rinchi::Outlook::MailItem::To
13867              
13868             =head2 $value = $Object->To([$new_value]);
13869              
13870             Set or get value of the To attribute.
13871              
13872            
13873             Type: String
13874             Lower: 0
13875             Upper: 1
13876              
13877             =cut
13878              
13879             sub To() {
13880             my $self = shift;
13881             if (@_) {
13882             $self->setAttribute('To', shift);
13883             }
13884             return $self->getAttribute('To');
13885             }
13886              
13887             #===============================================================================
13888             # Rinchi::Outlook::MailItem::VotingOptions
13889              
13890             =head2 $value = $Object->VotingOptions([$new_value]);
13891              
13892             Set or get value of the VotingOptions attribute.
13893              
13894            
13895             Type: String
13896             Lower: 0
13897             Upper: 1
13898              
13899             =cut
13900              
13901             sub VotingOptions() {
13902             my $self = shift;
13903             if (@_) {
13904             $self->setAttribute('VotingOptions', shift);
13905             }
13906             return $self->getAttribute('VotingOptions');
13907             }
13908              
13909             #===============================================================================
13910             # Rinchi::Outlook::MailItem::VotingResponse
13911              
13912             =head2 $value = $Object->VotingResponse([$new_value]);
13913              
13914             Set or get value of the VotingResponse attribute.
13915              
13916            
13917             Type: String
13918             Lower: 0
13919             Upper: 1
13920              
13921             =cut
13922              
13923             sub VotingResponse() {
13924             my $self = shift;
13925             if (@_) {
13926             $self->setAttribute('VotingResponse', shift);
13927             }
13928             return $self->getAttribute('VotingResponse');
13929             }
13930              
13931             ##END_PACKAGE MailItem
13932              
13933             #===============================================================================
13934             # Generated by Hymnos Perl Code Generator
13935             # UML Model UUID: d5dd4544-3c43-11dd-9183-001c25551abc
13936              
13937             package Rinchi::Outlook::MeetingItem;
13938              
13939             use Carp;
13940              
13941             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
13942             our @EXPORT = qw();
13943             our @EXPORT_OK = qw();
13944              
13945             =head1 DESCRIPTION of MeetingItem class
13946              
13947             Rinchi::Outlook::MeetingItem is used for representing MeetingItem objects. A
13948             MeetingItem object Represents an item in an Inbox (mail) folder. A MeetingItem
13949             object represents a change to the recipient's Calendar folder initiated by
13950             another party or as a result of a group action.
13951              
13952             =head1 METHODS for MeetingItem objects
13953              
13954             =cut
13955              
13956             #===============================================================================
13957              
13958             {
13959             no strict "refs";
13960             *TAG_NAME = sub { return 'meeting-item'; };
13961             }
13962              
13963             #===============================================================================
13964             # Rinchi::Outlook::MeetingItem::AutoForwarded
13965              
13966             =head2 $value = $Object->AutoForwarded([$new_value]);
13967              
13968             Set or get value of the AutoForwarded attribute.
13969              
13970            
13971             Type: Boolean
13972             Lower: 0
13973             Upper: 1
13974              
13975             =cut
13976              
13977             sub AutoForwarded() {
13978             my $self = shift;
13979             if (@_) {
13980             if ($_[0] =~ /^(true|false)$/i ) {
13981             $self->setAttribute('AutoForwarded', lc shift);
13982             } else {
13983             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'AutoForwarded\'';
13984             }
13985             }
13986             return $self->getAttribute('AutoForwarded');
13987             }
13988              
13989             #===============================================================================
13990             # Rinchi::Outlook::MeetingItem::DeferredDeliveryTime
13991              
13992             =head2 $value = $Object->DeferredDeliveryTime([$new_value]);
13993              
13994             Set or get value of the DeferredDeliveryTime attribute.
13995              
13996            
13997             Type: VT_DATE
13998             Lower: 0
13999             Upper: 1
14000              
14001             =cut
14002              
14003             sub DeferredDeliveryTime() {
14004             my $self = shift;
14005             if (@_) {
14006             $self->setAttribute('DeferredDeliveryTime', shift);
14007             }
14008             return $self->getAttribute('DeferredDeliveryTime');
14009             }
14010              
14011             #===============================================================================
14012             # Rinchi::Outlook::MeetingItem::DeleteAfterSubmit
14013              
14014             =head2 $value = $Object->DeleteAfterSubmit([$new_value]);
14015              
14016             Set or get value of the DeleteAfterSubmit attribute.
14017              
14018            
14019             Type: Boolean
14020             Lower: 0
14021             Upper: 1
14022              
14023             =cut
14024              
14025             sub DeleteAfterSubmit() {
14026             my $self = shift;
14027             if (@_) {
14028             if ($_[0] =~ /^(true|false)$/i ) {
14029             $self->setAttribute('DeleteAfterSubmit', lc shift);
14030             } else {
14031             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'DeleteAfterSubmit\'';
14032             }
14033             }
14034             return $self->getAttribute('DeleteAfterSubmit');
14035             }
14036              
14037             #===============================================================================
14038             # Rinchi::Outlook::MeetingItem::ExpiryTime
14039              
14040             =head2 $value = $Object->ExpiryTime([$new_value]);
14041              
14042             Set or get value of the ExpiryTime attribute.
14043              
14044            
14045             Type: VT_DATE
14046             Lower: 0
14047             Upper: 1
14048              
14049             =cut
14050              
14051             sub ExpiryTime() {
14052             my $self = shift;
14053             if (@_) {
14054             $self->setAttribute('ExpiryTime', shift);
14055             }
14056             return $self->getAttribute('ExpiryTime');
14057             }
14058              
14059             #===============================================================================
14060             # Rinchi::Outlook::MeetingItem::FlagDueBy
14061              
14062             =head2 $value = $Object->FlagDueBy([$new_value]);
14063              
14064             Set or get value of the FlagDueBy attribute.
14065              
14066            
14067             Type: VT_DATE
14068             Lower: 0
14069             Upper: 1
14070              
14071             =cut
14072              
14073             sub FlagDueBy() {
14074             my $self = shift;
14075             if (@_) {
14076             $self->setAttribute('FlagDueBy', shift);
14077             }
14078             return $self->getAttribute('FlagDueBy');
14079             }
14080              
14081             #===============================================================================
14082             # Rinchi::Outlook::MeetingItem::FlagIcon
14083              
14084             =head2 $value = $Object->FlagIcon([$new_value]);
14085              
14086             Set or get value of the FlagIcon attribute.
14087              
14088            
14089             Type: OlFlagIcon
14090             Lower: 0
14091             Upper: 1
14092              
14093             =cut
14094              
14095             sub FlagIcon() {
14096             my $self = shift;
14097             if (@_) {
14098             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14099             $self->setAttribute('FlagIcon', shift);
14100             } else {
14101             if(ref($_[0])) {
14102             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlFlagIcon\' for attribute \'FlagIcon\'';
14103             } else {
14104             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlFlagIcon\' for attribute \'FlagIcon\'';
14105             }
14106             }
14107             }
14108             return $self->getAttribute('FlagIcon');
14109             }
14110              
14111             #===============================================================================
14112             # Rinchi::Outlook::MeetingItem::FlagRequest
14113              
14114             =head2 $value = $Object->FlagRequest([$new_value]);
14115              
14116             Set or get value of the FlagRequest attribute.
14117              
14118            
14119             Type: String
14120             Lower: 0
14121             Upper: 1
14122              
14123             =cut
14124              
14125             sub FlagRequest() {
14126             my $self = shift;
14127             if (@_) {
14128             $self->setAttribute('FlagRequest', shift);
14129             }
14130             return $self->getAttribute('FlagRequest');
14131             }
14132              
14133             #===============================================================================
14134             # Rinchi::Outlook::MeetingItem::FlagStatus
14135              
14136             =head2 $value = $Object->FlagStatus([$new_value]);
14137              
14138             Set or get value of the FlagStatus attribute.
14139              
14140            
14141             Type: OlFlagStatus
14142             Lower: 0
14143             Upper: 1
14144              
14145             =cut
14146              
14147             sub FlagStatus() {
14148             my $self = shift;
14149             if (@_) {
14150             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14151             $self->setAttribute('FlagStatus', shift);
14152             } else {
14153             if(ref($_[0])) {
14154             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlFlagStatus\' for attribute \'FlagStatus\'';
14155             } else {
14156             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlFlagStatus\' for attribute \'FlagStatus\'';
14157             }
14158             }
14159             }
14160             return $self->getAttribute('FlagStatus');
14161             }
14162              
14163             #===============================================================================
14164             # Rinchi::Outlook::MeetingItem::MeetingWorkspaceURL
14165              
14166             =head2 $value = $Object->MeetingWorkspaceURL([$new_value]);
14167              
14168             Set or get value of the MeetingWorkspaceURL attribute.
14169              
14170            
14171             Type: String
14172             Lower: 0
14173             Upper: 1
14174              
14175             =cut
14176              
14177             sub MeetingWorkspaceURL() {
14178             my $self = shift;
14179             if (@_) {
14180             $self->setAttribute('MeetingWorkspaceURL', shift);
14181             }
14182             return $self->getAttribute('MeetingWorkspaceURL');
14183             }
14184              
14185             #===============================================================================
14186             # Rinchi::Outlook::MeetingItem::OriginatorDeliveryReportRequested
14187              
14188             =head2 $value = $Object->OriginatorDeliveryReportRequested([$new_value]);
14189              
14190             Set or get value of the OriginatorDeliveryReportRequested attribute.
14191              
14192            
14193             Type: Boolean
14194             Lower: 0
14195             Upper: 1
14196              
14197             =cut
14198              
14199             sub OriginatorDeliveryReportRequested() {
14200             my $self = shift;
14201             if (@_) {
14202             if ($_[0] =~ /^(true|false)$/i ) {
14203             $self->setAttribute('OriginatorDeliveryReportRequested', lc shift);
14204             } else {
14205             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'OriginatorDeliveryReportRequested\'';
14206             }
14207             }
14208             return $self->getAttribute('OriginatorDeliveryReportRequested');
14209             }
14210              
14211             #===============================================================================
14212             # Rinchi::Outlook::MeetingItem::ReceivedTime
14213              
14214             =head2 $value = $Object->ReceivedTime([$new_value]);
14215              
14216             Set or get value of the ReceivedTime attribute.
14217              
14218            
14219             Type: VT_DATE
14220             Lower: 0
14221             Upper: 1
14222              
14223             =cut
14224              
14225             sub ReceivedTime() {
14226             my $self = shift;
14227             if (@_) {
14228             $self->setAttribute('ReceivedTime', shift);
14229             }
14230             return $self->getAttribute('ReceivedTime');
14231             }
14232              
14233             #===============================================================================
14234             # Rinchi::Outlook::MeetingItem::Recipients
14235              
14236             =head2 $Element = $Object->Recipients();
14237              
14238             Set or get value of the Recipients attribute.
14239              
14240            
14241             Type: Recipients
14242             Lower: 0
14243             Upper: 1
14244              
14245             =cut
14246              
14247             sub Recipients() {
14248             my $self = shift;
14249             return $self->get_collection('Recipients','recipients');
14250             }
14251              
14252             #===============================================================================
14253             # Rinchi::Outlook::MeetingItem::ReminderSet
14254              
14255             =head2 $value = $Object->ReminderSet([$new_value]);
14256              
14257             Set or get value of the ReminderSet attribute.
14258              
14259            
14260             Type: Boolean
14261             Lower: 0
14262             Upper: 1
14263              
14264             =cut
14265              
14266             sub ReminderSet() {
14267             my $self = shift;
14268             if (@_) {
14269             if ($_[0] =~ /^(true|false)$/i ) {
14270             $self->setAttribute('ReminderSet', lc shift);
14271             } else {
14272             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderSet\'';
14273             }
14274             }
14275             return $self->getAttribute('ReminderSet');
14276             }
14277              
14278             #===============================================================================
14279             # Rinchi::Outlook::MeetingItem::ReminderTime
14280              
14281             =head2 $value = $Object->ReminderTime([$new_value]);
14282              
14283             Set or get value of the ReminderTime attribute.
14284              
14285            
14286             Type: VT_DATE
14287             Lower: 0
14288             Upper: 1
14289              
14290             =cut
14291              
14292             sub ReminderTime() {
14293             my $self = shift;
14294             if (@_) {
14295             $self->setAttribute('ReminderTime', shift);
14296             }
14297             return $self->getAttribute('ReminderTime');
14298             }
14299              
14300             #===============================================================================
14301             # Rinchi::Outlook::MeetingItem::ReplyRecipients
14302              
14303             =head2 $Element = $Object->ReplyRecipients();
14304              
14305             Set or get value of the ReplyRecipients attribute.
14306              
14307            
14308             Type: Recipients
14309             Lower: 0
14310             Upper: 1
14311              
14312             =cut
14313              
14314             sub ReplyRecipients() {
14315             my $self = shift;
14316             return $self->get_collection('Recipients','recipients');
14317             }
14318              
14319             #===============================================================================
14320             # Rinchi::Outlook::MeetingItem::SaveSentMessageFolder
14321              
14322             =head2 $value = $Object->SaveSentMessageFolder([$new_value]);
14323              
14324             Set or get value of the SaveSentMessageFolder attribute.
14325              
14326            
14327             Type: MAPIFolder
14328             Lower: 0
14329             Upper: 1
14330              
14331             =cut
14332              
14333             sub SaveSentMessageFolder() {
14334             my $self = shift;
14335             if (@_) {
14336             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
14337             if ('Rinchi::Outlook::MAPIFolder' =~ /$regexp/ ) {
14338             $self->attribute_as_element('SaveSentMessageFolder', shift);
14339             } else {
14340             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::MAPIFolder\' for attribute \'SaveSentMessageFolder\'';
14341             }
14342             }
14343             return $self->attribute_as_element('SaveSentMessageFolder');
14344             }
14345              
14346             #===============================================================================
14347             # Rinchi::Outlook::MeetingItem::SenderEmailAddress
14348              
14349             =head2 $value = $Object->SenderEmailAddress([$new_value]);
14350              
14351             Set or get value of the SenderEmailAddress attribute.
14352              
14353            
14354             Type: String
14355             Lower: 0
14356             Upper: 1
14357              
14358             =cut
14359              
14360             sub SenderEmailAddress() {
14361             my $self = shift;
14362             if (@_) {
14363             $self->setAttribute('SenderEmailAddress', shift);
14364             }
14365             return $self->getAttribute('SenderEmailAddress');
14366             }
14367              
14368             #===============================================================================
14369             # Rinchi::Outlook::MeetingItem::SenderEmailType
14370              
14371             =head2 $value = $Object->SenderEmailType([$new_value]);
14372              
14373             Set or get value of the SenderEmailType attribute.
14374              
14375            
14376             Type: String
14377             Lower: 0
14378             Upper: 1
14379              
14380             =cut
14381              
14382             sub SenderEmailType() {
14383             my $self = shift;
14384             if (@_) {
14385             $self->setAttribute('SenderEmailType', shift);
14386             }
14387             return $self->getAttribute('SenderEmailType');
14388             }
14389              
14390             #===============================================================================
14391             # Rinchi::Outlook::MeetingItem::SenderName
14392              
14393             =head2 $value = $Object->SenderName([$new_value]);
14394              
14395             Set or get value of the SenderName attribute.
14396              
14397            
14398             Type: String
14399             Lower: 0
14400             Upper: 1
14401              
14402             =cut
14403              
14404             sub SenderName() {
14405             my $self = shift;
14406             if (@_) {
14407             $self->setAttribute('SenderName', shift);
14408             }
14409             return $self->getAttribute('SenderName');
14410             }
14411              
14412             #===============================================================================
14413             # Rinchi::Outlook::MeetingItem::Sent
14414              
14415             =head2 $value = $Object->Sent([$new_value]);
14416              
14417             Set or get value of the Sent attribute.
14418              
14419            
14420             Type: Boolean
14421             Lower: 0
14422             Upper: 1
14423              
14424             =cut
14425              
14426             sub Sent() {
14427             my $self = shift;
14428             if (@_) {
14429             if ($_[0] =~ /^(true|false)$/i ) {
14430             $self->setAttribute('Sent', lc shift);
14431             } else {
14432             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Sent\'';
14433             }
14434             }
14435             return $self->getAttribute('Sent');
14436             }
14437              
14438             #===============================================================================
14439             # Rinchi::Outlook::MeetingItem::SentOn
14440              
14441             =head2 $value = $Object->SentOn([$new_value]);
14442              
14443             Set or get value of the SentOn attribute.
14444              
14445            
14446             Type: VT_DATE
14447             Lower: 0
14448             Upper: 1
14449              
14450             =cut
14451              
14452             sub SentOn() {
14453             my $self = shift;
14454             if (@_) {
14455             $self->setAttribute('SentOn', shift);
14456             }
14457             return $self->getAttribute('SentOn');
14458             }
14459              
14460             #===============================================================================
14461             # Rinchi::Outlook::MeetingItem::Submitted
14462              
14463             =head2 $value = $Object->Submitted([$new_value]);
14464              
14465             Set or get value of the Submitted attribute.
14466              
14467            
14468             Type: Boolean
14469             Lower: 0
14470             Upper: 1
14471              
14472             =cut
14473              
14474             sub Submitted() {
14475             my $self = shift;
14476             if (@_) {
14477             if ($_[0] =~ /^(true|false)$/i ) {
14478             $self->setAttribute('Submitted', lc shift);
14479             } else {
14480             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Submitted\'';
14481             }
14482             }
14483             return $self->getAttribute('Submitted');
14484             }
14485              
14486             ##END_PACKAGE MeetingItem
14487              
14488             #===============================================================================
14489             # Generated by Hymnos Perl Code Generator
14490             # UML Model UUID: d5dda32c-3c43-11dd-8375-001c25551abc
14491              
14492             package Rinchi::Outlook::NoteItem;
14493              
14494             use Carp;
14495              
14496             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookBaseItemObject);
14497             our @EXPORT = qw();
14498             our @EXPORT_OK = qw();
14499              
14500             =head1 DESCRIPTION of NoteItem
14501              
14502             Rinchi::Outlook::NoteItem is used for representing NoteItem objects. A NoteItem
14503             object represents a note in a Notes folder.
14504              
14505             =head1 METHODS for NoteItem objects
14506              
14507             =cut
14508              
14509             #===============================================================================
14510              
14511             {
14512             no strict "refs";
14513             *TAG_NAME = sub { return 'note-item'; };
14514             }
14515              
14516             #===============================================================================
14517             # Rinchi::Outlook::NoteItem::Color
14518              
14519             =head2 $value = $Object->Color([$new_value]);
14520              
14521             Set or get value of the Color attribute.
14522              
14523            
14524             Type: OlNoteColor
14525             Lower: 0
14526             Upper: 1
14527              
14528             =cut
14529              
14530             sub Color() {
14531             my $self = shift;
14532             if (@_) {
14533             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14534             $self->setAttribute('Color', shift);
14535             } else {
14536             if(ref($_[0])) {
14537             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlNoteColor\' for attribute \'Color\'';
14538             } else {
14539             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlNoteColor\' for attribute \'Color\'';
14540             }
14541             }
14542             }
14543             return $self->getAttribute('Color');
14544             }
14545              
14546             #===============================================================================
14547             # Rinchi::Outlook::NoteItem::Height
14548              
14549             =head2 $value = $Object->Height([$new_value]);
14550              
14551             Set or get value of the Height attribute.
14552              
14553            
14554             Type: Long
14555             Lower: 0
14556             Upper: 1
14557              
14558             =cut
14559              
14560             sub Height() {
14561             my $self = shift;
14562             if (@_) {
14563             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14564             $self->setAttribute('Height', shift);
14565             } else {
14566             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Height\'';
14567             }
14568             }
14569             return $self->getAttribute('Height');
14570             }
14571              
14572             #===============================================================================
14573             # Rinchi::Outlook::NoteItem::Left
14574              
14575             =head2 $value = $Object->Left([$new_value]);
14576              
14577             Set or get value of the Left attribute.
14578              
14579            
14580             Type: Long
14581             Lower: 0
14582             Upper: 1
14583              
14584             =cut
14585              
14586             sub Left() {
14587             my $self = shift;
14588             if (@_) {
14589             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14590             $self->setAttribute('Left', shift);
14591             } else {
14592             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Left\'';
14593             }
14594             }
14595             return $self->getAttribute('Left');
14596             }
14597              
14598             #===============================================================================
14599             # Rinchi::Outlook::NoteItem::Top
14600              
14601             =head2 $value = $Object->Top([$new_value]);
14602              
14603             Set or get value of the Top attribute.
14604              
14605            
14606             Type: Long
14607             Lower: 0
14608             Upper: 1
14609              
14610             =cut
14611              
14612             sub Top() {
14613             my $self = shift;
14614             if (@_) {
14615             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14616             $self->setAttribute('Top', shift);
14617             } else {
14618             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Top\'';
14619             }
14620             }
14621             return $self->getAttribute('Top');
14622             }
14623              
14624             #===============================================================================
14625             # Rinchi::Outlook::NoteItem::Width
14626              
14627             =head2 $value = $Object->Width([$new_value]);
14628              
14629             Set or get value of the Width attribute.
14630              
14631            
14632             Type: Long
14633             Lower: 0
14634             Upper: 1
14635              
14636             =cut
14637              
14638             sub Width() {
14639             my $self = shift;
14640             if (@_) {
14641             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14642             $self->setAttribute('Width', shift);
14643             } else {
14644             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Width\'';
14645             }
14646             }
14647             return $self->getAttribute('Width');
14648             }
14649              
14650             ##END_PACKAGE NoteItem
14651              
14652             #===============================================================================
14653             # Generated by Hymnos Perl Code Generator
14654             # UML Model UUID: d5dea1fa-3c43-11dd-a269-001c25551abc
14655              
14656             package Rinchi::Outlook::PostItem;
14657              
14658             use Carp;
14659              
14660             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
14661             our @EXPORT = qw();
14662             our @EXPORT_OK = qw();
14663              
14664             =head1 DESCRIPTION of PostItem class
14665              
14666             Rinchi::Outlook::PostItem is used for representing PostItem objects. A PostItem
14667             object represents a post in a public folder that others may browse.
14668              
14669             =head1 METHODS for PostItem objects
14670              
14671             =cut
14672              
14673             #===============================================================================
14674              
14675             {
14676             no strict "refs";
14677             *TAG_NAME = sub { return 'post-item'; };
14678             }
14679              
14680             #===============================================================================
14681             # Rinchi::Outlook::PostItem::BodyFormat
14682              
14683             =head2 $value = $Object->BodyFormat([$new_value]);
14684              
14685             Set or get value of the BodyFormat attribute.
14686              
14687            
14688             Type: OlBodyFormat
14689             Lower: 0
14690             Upper: 1
14691              
14692             =cut
14693              
14694             sub BodyFormat() {
14695             my $self = shift;
14696             if (@_) {
14697             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14698             $self->setAttribute('BodyFormat', shift);
14699             } else {
14700             if(ref($_[0])) {
14701             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlBodyFormat\' for attribute \'BodyFormat\'';
14702             } else {
14703             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlBodyFormat\' for attribute \'BodyFormat\'';
14704             }
14705             }
14706             }
14707             return $self->getAttribute('BodyFormat');
14708             }
14709              
14710             #===============================================================================
14711             # Rinchi::Outlook::PostItem::ExpiryTime
14712              
14713             =head2 $value = $Object->ExpiryTime([$new_value]);
14714              
14715             Set or get value of the ExpiryTime attribute.
14716              
14717            
14718             Type: VT_DATE
14719             Lower: 0
14720             Upper: 1
14721              
14722             =cut
14723              
14724             sub ExpiryTime() {
14725             my $self = shift;
14726             if (@_) {
14727             $self->setAttribute('ExpiryTime', shift);
14728             }
14729             return $self->getAttribute('ExpiryTime');
14730             }
14731              
14732             #===============================================================================
14733             # Rinchi::Outlook::PostItem::HTMLBody
14734              
14735             =head2 $value = $Object->HTMLBody([$new_value]);
14736              
14737             Set or get value of the HTMLBody attribute.
14738              
14739            
14740             Type: String
14741             Lower: 0
14742             Upper: 1
14743              
14744             =cut
14745              
14746             sub HTMLBody() {
14747             my $self = shift;
14748             if (@_) {
14749             $self->setAttribute('HTMLBody', shift);
14750             }
14751             return $self->getAttribute('HTMLBody');
14752             }
14753              
14754             #===============================================================================
14755             # Rinchi::Outlook::PostItem::InternetCodepage
14756              
14757             =head2 $value = $Object->InternetCodepage([$new_value]);
14758              
14759             Set or get value of the InternetCodepage attribute.
14760              
14761            
14762             Type: Long
14763             Lower: 0
14764             Upper: 1
14765              
14766             =cut
14767              
14768             sub InternetCodepage() {
14769             my $self = shift;
14770             if (@_) {
14771             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14772             $self->setAttribute('InternetCodepage', shift);
14773             } else {
14774             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'InternetCodepage\'';
14775             }
14776             }
14777             return $self->getAttribute('InternetCodepage');
14778             }
14779              
14780             #===============================================================================
14781             # Rinchi::Outlook::PostItem::ReceivedTime
14782              
14783             =head2 $value = $Object->ReceivedTime([$new_value]);
14784              
14785             Set or get value of the ReceivedTime attribute.
14786              
14787            
14788             Type: VT_DATE
14789             Lower: 0
14790             Upper: 1
14791              
14792             =cut
14793              
14794             sub ReceivedTime() {
14795             my $self = shift;
14796             if (@_) {
14797             $self->setAttribute('ReceivedTime', shift);
14798             }
14799             return $self->getAttribute('ReceivedTime');
14800             }
14801              
14802             #===============================================================================
14803             # Rinchi::Outlook::PostItem::SenderEmailAddress
14804              
14805             =head2 $value = $Object->SenderEmailAddress([$new_value]);
14806              
14807             Set or get value of the SenderEmailAddress attribute.
14808              
14809            
14810             Type: String
14811             Lower: 0
14812             Upper: 1
14813              
14814             =cut
14815              
14816             sub SenderEmailAddress() {
14817             my $self = shift;
14818             if (@_) {
14819             $self->setAttribute('SenderEmailAddress', shift);
14820             }
14821             return $self->getAttribute('SenderEmailAddress');
14822             }
14823              
14824             #===============================================================================
14825             # Rinchi::Outlook::PostItem::SenderEmailType
14826              
14827             =head2 $value = $Object->SenderEmailType([$new_value]);
14828              
14829             Set or get value of the SenderEmailType attribute.
14830              
14831            
14832             Type: String
14833             Lower: 0
14834             Upper: 1
14835              
14836             =cut
14837              
14838             sub SenderEmailType() {
14839             my $self = shift;
14840             if (@_) {
14841             $self->setAttribute('SenderEmailType', shift);
14842             }
14843             return $self->getAttribute('SenderEmailType');
14844             }
14845              
14846             #===============================================================================
14847             # Rinchi::Outlook::PostItem::SenderName
14848              
14849             =head2 $value = $Object->SenderName([$new_value]);
14850              
14851             Set or get value of the SenderName attribute.
14852              
14853            
14854             Type: String
14855             Lower: 0
14856             Upper: 1
14857              
14858             =cut
14859              
14860             sub SenderName() {
14861             my $self = shift;
14862             if (@_) {
14863             $self->setAttribute('SenderName', shift);
14864             }
14865             return $self->getAttribute('SenderName');
14866             }
14867              
14868             #===============================================================================
14869             # Rinchi::Outlook::PostItem::SentOn
14870              
14871             =head2 $value = $Object->SentOn([$new_value]);
14872              
14873             Set or get value of the SentOn attribute.
14874              
14875            
14876             Type: VT_DATE
14877             Lower: 0
14878             Upper: 1
14879              
14880             =cut
14881              
14882             sub SentOn() {
14883             my $self = shift;
14884             if (@_) {
14885             $self->setAttribute('SentOn', shift);
14886             }
14887             return $self->getAttribute('SentOn');
14888             }
14889              
14890             ##END_PACKAGE PostItem
14891              
14892             #===============================================================================
14893             # Generated by Hymnos Perl Code Generator
14894             # UML Model UUID: d5df71ca-3c43-11dd-bd00-001c25551abc
14895              
14896             package Rinchi::Outlook::RemoteItem;
14897              
14898             use Carp;
14899              
14900             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
14901             our @EXPORT = qw();
14902             our @EXPORT_OK = qw();
14903              
14904             =head1 DESCRIPTION of RemoteItem class
14905              
14906             Rinchi::Outlook::RemoteItem is used for representing RemoteItem objects. A
14907             RemoteItem objects represents a remote item in an Inbox (mail) folder. The
14908             RemoteItem object is similar to the MailItem object, but it contains only
14909             the Subject, Received Date and Time, Sender, Size, and the first 256 characters
14910             of the body of the message. It is used to give someone connecting in remote
14911             mode enough information to decide whether or not to download the corresponding
14912             mail message. However, the headers in items contained in an Offline Folders file
14913             (.ost) cannot be accessed using the RemoteItem object.
14914              
14915             =head1 METHODS for RemoteItem objects
14916              
14917             =cut
14918              
14919             #===============================================================================
14920              
14921             {
14922             no strict "refs";
14923             *TAG_NAME = sub { return 'remote-item'; };
14924             }
14925              
14926             #===============================================================================
14927             # Rinchi::Outlook::RemoteItem::HasAttachment
14928              
14929             =head2 $value = $Object->HasAttachment([$new_value]);
14930              
14931             Set or get value of the HasAttachment attribute.
14932              
14933            
14934             Type: Boolean
14935             Lower: 0
14936             Upper: 1
14937              
14938             =cut
14939              
14940             sub HasAttachment() {
14941             my $self = shift;
14942             if (@_) {
14943             if ($_[0] =~ /^(true|false)$/i ) {
14944             $self->setAttribute('HasAttachment', lc shift);
14945             } else {
14946             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'HasAttachment\'';
14947             }
14948             }
14949             return $self->getAttribute('HasAttachment');
14950             }
14951              
14952             #===============================================================================
14953             # Rinchi::Outlook::RemoteItem::RemoteMessageClass
14954              
14955             =head2 $value = $Object->RemoteMessageClass([$new_value]);
14956              
14957             Set or get value of the RemoteMessageClass attribute.
14958              
14959            
14960             Type: String
14961             Lower: 0
14962             Upper: 1
14963              
14964             =cut
14965              
14966             sub RemoteMessageClass() {
14967             my $self = shift;
14968             if (@_) {
14969             $self->setAttribute('RemoteMessageClass', shift);
14970             }
14971             return $self->getAttribute('RemoteMessageClass');
14972             }
14973              
14974             #===============================================================================
14975             # Rinchi::Outlook::RemoteItem::TransferSize
14976              
14977             =head2 $value = $Object->TransferSize([$new_value]);
14978              
14979             Set or get value of the TransferSize attribute.
14980              
14981            
14982             Type: Long
14983             Lower: 0
14984             Upper: 1
14985              
14986             =cut
14987              
14988             sub TransferSize() {
14989             my $self = shift;
14990             if (@_) {
14991             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
14992             $self->setAttribute('TransferSize', shift);
14993             } else {
14994             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'TransferSize\'';
14995             }
14996             }
14997             return $self->getAttribute('TransferSize');
14998             }
14999              
15000             #===============================================================================
15001             # Rinchi::Outlook::RemoteItem::TransferTime
15002              
15003             =head2 $value = $Object->TransferTime([$new_value]);
15004              
15005             Set or get value of the TransferTime attribute.
15006              
15007            
15008             Type: Long
15009             Lower: 0
15010             Upper: 1
15011              
15012             =cut
15013              
15014             sub TransferTime() {
15015             my $self = shift;
15016             if (@_) {
15017             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15018             $self->setAttribute('TransferTime', shift);
15019             } else {
15020             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'TransferTime\'';
15021             }
15022             }
15023             return $self->getAttribute('TransferTime');
15024             }
15025              
15026             ##END_PACKAGE RemoteItem
15027              
15028             #===============================================================================
15029             # Generated by Hymnos Perl Code Generator
15030             # UML Model UUID: d5df927c-3c43-11dd-a136-001c25551abc
15031              
15032             package Rinchi::Outlook::ReportItem;
15033              
15034             use Carp;
15035              
15036             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
15037             our @EXPORT = qw();
15038             our @EXPORT_OK = qw();
15039              
15040             =head1 DESCRIPTION of ReportItem
15041              
15042             Rinchi::Outlook::ReportItem is used for representing ReportItem objects. A
15043             ReportItem objects represents a mail-delivery report in an Inbox (mail) folder.
15044             The ReportItem object is similar to a MailItem object, and it contains a report
15045             (usually the non-delivery report) or error message from the mail transport system.
15046              
15047             =head1 METHODS for ReportItem objects
15048              
15049             =cut
15050              
15051             #===============================================================================
15052              
15053             {
15054             no strict "refs";
15055             *TAG_NAME = sub { return 'report-item'; };
15056             }
15057              
15058             ##END_PACKAGE ReportItem
15059              
15060             #===============================================================================
15061             # Generated by Hymnos Perl Code Generator
15062             # UML Model UUID: d5e048a2-3c43-11dd-ae11-001c25551abc
15063              
15064             package Rinchi::Outlook::TaskItem;
15065              
15066             use Carp;
15067              
15068             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
15069             our @EXPORT = qw();
15070             our @EXPORT_OK = qw();
15071              
15072             =head1 DESCRIPTION of TaskItem class
15073              
15074             Rinchi::Outlook::TaskItem is used for representing TaskItem objects. A TaskItem
15075             object represents a task (an assigned, delegated, or self-imposed task to be
15076             performed within a specified time frame) in a Tasks folder.
15077              
15078             =head1 METHODS for TaskItem objects
15079              
15080             =cut
15081              
15082             #===============================================================================
15083              
15084             {
15085             no strict "refs";
15086             *TAG_NAME = sub { return 'task-item'; };
15087             }
15088              
15089             #===============================================================================
15090             # Rinchi::Outlook::TaskItem::ActualWork
15091              
15092             =head2 $value = $Object->ActualWork([$new_value]);
15093              
15094             Set or get value of the ActualWork attribute.
15095              
15096            
15097             Type: Long
15098             Lower: 0
15099             Upper: 1
15100              
15101             =cut
15102              
15103             sub ActualWork() {
15104             my $self = shift;
15105             if (@_) {
15106             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15107             $self->setAttribute('ActualWork', shift);
15108             } else {
15109             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'ActualWork\'';
15110             }
15111             }
15112             return $self->getAttribute('ActualWork');
15113             }
15114              
15115             #===============================================================================
15116             # Rinchi::Outlook::TaskItem::CardData
15117              
15118             =head2 $value = $Object->CardData([$new_value]);
15119              
15120             Set or get value of the CardData attribute.
15121              
15122            
15123             Type: String
15124             Lower: 0
15125             Upper: 1
15126              
15127             =cut
15128              
15129             sub CardData() {
15130             my $self = shift;
15131             if (@_) {
15132             $self->setAttribute('CardData', shift);
15133             }
15134             return $self->getAttribute('CardData');
15135             }
15136              
15137             #===============================================================================
15138             # Rinchi::Outlook::TaskItem::Complete
15139              
15140             =head2 $value = $Object->Complete([$new_value]);
15141              
15142             Set or get value of the Complete attribute.
15143              
15144            
15145             Type: Boolean
15146             Lower: 0
15147             Upper: 1
15148              
15149             =cut
15150              
15151             sub Complete() {
15152             my $self = shift;
15153             if (@_) {
15154             if ($_[0] =~ /^(true|false)$/i ) {
15155             $self->setAttribute('Complete', lc shift);
15156             } else {
15157             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Complete\'';
15158             }
15159             }
15160             return $self->getAttribute('Complete');
15161             }
15162              
15163             #===============================================================================
15164             # Rinchi::Outlook::TaskItem::ContactNames
15165              
15166             =head2 $value = $Object->ContactNames([$new_value]);
15167              
15168             Set or get value of the ContactNames attribute.
15169              
15170            
15171             Type: String
15172             Lower: 0
15173             Upper: 1
15174              
15175             =cut
15176              
15177             sub ContactNames() {
15178             my $self = shift;
15179             if (@_) {
15180             $self->setAttribute('ContactNames', shift);
15181             }
15182             return $self->getAttribute('ContactNames');
15183             }
15184              
15185             #===============================================================================
15186             # Rinchi::Outlook::TaskItem::Contacts
15187              
15188             =head2 $value = $Object->Contacts([$new_value]);
15189              
15190             Set or get value of the Contacts attribute.
15191              
15192            
15193             Type: String
15194             Lower: 0
15195             Upper: 1
15196              
15197             =cut
15198              
15199             sub Contacts() {
15200             my $self = shift;
15201             if (@_) {
15202             $self->setAttribute('Contacts', shift);
15203             }
15204             return $self->getAttribute('Contacts');
15205             }
15206              
15207             #===============================================================================
15208             # Rinchi::Outlook::TaskItem::DateCompleted
15209              
15210             =head2 $value = $Object->DateCompleted([$new_value]);
15211              
15212             Set or get value of the DateCompleted attribute.
15213              
15214            
15215             Type: VT_DATE
15216             Lower: 0
15217             Upper: 1
15218              
15219             =cut
15220              
15221             sub DateCompleted() {
15222             my $self = shift;
15223             if (@_) {
15224             $self->setAttribute('DateCompleted', shift);
15225             }
15226             return $self->getAttribute('DateCompleted');
15227             }
15228              
15229             #===============================================================================
15230             # Rinchi::Outlook::TaskItem::DelegationState
15231              
15232             =head2 $value = $Object->DelegationState([$new_value]);
15233              
15234             Set or get value of the DelegationState attribute.
15235              
15236            
15237             Type: OlTaskDelegationState
15238             Lower: 0
15239             Upper: 1
15240              
15241             =cut
15242              
15243             sub DelegationState() {
15244             my $self = shift;
15245             if (@_) {
15246             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15247             $self->setAttribute('DelegationState', shift);
15248             } else {
15249             if(ref($_[0])) {
15250             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlTaskDelegationState\' for attribute \'DelegationState\'';
15251             } else {
15252             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlTaskDelegationState\' for attribute \'DelegationState\'';
15253             }
15254             }
15255             }
15256             return $self->getAttribute('DelegationState');
15257             }
15258              
15259             #===============================================================================
15260             # Rinchi::Outlook::TaskItem::Delegator
15261              
15262             =head2 $value = $Object->Delegator([$new_value]);
15263              
15264             Set or get value of the Delegator attribute.
15265              
15266            
15267             Type: String
15268             Lower: 0
15269             Upper: 1
15270              
15271             =cut
15272              
15273             sub Delegator() {
15274             my $self = shift;
15275             if (@_) {
15276             $self->setAttribute('Delegator', shift);
15277             }
15278             return $self->getAttribute('Delegator');
15279             }
15280              
15281             #===============================================================================
15282             # Rinchi::Outlook::TaskItem::DueDate
15283              
15284             =head2 $value = $Object->DueDate([$new_value]);
15285              
15286             Set or get value of the DueDate attribute.
15287              
15288            
15289             Type: VT_DATE
15290             Lower: 0
15291             Upper: 1
15292              
15293             =cut
15294              
15295             sub DueDate() {
15296             my $self = shift;
15297             if (@_) {
15298             $self->setAttribute('DueDate', shift);
15299             }
15300             return $self->getAttribute('DueDate');
15301             }
15302              
15303             #===============================================================================
15304             # Rinchi::Outlook::TaskItem::InternetCodepage
15305              
15306             =head2 $value = $Object->InternetCodepage([$new_value]);
15307              
15308             Set or get value of the InternetCodepage attribute.
15309              
15310            
15311             Type: Long
15312             Lower: 0
15313             Upper: 1
15314              
15315             =cut
15316              
15317             sub InternetCodepage() {
15318             my $self = shift;
15319             if (@_) {
15320             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15321             $self->setAttribute('InternetCodepage', shift);
15322             } else {
15323             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'InternetCodepage\'';
15324             }
15325             }
15326             return $self->getAttribute('InternetCodepage');
15327             }
15328              
15329             #===============================================================================
15330             # Rinchi::Outlook::TaskItem::IsRecurring
15331              
15332             =head2 $value = $Object->IsRecurring([$new_value]);
15333              
15334             Set or get value of the IsRecurring attribute.
15335              
15336            
15337             Type: Boolean
15338             Lower: 0
15339             Upper: 1
15340              
15341             =cut
15342              
15343             sub IsRecurring() {
15344             my $self = shift;
15345             if (@_) {
15346             if ($_[0] =~ /^(true|false)$/i ) {
15347             $self->setAttribute('IsRecurring', lc shift);
15348             } else {
15349             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsRecurring\'';
15350             }
15351             }
15352             return $self->getAttribute('IsRecurring');
15353             }
15354              
15355             #===============================================================================
15356             # Rinchi::Outlook::TaskItem::Ordinal
15357              
15358             =head2 $value = $Object->Ordinal([$new_value]);
15359              
15360             Set or get value of the Ordinal attribute.
15361              
15362            
15363             Type: Long
15364             Lower: 0
15365             Upper: 1
15366              
15367             =cut
15368              
15369             sub Ordinal() {
15370             my $self = shift;
15371             if (@_) {
15372             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15373             $self->setAttribute('Ordinal', shift);
15374             } else {
15375             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Ordinal\'';
15376             }
15377             }
15378             return $self->getAttribute('Ordinal');
15379             }
15380              
15381             #===============================================================================
15382             # Rinchi::Outlook::TaskItem::Owner
15383              
15384             =head2 $value = $Object->Owner([$new_value]);
15385              
15386             Set or get value of the Owner attribute.
15387              
15388            
15389             Type: String
15390             Lower: 0
15391             Upper: 1
15392              
15393             =cut
15394              
15395             sub Owner() {
15396             my $self = shift;
15397             if (@_) {
15398             $self->setAttribute('Owner', shift);
15399             }
15400             return $self->getAttribute('Owner');
15401             }
15402              
15403             #===============================================================================
15404             # Rinchi::Outlook::TaskItem::Ownership
15405              
15406             =head2 $value = $Object->Ownership([$new_value]);
15407              
15408             Set or get value of the Ownership attribute.
15409              
15410            
15411             Type: OlTaskOwnership
15412             Lower: 0
15413             Upper: 1
15414              
15415             =cut
15416              
15417             sub Ownership() {
15418             my $self = shift;
15419             if (@_) {
15420             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15421             $self->setAttribute('Ownership', shift);
15422             } else {
15423             if(ref($_[0])) {
15424             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlTaskOwnership\' for attribute \'Ownership\'';
15425             } else {
15426             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlTaskOwnership\' for attribute \'Ownership\'';
15427             }
15428             }
15429             }
15430             return $self->getAttribute('Ownership');
15431             }
15432              
15433             #===============================================================================
15434             # Rinchi::Outlook::TaskItem::PercentComplete
15435              
15436             =head2 $value = $Object->PercentComplete([$new_value]);
15437              
15438             Set or get value of the PercentComplete attribute.
15439              
15440            
15441             Type: Long
15442             Lower: 0
15443             Upper: 1
15444              
15445             =cut
15446              
15447             sub PercentComplete() {
15448             my $self = shift;
15449             if (@_) {
15450             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15451             $self->setAttribute('PercentComplete', shift);
15452             } else {
15453             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'PercentComplete\'';
15454             }
15455             }
15456             return $self->getAttribute('PercentComplete');
15457             }
15458              
15459             #===============================================================================
15460             # Rinchi::Outlook::TaskItem::Recipients
15461              
15462             =head2 $Element = $Object->Recipients();
15463              
15464             Set or get value of the Recipients attribute.
15465              
15466            
15467             Type: Recipients
15468             Lower: 0
15469             Upper: 1
15470              
15471             =cut
15472              
15473             sub Recipients() {
15474             my $self = shift;
15475             return $self->get_collection('Recipients','recipients');
15476             }
15477              
15478             #===============================================================================
15479             # Rinchi::Outlook::TaskItem::ReminderOverrideDefault
15480              
15481             =head2 $value = $Object->ReminderOverrideDefault([$new_value]);
15482              
15483             Set or get value of the ReminderOverrideDefault attribute.
15484              
15485            
15486             Type: Boolean
15487             Lower: 0
15488             Upper: 1
15489              
15490             =cut
15491              
15492             sub ReminderOverrideDefault() {
15493             my $self = shift;
15494             if (@_) {
15495             if ($_[0] =~ /^(true|false)$/i ) {
15496             $self->setAttribute('ReminderOverrideDefault', lc shift);
15497             } else {
15498             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderOverrideDefault\'';
15499             }
15500             }
15501             return $self->getAttribute('ReminderOverrideDefault');
15502             }
15503              
15504             #===============================================================================
15505             # Rinchi::Outlook::TaskItem::ReminderPlaySound
15506              
15507             =head2 $value = $Object->ReminderPlaySound([$new_value]);
15508              
15509             Set or get value of the ReminderPlaySound attribute.
15510              
15511            
15512             Type: Boolean
15513             Lower: 0
15514             Upper: 1
15515              
15516             =cut
15517              
15518             sub ReminderPlaySound() {
15519             my $self = shift;
15520             if (@_) {
15521             if ($_[0] =~ /^(true|false)$/i ) {
15522             $self->setAttribute('ReminderPlaySound', lc shift);
15523             } else {
15524             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderPlaySound\'';
15525             }
15526             }
15527             return $self->getAttribute('ReminderPlaySound');
15528             }
15529              
15530             #===============================================================================
15531             # Rinchi::Outlook::TaskItem::ReminderSet
15532              
15533             =head2 $value = $Object->ReminderSet([$new_value]);
15534              
15535             Set or get value of the ReminderSet attribute.
15536              
15537            
15538             Type: Boolean
15539             Lower: 0
15540             Upper: 1
15541              
15542             =cut
15543              
15544             sub ReminderSet() {
15545             my $self = shift;
15546             if (@_) {
15547             if ($_[0] =~ /^(true|false)$/i ) {
15548             $self->setAttribute('ReminderSet', lc shift);
15549             } else {
15550             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'ReminderSet\'';
15551             }
15552             }
15553             return $self->getAttribute('ReminderSet');
15554             }
15555              
15556             #===============================================================================
15557             # Rinchi::Outlook::TaskItem::ReminderSoundFile
15558              
15559             =head2 $value = $Object->ReminderSoundFile([$new_value]);
15560              
15561             Set or get value of the ReminderSoundFile attribute.
15562              
15563            
15564             Type: String
15565             Lower: 0
15566             Upper: 1
15567              
15568             =cut
15569              
15570             sub ReminderSoundFile() {
15571             my $self = shift;
15572             if (@_) {
15573             $self->setAttribute('ReminderSoundFile', shift);
15574             }
15575             return $self->getAttribute('ReminderSoundFile');
15576             }
15577              
15578             #===============================================================================
15579             # Rinchi::Outlook::TaskItem::ReminderTime
15580              
15581             =head2 $value = $Object->ReminderTime([$new_value]);
15582              
15583             Set or get value of the ReminderTime attribute.
15584              
15585            
15586             Type: VT_DATE
15587             Lower: 0
15588             Upper: 1
15589              
15590             =cut
15591              
15592             sub ReminderTime() {
15593             my $self = shift;
15594             if (@_) {
15595             $self->setAttribute('ReminderTime', shift);
15596             }
15597             return $self->getAttribute('ReminderTime');
15598             }
15599              
15600             #===============================================================================
15601             # Rinchi::Outlook::TaskItem::ResponseState
15602              
15603             =head2 $value = $Object->ResponseState([$new_value]);
15604              
15605             Set or get value of the ResponseState attribute.
15606              
15607            
15608             Type: OlTaskResponse
15609             Lower: 0
15610             Upper: 1
15611              
15612             =cut
15613              
15614             sub ResponseState() {
15615             my $self = shift;
15616             if (@_) {
15617             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15618             $self->setAttribute('ResponseState', shift);
15619             } else {
15620             if(ref($_[0])) {
15621             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlTaskResponse\' for attribute \'ResponseState\'';
15622             } else {
15623             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlTaskResponse\' for attribute \'ResponseState\'';
15624             }
15625             }
15626             }
15627             return $self->getAttribute('ResponseState');
15628             }
15629              
15630             #===============================================================================
15631             # Rinchi::Outlook::TaskItem::Role
15632              
15633             =head2 $value = $Object->Role([$new_value]);
15634              
15635             Set or get value of the Role attribute.
15636              
15637            
15638             Type: String
15639             Lower: 0
15640             Upper: 1
15641              
15642             =cut
15643              
15644             sub Role() {
15645             my $self = shift;
15646             if (@_) {
15647             $self->setAttribute('Role', shift);
15648             }
15649             return $self->getAttribute('Role');
15650             }
15651              
15652             #===============================================================================
15653             # Rinchi::Outlook::TaskItem::SchedulePlusPriority
15654              
15655             =head2 $value = $Object->SchedulePlusPriority([$new_value]);
15656              
15657             Set or get value of the SchedulePlusPriority attribute.
15658              
15659            
15660             Type: String
15661             Lower: 0
15662             Upper: 1
15663              
15664             =cut
15665              
15666             sub SchedulePlusPriority() {
15667             my $self = shift;
15668             if (@_) {
15669             $self->setAttribute('SchedulePlusPriority', shift);
15670             }
15671             return $self->getAttribute('SchedulePlusPriority');
15672             }
15673              
15674             #===============================================================================
15675             # Rinchi::Outlook::TaskItem::StartDate
15676              
15677             =head2 $value = $Object->StartDate([$new_value]);
15678              
15679             Set or get value of the StartDate attribute.
15680              
15681            
15682             Type: VT_DATE
15683             Lower: 0
15684             Upper: 1
15685              
15686             =cut
15687              
15688             sub StartDate() {
15689             my $self = shift;
15690             if (@_) {
15691             $self->setAttribute('StartDate', shift);
15692             }
15693             return $self->getAttribute('StartDate');
15694             }
15695              
15696             #===============================================================================
15697             # Rinchi::Outlook::TaskItem::Status
15698              
15699             =head2 $value = $Object->Status([$new_value]);
15700              
15701             Set or get value of the Status attribute.
15702              
15703            
15704             Type: OlTaskStatus
15705             Lower: 0
15706             Upper: 1
15707              
15708             =cut
15709              
15710             sub Status() {
15711             my $self = shift;
15712             if (@_) {
15713             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15714             $self->setAttribute('Status', shift);
15715             } else {
15716             if(ref($_[0])) {
15717             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlTaskStatus\' for attribute \'Status\'';
15718             } else {
15719             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlTaskStatus\' for attribute \'Status\'';
15720             }
15721             }
15722             }
15723             return $self->getAttribute('Status');
15724             }
15725              
15726             #===============================================================================
15727             # Rinchi::Outlook::TaskItem::StatusOnCompletionRecipients
15728              
15729             =head2 $value = $Object->StatusOnCompletionRecipients([$new_value]);
15730              
15731             Set or get value of the StatusOnCompletionRecipients attribute.
15732              
15733            
15734             Type: String
15735             Lower: 0
15736             Upper: 1
15737              
15738             =cut
15739              
15740             sub StatusOnCompletionRecipients() {
15741             my $self = shift;
15742             if (@_) {
15743             $self->setAttribute('StatusOnCompletionRecipients', shift);
15744             }
15745             return $self->getAttribute('StatusOnCompletionRecipients');
15746             }
15747              
15748             #===============================================================================
15749             # Rinchi::Outlook::TaskItem::StatusUpdateRecipients
15750              
15751             =head2 $value = $Object->StatusUpdateRecipients([$new_value]);
15752              
15753             Set or get value of the StatusUpdateRecipients attribute.
15754              
15755            
15756             Type: String
15757             Lower: 0
15758             Upper: 1
15759              
15760             =cut
15761              
15762             sub StatusUpdateRecipients() {
15763             my $self = shift;
15764             if (@_) {
15765             $self->setAttribute('StatusUpdateRecipients', shift);
15766             }
15767             return $self->getAttribute('StatusUpdateRecipients');
15768             }
15769              
15770             #===============================================================================
15771             # Rinchi::Outlook::TaskItem::TeamTask
15772              
15773             =head2 $value = $Object->TeamTask([$new_value]);
15774              
15775             Set or get value of the TeamTask attribute.
15776              
15777            
15778             Type: Boolean
15779             Lower: 0
15780             Upper: 1
15781              
15782             =cut
15783              
15784             sub TeamTask() {
15785             my $self = shift;
15786             if (@_) {
15787             if ($_[0] =~ /^(true|false)$/i ) {
15788             $self->setAttribute('TeamTask', lc shift);
15789             } else {
15790             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'TeamTask\'';
15791             }
15792             }
15793             return $self->getAttribute('TeamTask');
15794             }
15795              
15796             #===============================================================================
15797             # Rinchi::Outlook::TaskItem::TotalWork
15798              
15799             =head2 $value = $Object->TotalWork([$new_value]);
15800              
15801             Set or get value of the TotalWork attribute.
15802              
15803            
15804             Type: Long
15805             Lower: 0
15806             Upper: 1
15807              
15808             =cut
15809              
15810             sub TotalWork() {
15811             my $self = shift;
15812             if (@_) {
15813             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
15814             $self->setAttribute('TotalWork', shift);
15815             } else {
15816             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'TotalWork\'';
15817             }
15818             }
15819             return $self->getAttribute('TotalWork');
15820             }
15821              
15822             ##END_PACKAGE TaskItem
15823              
15824             #===============================================================================
15825             # Generated by Hymnos Perl Code Generator
15826             # UML Model UUID: d5e0692c-3c43-11dd-b7e8-001c25551abc
15827              
15828             package Rinchi::Outlook::TaskRequestAcceptItem;
15829              
15830             use Carp;
15831              
15832             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
15833             our @EXPORT = qw();
15834             our @EXPORT_OK = qw();
15835              
15836             =head1 DESCRIPTION of TaskRequestAcceptItem
15837              
15838             Rinchi::Outlook::TaskRequestAcceptItem is used for representing
15839             TaskRequestAcceptItem objects. A TaskRequestAcceptItem object Represents an item
15840             in an Inbox (mail) folder.
15841              
15842             A TaskRequestAcceptItem object represents a response to a TaskRequestItem sent by
15843             the initiating user. If the delegated user accepts the task, the ResponseState
15844             property is set to olTaskAccept. The associated TaskItem is received by the
15845             delegator as a TaskRequestAcceptItem object.
15846              
15847             =head1 METHODS for TaskRequestAcceptItem objects
15848              
15849             =cut
15850              
15851             #===============================================================================
15852              
15853             {
15854             no strict "refs";
15855             *TAG_NAME = sub { return 'task-request-accept-item'; };
15856             }
15857              
15858             ##END_PACKAGE TaskRequestAcceptItem
15859              
15860             #===============================================================================
15861             # Generated by Hymnos Perl Code Generator
15862             # UML Model UUID: d5e08880-3c43-11dd-9d56-001c25551abc
15863              
15864             package Rinchi::Outlook::TaskRequestDeclineItem;
15865              
15866             use Carp;
15867              
15868             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
15869             our @EXPORT = qw();
15870             our @EXPORT_OK = qw();
15871              
15872             =head1 DESCRIPTION of TaskRequestDeclineItem class
15873              
15874             Rinchi::Outlook::TaskRequestDeclineItem is used for representing
15875             TaskRequestDeclineItem objects. A TaskRequestDeclineItem object represents an
15876             item in an Inbox (mail) folder.
15877              
15878             A TaskRequestDeclineItem object represents a response to a TaskRequestItem sent
15879             by the initiating user. If the delegated user declines the task, the
15880             ResponseState property is set to olTaskDecline. The associated TaskItem is
15881             received by the delegator as a TaskRequestDeclineItem object.
15882              
15883             =head1 METHODS for TaskRequestDeclineItem objects
15884              
15885             =cut
15886              
15887             #===============================================================================
15888              
15889             {
15890             no strict "refs";
15891             *TAG_NAME = sub { return 'task-request-decline-item'; };
15892             }
15893              
15894             ##END_PACKAGE TaskRequestDeclineItem
15895              
15896             #===============================================================================
15897             # Generated by Hymnos Perl Code Generator
15898             # UML Model UUID: d5e0a8d8-3c43-11dd-84f0-001c25551abc
15899              
15900             package Rinchi::Outlook::TaskRequestItem;
15901              
15902             use Carp;
15903              
15904             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
15905             our @EXPORT = qw();
15906             our @EXPORT_OK = qw();
15907              
15908             =head1 DESCRIPTION of TaskRequestItem class
15909              
15910             Rinchi::Outlook::TaskRequestItem is used for representing TaskRequestItem
15911             objects. A TaskRequestItem object represents an item in an Inbox (mail) folder.
15912             A TaskRequestItem object represents a change to the recipient's Tasks list
15913             initiated by another party or as a result of a group tasking.
15914            
15915             =head1 METHODS for TaskRequestItem objects
15916              
15917             =cut
15918              
15919             #===============================================================================
15920              
15921             {
15922             no strict "refs";
15923             *TAG_NAME = sub { return 'task-request-item'; };
15924             }
15925              
15926             ##END_PACKAGE TaskRequestItem
15927              
15928             #===============================================================================
15929             # Generated by Hymnos Perl Code Generator
15930             # UML Model UUID: d5e0ca16-3c43-11dd-bc30-001c25551abc
15931              
15932             package Rinchi::Outlook::TaskRequestUpdateItem;
15933              
15934             use Carp;
15935              
15936             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookItemObject);
15937             our @EXPORT = qw();
15938             our @EXPORT_OK = qw();
15939              
15940             =head1 DESCRIPTION of TaskRequestUpdateItem class
15941              
15942             Rinchi::Outlook::TaskRequestUpdateItem is used for representing
15943             TaskRequestUpdateItem objects. A TaskRequestUpdateItem object represents an
15944             item in an Inbox (mail) folder.
15945              
15946             A TaskRequestUpdateItem object represents a response to a TaskRequestItem sent
15947             by the initiating user. If the delegated user updates the task by changing
15948             properties such as the DueDate or the Status, and then sends it, the associated
15949             TaskItem is received by the delegator as a TaskRequestUpdateItem object.
15950              
15951             =head1 METHODS for TaskRequestUpdateItem objects
15952              
15953             =cut
15954              
15955             #===============================================================================
15956              
15957             {
15958             no strict "refs";
15959             *TAG_NAME = sub { return 'task-request-update-item'; };
15960             }
15961              
15962             ##END_PACKAGE TaskRequestUpdateItem
15963              
15964             #===============================================================================
15965             # Generated by Hymnos Perl Code Generator
15966             # UML Model UUID: e0efff78-40a1-11dd-8bf4-00502c05c241
15967              
15968             package Rinchi::Outlook::OutlookBaseItemObject;
15969              
15970             use Carp;
15971              
15972             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::BasicElement);
15973             our @EXPORT = qw();
15974             our @EXPORT_OK = qw();
15975              
15976             =head1 DESCRIPTION of OutlookBaseItemObject class
15977              
15978             Rinchi::Outlook::OutlookBaseItemObject is an abstract class used for
15979             representing OutlookBaseItemObject objects. Classes derived from
15980             OutlookBaseItemObject include OutlookItemObject and NoteItem.
15981              
15982             =head1 METHODS for OutlookBaseItemObject objects
15983              
15984             =cut
15985              
15986             #===============================================================================
15987              
15988             {
15989             no strict "refs";
15990             *TAG_NAME = sub { return 'outlook-base-item-object'; };
15991             }
15992              
15993             #===============================================================================
15994             # Rinchi::Outlook::OutlookBaseItemObject::Application
15995              
15996             =head2 $value = $Object->Application([$new_value]);
15997              
15998             Set or get value of the Application attribute.
15999              
16000            
16001             Type: Application
16002             Lower: 0
16003             Upper: 1
16004              
16005             =cut
16006              
16007             sub Application() {
16008             my $self = shift;
16009             if (@_) {
16010             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
16011             if ('Rinchi::Outlook::Application' =~ /$regexp/ ) {
16012             $self->attribute_as_element('Application', shift);
16013             } else {
16014             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Application\' for attribute \'Application\'';
16015             }
16016             }
16017             return $self->attribute_as_element('Application');
16018             }
16019              
16020             #===============================================================================
16021             # Rinchi::Outlook::OutlookBaseItemObject::AutoResolvedWinner
16022              
16023             =head2 $value = $Object->AutoResolvedWinner([$new_value]);
16024              
16025             Set or get value of the AutoResolvedWinner attribute.
16026              
16027            
16028             Type: Boolean
16029             Lower: 0
16030             Upper: 1
16031              
16032             =cut
16033              
16034             sub AutoResolvedWinner() {
16035             my $self = shift;
16036             if (@_) {
16037             if ($_[0] =~ /^(true|false)$/i ) {
16038             $self->setAttribute('AutoResolvedWinner', lc shift);
16039             } else {
16040             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'AutoResolvedWinner\'';
16041             }
16042             }
16043             return $self->getAttribute('AutoResolvedWinner');
16044             }
16045              
16046             #===============================================================================
16047             # Rinchi::Outlook::OutlookBaseItemObject::Body
16048              
16049             =head2 $value = $Object->Body([$new_value]);
16050              
16051             Set or get value of the Body attribute.
16052              
16053            
16054             Type: String
16055             Lower: 0
16056             Upper: 1
16057              
16058             =cut
16059              
16060             sub Body() {
16061             my $self = shift;
16062             if (@_) {
16063             $self->attribute_as_element('Body', shift);
16064             }
16065             return $self->attribute_as_element('Body');
16066             }
16067              
16068             #===============================================================================
16069             # Rinchi::Outlook::OutlookBaseItemObject::Categories
16070              
16071             =head2 $value = $Object->Categories([$new_value]);
16072              
16073             Set or get value of the Categories attribute.
16074              
16075            
16076             Type: String
16077             Lower: 0
16078             Upper: 1
16079              
16080             =cut
16081              
16082             sub Categories() {
16083             my $self = shift;
16084             if (@_) {
16085             $self->setAttribute('Categories', shift);
16086             }
16087             return $self->getAttribute('Categories');
16088             }
16089              
16090             #===============================================================================
16091             # Rinchi::Outlook::OutlookBaseItemObject::Class
16092              
16093             =head2 $value = $Object->Class([$new_value]);
16094              
16095             Set or get value of the Class attribute.
16096              
16097            
16098             Type: OlObjectClass
16099             Lower: 0
16100             Upper: 1
16101              
16102             =cut
16103              
16104             sub Class() {
16105             my $self = shift;
16106             if (@_) {
16107             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
16108             $self->setAttribute('Class', shift);
16109             } else {
16110             if(ref($_[0])) {
16111             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
16112             } else {
16113             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlObjectClass\' for attribute \'Class\'';
16114             }
16115             }
16116             }
16117             return $self->getAttribute('Class');
16118             }
16119              
16120             #===============================================================================
16121             # Rinchi::Outlook::OutlookBaseItemObject::Conflicts
16122              
16123             =head2 $Element = $Object->Conflicts();
16124              
16125             Set or get value of the Conflicts attribute.
16126              
16127            
16128             Type: Conflicts
16129             Lower: 0
16130             Upper: 1
16131              
16132             =cut
16133              
16134             sub Conflicts() {
16135             my $self = shift;
16136             return $self->get_collection('Conflicts','conflicts');
16137             }
16138              
16139             #===============================================================================
16140             # Rinchi::Outlook::OutlookBaseItemObject::CreationTime
16141              
16142             =head2 $value = $Object->CreationTime([$new_value]);
16143              
16144             Set or get value of the CreationTime attribute.
16145              
16146            
16147             Type: VT_DATE
16148             Lower: 0
16149             Upper: 1
16150              
16151             =cut
16152              
16153             sub CreationTime() {
16154             my $self = shift;
16155             if (@_) {
16156             $self->setAttribute('CreationTime', shift);
16157             }
16158             return $self->getAttribute('CreationTime');
16159             }
16160              
16161             #===============================================================================
16162             # Rinchi::Outlook::OutlookBaseItemObject::DownloadState
16163              
16164             =head2 $value = $Object->DownloadState([$new_value]);
16165              
16166             Set or get value of the DownloadState attribute.
16167              
16168            
16169             Type: OlDownloadState
16170             Lower: 0
16171             Upper: 1
16172              
16173             =cut
16174              
16175             sub DownloadState() {
16176             my $self = shift;
16177             if (@_) {
16178             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
16179             $self->setAttribute('DownloadState', shift);
16180             } else {
16181             if(ref($_[0])) {
16182             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlDownloadState\' for attribute \'DownloadState\'';
16183             } else {
16184             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlDownloadState\' for attribute \'DownloadState\'';
16185             }
16186             }
16187             }
16188             return $self->getAttribute('DownloadState');
16189             }
16190              
16191             #===============================================================================
16192             # Rinchi::Outlook::OutlookBaseItemObject::EntryID
16193              
16194             =head2 $value = $Object->EntryID([$new_value]);
16195              
16196             Set or get value of the EntryID attribute.
16197              
16198            
16199             Type: String
16200             Lower: 0
16201             Upper: 1
16202              
16203             =cut
16204              
16205             sub EntryID() {
16206             my $self = shift;
16207             if (@_) {
16208             $self->setAttribute('EntryID', shift);
16209             }
16210             return $self->getAttribute('EntryID');
16211             }
16212              
16213             #===============================================================================
16214             # Rinchi::Outlook::OutlookBaseItemObject::GetInspector
16215              
16216             =head2 $value = $Object->GetInspector([$new_value]);
16217              
16218             Set or get value of the GetInspector attribute.
16219              
16220            
16221             Type: Inspector
16222             Lower: 0
16223             Upper: 1
16224              
16225             =cut
16226              
16227             sub GetInspector() {
16228             my $self = shift;
16229             if (@_) {
16230             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
16231             if ('Rinchi::Outlook::Inspector' =~ /$regexp/ ) {
16232             $self->attribute_as_element('GetInspector', shift);
16233             } else {
16234             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Inspector\' for attribute \'GetInspector\'';
16235             }
16236             }
16237             return $self->attribute_as_element('GetInspector');
16238             }
16239              
16240             #===============================================================================
16241             # Rinchi::Outlook::OutlookBaseItemObject::IsConflict
16242              
16243             =head2 $value = $Object->IsConflict([$new_value]);
16244              
16245             Set or get value of the IsConflict attribute.
16246              
16247            
16248             Type: Boolean
16249             Lower: 0
16250             Upper: 1
16251              
16252             =cut
16253              
16254             sub IsConflict() {
16255             my $self = shift;
16256             if (@_) {
16257             if ($_[0] =~ /^(true|false)$/i ) {
16258             $self->setAttribute('IsConflict', lc shift);
16259             } else {
16260             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'IsConflict\'';
16261             }
16262             }
16263             return $self->getAttribute('IsConflict');
16264             }
16265              
16266             #===============================================================================
16267             # Rinchi::Outlook::OutlookBaseItemObject::ItemProperties
16268              
16269             =head2 $Element = $Object->ItemProperties();
16270              
16271             Set or get value of the ItemProperties attribute.
16272              
16273            
16274             Type: ItemProperties
16275             Lower: 0
16276             Upper: 1
16277              
16278             =cut
16279              
16280             sub ItemProperties() {
16281             my $self = shift;
16282             return $self->get_collection('ItemProperties','item-properties');
16283             }
16284              
16285             #===============================================================================
16286             # Rinchi::Outlook::OutlookBaseItemObject::LastModificationTime
16287              
16288             =head2 $value = $Object->LastModificationTime([$new_value]);
16289              
16290             Set or get value of the LastModificationTime attribute.
16291              
16292            
16293             Type: VT_DATE
16294             Lower: 0
16295             Upper: 1
16296              
16297             =cut
16298              
16299             sub LastModificationTime() {
16300             my $self = shift;
16301             if (@_) {
16302             $self->setAttribute('LastModificationTime', shift);
16303             }
16304             return $self->getAttribute('LastModificationTime');
16305             }
16306              
16307             #===============================================================================
16308             # Rinchi::Outlook::OutlookBaseItemObject::Links
16309              
16310             =head2 $Element = $Object->Links();
16311              
16312             Set or get value of the Links attribute.
16313              
16314            
16315             Type: Links
16316             Lower: 0
16317             Upper: 1
16318              
16319             =cut
16320              
16321             sub Links() {
16322             my $self = shift;
16323             return $self->get_collection('Links','links');
16324             }
16325              
16326             #===============================================================================
16327             # Rinchi::Outlook::OutlookBaseItemObject::MarkForDownload
16328              
16329             =head2 $value = $Object->MarkForDownload([$new_value]);
16330              
16331             Set or get value of the MarkForDownload attribute.
16332              
16333            
16334             Type: OlRemoteStatus
16335             Lower: 0
16336             Upper: 1
16337              
16338             =cut
16339              
16340             sub MarkForDownload() {
16341             my $self = shift;
16342             if (@_) {
16343             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
16344             $self->setAttribute('MarkForDownload', shift);
16345             } else {
16346             if(ref($_[0])) {
16347             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlRemoteStatus\' for attribute \'MarkForDownload\'';
16348             } else {
16349             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlRemoteStatus\' for attribute \'MarkForDownload\'';
16350             }
16351             }
16352             }
16353             return $self->getAttribute('MarkForDownload');
16354             }
16355              
16356             #===============================================================================
16357             # Rinchi::Outlook::OutlookBaseItemObject::MessageClass
16358              
16359             =head2 $value = $Object->MessageClass([$new_value]);
16360              
16361             Set or get value of the MessageClass attribute.
16362              
16363            
16364             Type: String
16365             Lower: 0
16366             Upper: 1
16367              
16368             =cut
16369              
16370             sub MessageClass() {
16371             my $self = shift;
16372             if (@_) {
16373             $self->setAttribute('MessageClass', shift);
16374             }
16375             return $self->getAttribute('MessageClass');
16376             }
16377              
16378             #===============================================================================
16379             # Rinchi::Outlook::OutlookBaseItemObject::Parent
16380              
16381             =head2 $value = $Object->Parent([$new_value]);
16382              
16383             Set or get value of the Parent attribute.
16384              
16385            
16386             Type: Object
16387             Lower: 0
16388             Upper: 1
16389              
16390             =cut
16391              
16392             sub Parent() {
16393             my $self = shift;
16394             if (@_) {
16395             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
16396             if ('Rinchi::Outlook::Object' =~ /$regexp/ ) {
16397             $self->attribute_as_element('Parent', shift);
16398             } else {
16399             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::Object\' for attribute \'Parent\'';
16400             }
16401             }
16402             return $self->attribute_as_element('Parent');
16403             }
16404              
16405             #===============================================================================
16406             # Rinchi::Outlook::OutlookBaseItemObject::Saved
16407              
16408             =head2 $value = $Object->Saved([$new_value]);
16409              
16410             Set or get value of the Saved attribute.
16411              
16412            
16413             Type: Boolean
16414             Lower: 0
16415             Upper: 1
16416              
16417             =cut
16418              
16419             sub Saved() {
16420             my $self = shift;
16421             if (@_) {
16422             if ($_[0] =~ /^(true|false)$/i ) {
16423             $self->setAttribute('Saved', lc shift);
16424             } else {
16425             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'Saved\'';
16426             }
16427             }
16428             return $self->getAttribute('Saved');
16429             }
16430              
16431             #===============================================================================
16432             # Rinchi::Outlook::OutlookBaseItemObject::Session
16433              
16434             =head2 $value = $Object->Session([$new_value]);
16435              
16436             Set or get value of the Session attribute.
16437              
16438            
16439             Type: NameSpace
16440             Lower: 0
16441             Upper: 1
16442              
16443             =cut
16444              
16445             sub Session() {
16446             my $self = shift;
16447             if (@_) {
16448             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
16449             if ('Rinchi::Outlook::NameSpace' =~ /$regexp/ ) {
16450             $self->attribute_as_element('Session', shift);
16451             } else {
16452             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::NameSpace\' for attribute \'Session\'';
16453             }
16454             }
16455             return $self->attribute_as_element('Session');
16456             }
16457              
16458             #===============================================================================
16459             # Rinchi::Outlook::OutlookBaseItemObject::Size
16460              
16461             =head2 $value = $Object->Size([$new_value]);
16462              
16463             Set or get value of the Size attribute.
16464              
16465            
16466             Type: Long
16467             Lower: 0
16468             Upper: 1
16469              
16470             =cut
16471              
16472             sub Size() {
16473             my $self = shift;
16474             if (@_) {
16475             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
16476             $self->setAttribute('Size', shift);
16477             } else {
16478             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'Size\'';
16479             }
16480             }
16481             return $self->getAttribute('Size');
16482             }
16483              
16484             #===============================================================================
16485             # Rinchi::Outlook::OutlookBaseItemObject::Subject
16486              
16487             =head2 $value = $Object->Subject([$new_value]);
16488              
16489             Set or get value of the Subject attribute.
16490              
16491            
16492             Type: String
16493             Lower: 0
16494             Upper: 1
16495              
16496             =cut
16497              
16498             sub Subject() {
16499             my $self = shift;
16500             if (@_) {
16501             $self->setAttribute('Subject', shift);
16502             }
16503             return $self->getAttribute('Subject');
16504             }
16505              
16506             ##END_PACKAGE OutlookBaseItemObject
16507              
16508             #===============================================================================
16509             # Generated by Hymnos Perl Code Generator
16510             # UML Model UUID: 80ebedaf-40b0-11dd-8bf4-00502c05c241
16511              
16512             package Rinchi::Outlook::OutlookItemObject;
16513              
16514             use Carp;
16515              
16516             our @ISA = qw(Rinchi::Outlook::Element Rinchi::Outlook::OutlookBaseItemObject);
16517             our @EXPORT = qw();
16518             our @EXPORT_OK = qw();
16519              
16520             =head1 DESCRIPTION of OutlookItemObject class
16521              
16522             Rinchi::Outlook::OutlookItemObject is an abstract class used for representing
16523             OutlookItemObject objects. Classes derived from OutlookItemObject include the
16524             following:
16525              
16526             AppointmentItem
16527             ContactItem
16528             DistListItem
16529             DocumentItem
16530             JournalItem
16531             MailItem
16532             MeetingItem
16533             PostItem
16534             RemoteItem
16535             ReportItem
16536             TaskItem
16537             TaskRequestAcceptItem
16538             TaskRequestDeclineItem
16539             TaskRequestItem
16540             TaskRequestUpdateItem
16541              
16542             =head1 METHODS for OutlookItemObject objects
16543              
16544             =cut
16545              
16546             #===============================================================================
16547              
16548             {
16549             no strict "refs";
16550             *TAG_NAME = sub { return 'outlook-item-object'; };
16551             }
16552              
16553             #===============================================================================
16554             # Rinchi::Outlook::OutlookItemObject::Actions
16555              
16556             =head2 $Element = $Object->Actions();
16557              
16558             Set or get value of the Actions attribute.
16559              
16560            
16561             Type: Actions
16562             Lower: 0
16563             Upper: 1
16564              
16565             =cut
16566              
16567             sub Actions() {
16568             my $self = shift;
16569             return $self->get_collection('Actions','actions');
16570             }
16571              
16572             #===============================================================================
16573             # Rinchi::Outlook::OutlookItemObject::Attachments
16574              
16575             =head2 $Element = $Object->Attachments();
16576              
16577             Set or get value of the Attachments attribute.
16578              
16579            
16580             Type: Attachments
16581             Lower: 0
16582             Upper: 1
16583              
16584             =cut
16585              
16586             sub Attachments() {
16587             my $self = shift;
16588             return $self->get_collection('Attachments','attachments');
16589             }
16590              
16591             #===============================================================================
16592             # Rinchi::Outlook::OutlookItemObject::BillingInformation
16593              
16594             =head2 $value = $Object->BillingInformation([$new_value]);
16595              
16596             Set or get value of the BillingInformation attribute.
16597              
16598            
16599             Type: String
16600             Lower: 0
16601             Upper: 1
16602              
16603             =cut
16604              
16605             sub BillingInformation() {
16606             my $self = shift;
16607             if (@_) {
16608             $self->setAttribute('BillingInformation', shift);
16609             }
16610             return $self->getAttribute('BillingInformation');
16611             }
16612              
16613             #===============================================================================
16614             # Rinchi::Outlook::OutlookItemObject::Companies
16615              
16616             =head2 $value = $Object->Companies([$new_value]);
16617              
16618             Set or get value of the Companies attribute.
16619              
16620            
16621             Type: String
16622             Lower: 0
16623             Upper: 1
16624              
16625             =cut
16626              
16627             sub Companies() {
16628             my $self = shift;
16629             if (@_) {
16630             $self->setAttribute('Companies', shift);
16631             }
16632             return $self->getAttribute('Companies');
16633             }
16634              
16635             #===============================================================================
16636             # Rinchi::Outlook::OutlookItemObject::ConversationIndex
16637              
16638             =head2 $value = $Object->ConversationIndex([$new_value]);
16639              
16640             Set or get value of the ConversationIndex attribute.
16641              
16642            
16643             Type: String
16644             Lower: 0
16645             Upper: 1
16646              
16647             =cut
16648              
16649             sub ConversationIndex() {
16650             my $self = shift;
16651             if (@_) {
16652             $self->setAttribute('ConversationIndex', shift);
16653             }
16654             return $self->getAttribute('ConversationIndex');
16655             }
16656              
16657             #===============================================================================
16658             # Rinchi::Outlook::OutlookItemObject::ConversationTopic
16659              
16660             =head2 $value = $Object->ConversationTopic([$new_value]);
16661              
16662             Set or get value of the ConversationTopic attribute.
16663              
16664            
16665             Type: String
16666             Lower: 0
16667             Upper: 1
16668              
16669             =cut
16670              
16671             sub ConversationTopic() {
16672             my $self = shift;
16673             if (@_) {
16674             $self->setAttribute('ConversationTopic', shift);
16675             }
16676             return $self->getAttribute('ConversationTopic');
16677             }
16678              
16679             #===============================================================================
16680             # Rinchi::Outlook::OutlookItemObject::FormDescription
16681              
16682             =head2 $value = $Object->FormDescription([$new_value]);
16683              
16684             Set or get value of the FormDescription attribute.
16685              
16686            
16687             Type: FormDescription
16688             Lower: 0
16689             Upper: 1
16690              
16691             =cut
16692              
16693             sub FormDescription() {
16694             my $self = shift;
16695             if (@_) {
16696             my $regexp = join('|',Class::ISA::self_and_super_path(ref($_[0])));
16697             if ('Rinchi::Outlook::FormDescription' =~ /$regexp/ ) {
16698             $self->attribute_as_element('FormDescription', shift);
16699             } else {
16700             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::FormDescription\' for attribute \'FormDescription\'';
16701             }
16702             }
16703             return $self->attribute_as_element('FormDescription');
16704             }
16705              
16706             #===============================================================================
16707             # Rinchi::Outlook::OutlookItemObject::Importance
16708              
16709             =head2 $value = $Object->Importance([$new_value]);
16710              
16711             Set or get value of the Importance attribute.
16712              
16713            
16714             Type: OlImportance
16715             Lower: 0
16716             Upper: 1
16717              
16718             =cut
16719              
16720             sub Importance() {
16721             my $self = shift;
16722             if (@_) {
16723             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
16724             $self->setAttribute('Importance', shift);
16725             } else {
16726             if(ref($_[0])) {
16727             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlImportance\' for attribute \'Importance\'';
16728             } else {
16729             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlImportance\' for attribute \'Importance\'';
16730             }
16731             }
16732             }
16733             return $self->getAttribute('Importance');
16734             }
16735              
16736             #===============================================================================
16737             # Rinchi::Outlook::OutlookItemObject::Mileage
16738              
16739             =head2 $value = $Object->Mileage([$new_value]);
16740              
16741             Set or get value of the Mileage attribute.
16742              
16743            
16744             Type: String
16745             Lower: 0
16746             Upper: 1
16747              
16748             =cut
16749              
16750             sub Mileage() {
16751             my $self = shift;
16752             if (@_) {
16753             $self->setAttribute('Mileage', shift);
16754             }
16755             return $self->getAttribute('Mileage');
16756             }
16757              
16758             #===============================================================================
16759             # Rinchi::Outlook::OutlookItemObject::NoAging
16760              
16761             =head2 $value = $Object->NoAging([$new_value]);
16762              
16763             Set or get value of the NoAging attribute.
16764              
16765            
16766             Type: Boolean
16767             Lower: 0
16768             Upper: 1
16769              
16770             =cut
16771              
16772             sub NoAging() {
16773             my $self = shift;
16774             if (@_) {
16775             if ($_[0] =~ /^(true|false)$/i ) {
16776             $self->setAttribute('NoAging', lc shift);
16777             } else {
16778             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'NoAging\'';
16779             }
16780             }
16781             return $self->getAttribute('NoAging');
16782             }
16783              
16784             #===============================================================================
16785             # Rinchi::Outlook::OutlookItemObject::OutlookInternalVersion
16786              
16787             =head2 $value = $Object->OutlookInternalVersion([$new_value]);
16788              
16789             Set or get value of the OutlookInternalVersion attribute.
16790              
16791            
16792             Type: Long
16793             Lower: 0
16794             Upper: 1
16795              
16796             =cut
16797              
16798             sub OutlookInternalVersion() {
16799             my $self = shift;
16800             if (@_) {
16801             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
16802             $self->setAttribute('OutlookInternalVersion', shift);
16803             } else {
16804             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Long\' for attribute \'OutlookInternalVersion\'';
16805             }
16806             }
16807             return $self->getAttribute('OutlookInternalVersion');
16808             }
16809              
16810             #===============================================================================
16811             # Rinchi::Outlook::OutlookItemObject::OutlookVersion
16812              
16813             =head2 $value = $Object->OutlookVersion([$new_value]);
16814              
16815             Set or get value of the OutlookVersion attribute.
16816              
16817            
16818             Type: String
16819             Lower: 0
16820             Upper: 1
16821              
16822             =cut
16823              
16824             sub OutlookVersion() {
16825             my $self = shift;
16826             if (@_) {
16827             $self->setAttribute('OutlookVersion', shift);
16828             }
16829             return $self->getAttribute('OutlookVersion');
16830             }
16831              
16832             #===============================================================================
16833             # Rinchi::Outlook::OutlookItemObject::Sensitivity
16834              
16835             =head2 $value = $Object->Sensitivity([$new_value]);
16836              
16837             Set or get value of the Sensitivity attribute.
16838              
16839            
16840             Type: OlSensitivity
16841             Lower: 0
16842             Upper: 1
16843              
16844             =cut
16845              
16846             sub Sensitivity() {
16847             my $self = shift;
16848             if (@_) {
16849             if ($_[0] =~ /^[-+]?[0-9]+$/ ) {
16850             $self->setAttribute('Sensitivity', shift);
16851             } else {
16852             if(ref($_[0])) {
16853             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Rinchi::Outlook::OlSensitivity\' for attribute \'Sensitivity\'';
16854             } else {
16855             carp 'Found scalar \'' . $_[0] . '\', expecting type \'Rinchi::Outlook::OlSensitivity\' for attribute \'Sensitivity\'';
16856             }
16857             }
16858             }
16859             return $self->getAttribute('Sensitivity');
16860             }
16861              
16862             #===============================================================================
16863             # Rinchi::Outlook::OutlookItemObject::UnRead
16864              
16865             =head2 $value = $Object->UnRead([$new_value]);
16866              
16867             Set or get value of the UnRead attribute.
16868              
16869            
16870             Type: Boolean
16871             Lower: 0
16872             Upper: 1
16873              
16874             =cut
16875              
16876             sub UnRead() {
16877             my $self = shift;
16878             if (@_) {
16879             if ($_[0] =~ /^(true|false)$/i ) {
16880             $self->setAttribute('UnRead', lc shift);
16881             } else {
16882             carp 'Found type \'' . ref($_[0]) . '\', expecting type \'Boolean\' for attribute \'UnRead\'';
16883             }
16884             }
16885             return $self->getAttribute('UnRead');
16886             }
16887              
16888             #===============================================================================
16889             # Rinchi::Outlook::OutlookItemObject::UserProperties
16890              
16891             =head2 $Element = $Object->UserProperties();
16892              
16893             Set or get value of the UserProperties attribute.
16894              
16895            
16896             Type: UserProperties
16897             Lower: 0
16898             Upper: 1
16899              
16900             =cut
16901              
16902             sub UserProperties() {
16903             my $self = shift;
16904             return $self->get_collection('UserProperties','user-properties');
16905             }
16906              
16907             ##END_PACKAGE OutlookItemObject
16908              
16909             #===============================================================================
16910             # Generated by Hymnos Perl Code Generator
16911             # UML Model UUID: d5e151f2-3c43-11dd-a2a3-001c25551abc
16912              
16913             package Rinchi::Outlook::OlActionCopyLike;
16914              
16915             our @ISA = qw();
16916             our @EXPORT = qw();
16917             our @EXPORT_OK = qw();
16918              
16919             =head1 DESCRIPTION of OlActionCopyLike enumeration
16920              
16921             Rinchi::Outlook::OlActionCopyLike is used for representing the OlActionCopyLike
16922             enumeration.
16923              
16924             =head1 CONSTANTS for the OlActionCopyLike enumeration
16925              
16926             olReply => 0
16927             olReplyAll => 1
16928             olForward => 2
16929             olReplyFolder => 3
16930             olRespond => 4
16931              
16932             =cut
16933              
16934             #===============================================================================
16935             *olReply = sub { return 0; };
16936             *olReplyAll = sub { return 1; };
16937             *olForward = sub { return 2; };
16938             *olReplyFolder = sub { return 3; };
16939             *olRespond = sub { return 4; };
16940              
16941             my @_literal_list_OlActionCopyLike = (
16942             'olReply' => 0,
16943             'olReplyAll' => 1,
16944             'olForward' => 2,
16945             'olReplyFolder' => 3,
16946             'olRespond' => 4,
16947             );
16948              
16949             #===============================================================================
16950             # Rinchi::Outlook::OlActionCopyLike::Literals
16951              
16952             =head1 METHODS for the OlActionCopyLike enumeration
16953              
16954             =head2 @Literals = Rinchi::Outlook::OlActionCopyLike::Literals
16955              
16956             Returns an array of literal name-value pairs.
16957              
16958             =head2 %Literals = Rinchi::Outlook::OlActionCopyLike::Literals
16959              
16960             Returns a hash of literal name-value pairs.
16961              
16962             =cut
16963              
16964             sub Literals() {
16965             my $self = shift;
16966             return @_literal_list_OlActionCopyLike;
16967             }
16968              
16969             #===============================================================================
16970             # Generated by Hymnos Perl Code Generator
16971             # UML Model UUID: d5e16430-3c43-11dd-bc9d-001c25551abc
16972              
16973             package Rinchi::Outlook::OlActionReplyStyle;
16974              
16975             our @ISA = qw();
16976             our @EXPORT = qw();
16977             our @EXPORT_OK = qw();
16978              
16979             =head1 DESCRIPTION of OlActionReplyStyle
16980              
16981             Rinchi::Outlook::OlActionReplyStyle is used representing the OlActionReplyStyle enumeration.
16982              
16983             =head1 CONSTANTS for the OlActionReplyStyle enumeration
16984              
16985             olOmitOriginalText => 0
16986             olEmbedOriginalItem => 1
16987             olIncludeOriginalText => 2
16988             olIndentOriginalText => 3
16989             olLinkOriginalItem => 4
16990             olUserPreference => 5
16991             olReplyTickOriginalText => 1000
16992              
16993             =cut
16994              
16995             #===============================================================================
16996             *olOmitOriginalText = sub { return 0; };
16997             *olEmbedOriginalItem = sub { return 1; };
16998             *olIncludeOriginalText = sub { return 2; };
16999             *olIndentOriginalText = sub { return 3; };
17000             *olLinkOriginalItem = sub { return 4; };
17001             *olUserPreference = sub { return 5; };
17002             *olReplyTickOriginalText = sub { return 1000; };
17003              
17004             my @_literal_list_OlActionReplyStyle = (
17005             'olOmitOriginalText' => 0,
17006             'olEmbedOriginalItem' => 1,
17007             'olIncludeOriginalText' => 2,
17008             'olIndentOriginalText' => 3,
17009             'olLinkOriginalItem' => 4,
17010             'olUserPreference' => 5,
17011             'olReplyTickOriginalText' => 1000,
17012             );
17013              
17014             #===============================================================================
17015             # Rinchi::Outlook::OlActionReplyStyle::Literals
17016              
17017             =head1 METHODS for the OlActionReplyStyle enumeration
17018              
17019             =head2 @Literals = Rinchi::Outlook::OlActionReplyStyle::Literals
17020              
17021             Returns an array of literal name-value pairs.
17022              
17023             =head2 %Literals = Rinchi::Outlook::OlActionReplyStyle::Literals
17024              
17025             Returns a hash of literal name-value pairs.
17026              
17027             =cut
17028              
17029             sub Literals() {
17030             my $self = shift;
17031             return @_literal_list_OlActionReplyStyle;
17032             }
17033              
17034             #===============================================================================
17035             # Generated by Hymnos Perl Code Generator
17036             # UML Model UUID: d5e174b6-3c43-11dd-aaaf-001c25551abc
17037              
17038             package Rinchi::Outlook::OlActionResponseStyle;
17039              
17040             our @ISA = qw();
17041             our @EXPORT = qw();
17042             our @EXPORT_OK = qw();
17043              
17044             =head1 DESCRIPTION of OlActionResponseStyle enumeration
17045              
17046             Rinchi::Outlook::OlActionResponseStyle - Module representing the OlActionResponseStyle enumeration.
17047              
17048             =head1 CONSTANTS for the OlActionResponseStyle enumeration
17049              
17050             olOpen => 0
17051             olSend => 1
17052             olPrompt => 2
17053              
17054             =cut
17055              
17056             #===============================================================================
17057             *olOpen = sub { return 0; };
17058             *olSend = sub { return 1; };
17059             *olPrompt = sub { return 2; };
17060              
17061             my @_literal_list_OlActionResponseStyle = (
17062             'olOpen' => 0,
17063             'olSend' => 1,
17064             'olPrompt' => 2,
17065             );
17066              
17067             #===============================================================================
17068             # Rinchi::Outlook::OlActionResponseStyle::Literals
17069              
17070             =head1 METHODS for the OlActionResponseStyle enumeration
17071              
17072             =head2 @Literals = Rinchi::Outlook::OlActionResponseStyle::Literals
17073              
17074             Returns an array of literal name-value pairs.
17075              
17076             =head2 %Literals = Rinchi::Outlook::OlActionResponseStyle::Literals
17077              
17078             Returns a hash of literal name-value pairs.
17079              
17080             =cut
17081              
17082             sub Literals() {
17083             my $self = shift;
17084             return @_literal_list_OlActionResponseStyle;
17085             }
17086              
17087             #===============================================================================
17088             # Generated by Hymnos Perl Code Generator
17089             # UML Model UUID: d5e184f6-3c43-11dd-b2f6-001c25551abc
17090              
17091             package Rinchi::Outlook::OlActionShowOn;
17092              
17093             our @ISA = qw();
17094             our @EXPORT = qw();
17095             our @EXPORT_OK = qw();
17096              
17097             =head1 DESCRIPTION of OlActionShowOn enumeration
17098              
17099             Rinchi::Outlook::OlActionShowOn - Module representing the OlActionShowOn enumeration.
17100              
17101             =head1 CONSTANTS for the OlActionShowOn enumeration
17102              
17103             olDontShow => 0
17104             olMenu => 1
17105             olMenuAndToolbar => 2
17106              
17107             =cut
17108              
17109             #===============================================================================
17110             *olDontShow = sub { return 0; };
17111             *olMenu = sub { return 1; };
17112             *olMenuAndToolbar = sub { return 2; };
17113              
17114             my @_literal_list_OlActionShowOn = (
17115             'olDontShow' => 0,
17116             'olMenu' => 1,
17117             'olMenuAndToolbar' => 2,
17118             );
17119              
17120             #===============================================================================
17121             # Rinchi::Outlook::OlActionShowOn::Literals
17122              
17123             =head1 METHODS for the OlActionShowOn enumeration
17124              
17125             =head2 @Literals = Rinchi::Outlook::OlActionShowOn::Literals
17126              
17127             Returns an array of literal name-value pairs.
17128              
17129             =head2 %Literals = Rinchi::Outlook::OlActionShowOn::Literals
17130              
17131             Returns a hash of literal name-value pairs.
17132              
17133             =cut
17134              
17135             sub Literals() {
17136             my $self = shift;
17137             return @_literal_list_OlActionShowOn;
17138             }
17139              
17140             #===============================================================================
17141             # Generated by Hymnos Perl Code Generator
17142             # UML Model UUID: d5e194be-3c43-11dd-a870-001c25551abc
17143              
17144             package Rinchi::Outlook::OlAttachmentType;
17145              
17146             our @ISA = qw();
17147             our @EXPORT = qw();
17148             our @EXPORT_OK = qw();
17149              
17150             =head1 DESCRIPTION of OlAttachmentType enumeration
17151              
17152             Rinchi::Outlook::OlAttachmentType - Module representing the OlAttachmentType enumeration.
17153              
17154             =head1 CONSTANTS for the OlAttachmentType enumeration
17155              
17156             olByValue => 1
17157             olByReference => 4
17158             olEmbeddeditem => 5
17159             olOLE => 6
17160              
17161             =cut
17162              
17163             #===============================================================================
17164             *olByValue = sub { return 1; };
17165             *olByReference = sub { return 4; };
17166             *olEmbeddeditem = sub { return 5; };
17167             *olOLE = sub { return 6; };
17168              
17169             my @_literal_list_OlAttachmentType = (
17170             'olByValue' => 1,
17171             'olByReference' => 4,
17172             'olEmbeddeditem' => 5,
17173             'olOLE' => 6,
17174             );
17175              
17176             #===============================================================================
17177             # Rinchi::Outlook::OlAttachmentType::Literals
17178              
17179             =head1 METHODS for the OlAttachmentType enumeration
17180              
17181             =head2 @Literals = Rinchi::Outlook::OlAttachmentType::Literals
17182              
17183             Returns an array of literal name-value pairs.
17184              
17185             =head2 %Literals = Rinchi::Outlook::OlAttachmentType::Literals
17186              
17187             Returns a hash of literal name-value pairs.
17188              
17189             =cut
17190              
17191             sub Literals() {
17192             my $self = shift;
17193             return @_literal_list_OlAttachmentType;
17194             }
17195              
17196             #===============================================================================
17197             # Generated by Hymnos Perl Code Generator
17198             # UML Model UUID: d5e1a5a8-3c43-11dd-9b8c-001c25551abc
17199              
17200             package Rinchi::Outlook::OlBodyFormat;
17201              
17202             our @ISA = qw();
17203             our @EXPORT = qw();
17204             our @EXPORT_OK = qw();
17205              
17206             =head1 DESCRIPTION of OlBodyFormat enumeration
17207              
17208             Rinchi::Outlook::OlBodyFormat - Module representing the OlBodyFormat enumeration.
17209              
17210             =head1 CONSTANTS for the OlBodyFormat enumeration
17211              
17212             olFormatUnspecified => 0
17213             olFormatPlain => 1
17214             olFormatHTML => 2
17215             olFormatRichText => 3
17216              
17217             =cut
17218              
17219             #===============================================================================
17220             *olFormatUnspecified = sub { return 0; };
17221             *olFormatPlain = sub { return 1; };
17222             *olFormatHTML = sub { return 2; };
17223             *olFormatRichText = sub { return 3; };
17224              
17225             my @_literal_list_OlBodyFormat = (
17226             'olFormatUnspecified' => 0,
17227             'olFormatPlain' => 1,
17228             'olFormatHTML' => 2,
17229             'olFormatRichText' => 3,
17230             );
17231              
17232             #===============================================================================
17233             # Rinchi::Outlook::OlBodyFormat::Literals
17234              
17235             =head1 METHODS for the OlBodyFormat enumeration
17236              
17237             =head2 @Literals = Rinchi::Outlook::OlBodyFormat::Literals
17238              
17239             Returns an array of literal name-value pairs.
17240              
17241             =head2 %Literals = Rinchi::Outlook::OlBodyFormat::Literals
17242              
17243             Returns a hash of literal name-value pairs.
17244              
17245             =cut
17246              
17247             sub Literals() {
17248             my $self = shift;
17249             return @_literal_list_OlBodyFormat;
17250             }
17251              
17252             #===============================================================================
17253             # Generated by Hymnos Perl Code Generator
17254             # UML Model UUID: d5e1b516-3c43-11dd-b917-001c25551abc
17255              
17256             package Rinchi::Outlook::OlBusyStatus;
17257              
17258             our @ISA = qw();
17259             our @EXPORT = qw();
17260             our @EXPORT_OK = qw();
17261              
17262             =head1 DESCRIPTION of OlBusyStatus enumeration
17263              
17264             Rinchi::Outlook::OlBusyStatus - Module representing the OlBusyStatus enumeration.
17265              
17266             =head1 CONSTANTS for the OlBusyStatus enumeration
17267              
17268             olFree => 0
17269             olTentative => 1
17270             olBusy => 2
17271             olOutOfOffice => 3
17272              
17273             =cut
17274              
17275             #===============================================================================
17276             *olFree = sub { return 0; };
17277             *olTentative = sub { return 1; };
17278             *olBusy = sub { return 2; };
17279             *olOutOfOffice = sub { return 3; };
17280              
17281             my @_literal_list_OlBusyStatus = (
17282             'olFree' => 0,
17283             'olTentative' => 1,
17284             'olBusy' => 2,
17285             'olOutOfOffice' => 3,
17286             );
17287              
17288             #===============================================================================
17289             # Rinchi::Outlook::OlBusyStatus::Literals
17290              
17291             =head1 METHODS for the OlBusyStatus enumeration
17292              
17293             =head2 @Literals = Rinchi::Outlook::OlBusyStatus::Literals
17294              
17295             Returns an array of literal name-value pairs.
17296              
17297             =head2 %Literals = Rinchi::Outlook::OlBusyStatus::Literals
17298              
17299             Returns a hash of literal name-value pairs.
17300              
17301             =cut
17302              
17303             sub Literals() {
17304             my $self = shift;
17305             return @_literal_list_OlBusyStatus;
17306             }
17307              
17308             #===============================================================================
17309             # Generated by Hymnos Perl Code Generator
17310             # UML Model UUID: d5e1c42a-3c43-11dd-be2c-001c25551abc
17311              
17312             package Rinchi::Outlook::OlDaysOfWeek;
17313              
17314             our @ISA = qw();
17315             our @EXPORT = qw();
17316             our @EXPORT_OK = qw();
17317              
17318             =head1 DESCRIPTION of OlDaysOfWeek enumeration
17319              
17320             Rinchi::Outlook::OlDaysOfWeek - Module representing the OlDaysOfWeek enumeration.
17321              
17322             =head1 CONSTANTS for the OlDaysOfWeek enumeration
17323              
17324             olSunday => 1
17325             olThursday => 16
17326             olMonday => 2
17327             olFriday => 32
17328             olTuesday => 4
17329             olSaturday => 64
17330             olWednesday => 8
17331              
17332             =cut
17333              
17334             #===============================================================================
17335             *olSunday = sub { return 1; };
17336             *olThursday = sub { return 16; };
17337             *olMonday = sub { return 2; };
17338             *olFriday = sub { return 32; };
17339             *olTuesday = sub { return 4; };
17340             *olSaturday = sub { return 64; };
17341             *olWednesday = sub { return 8; };
17342              
17343             my @_literal_list_OlDaysOfWeek = (
17344             'olSunday' => 1,
17345             'olThursday' => 16,
17346             'olMonday' => 2,
17347             'olFriday' => 32,
17348             'olTuesday' => 4,
17349             'olSaturday' => 64,
17350             'olWednesday' => 8,
17351             );
17352              
17353             #===============================================================================
17354             # Rinchi::Outlook::OlDaysOfWeek::Literals
17355              
17356             =head1 METHODS for the OlDaysOfWeek enumeration
17357              
17358             =head2 @Literals = Rinchi::Outlook::OlDaysOfWeek::Literals
17359              
17360             Returns an array of literal name-value pairs.
17361              
17362             =head2 %Literals = Rinchi::Outlook::OlDaysOfWeek::Literals
17363              
17364             Returns a hash of literal name-value pairs.
17365              
17366             =cut
17367              
17368             sub Literals() {
17369             my $self = shift;
17370             return @_literal_list_OlDaysOfWeek;
17371             }
17372              
17373             #===============================================================================
17374             # Generated by Hymnos Perl Code Generator
17375             # UML Model UUID: d5e1d3c0-3c43-11dd-8606-001c25551abc
17376              
17377             package Rinchi::Outlook::OlDefaultFolders;
17378              
17379             our @ISA = qw();
17380             our @EXPORT = qw();
17381             our @EXPORT_OK = qw();
17382              
17383             =head1 DESCRIPTION of OlDefaultFolders enumeration
17384              
17385             Rinchi::Outlook::OlDefaultFolders - Module representing the OlDefaultFolders enumeration.
17386              
17387             =head1 CONSTANTS for the OlDefaultFolders enumeration
17388              
17389             olFolderDeletedItems => 3
17390             olFolderOutbox => 4
17391             olFolderSentMail => 5
17392             olFolderInbox => 6
17393             olFolderCalendar => 9
17394             olFolderContacts => 10
17395             olFolderJournal => 11
17396             olFolderNotes => 12
17397             olFolderTasks => 13
17398             olFolderDrafts => 16
17399             olPublicFoldersAllPublicFolders => 18
17400             olFolderConflicts => 19
17401             olFolderSyncIssues => 20
17402             olFolderLocalFailures => 21
17403             olFolderServerFailures => 22
17404             olFolderJunk => 23
17405              
17406             =cut
17407              
17408             #===============================================================================
17409             *olFolderContacts = sub { return 10; };
17410             *olFolderJournal = sub { return 11; };
17411             *olFolderNotes = sub { return 12; };
17412             *olFolderTasks = sub { return 13; };
17413             *olFolderDrafts = sub { return 16; };
17414             *olPublicFoldersAllPublicFolders = sub { return 18; };
17415             *olFolderConflicts = sub { return 19; };
17416             *olFolderSyncIssues = sub { return 20; };
17417             *olFolderLocalFailures = sub { return 21; };
17418             *olFolderServerFailures = sub { return 22; };
17419             *olFolderJunk = sub { return 23; };
17420             *olFolderDeletedItems = sub { return 3; };
17421             *olFolderOutbox = sub { return 4; };
17422             *olFolderSentMail = sub { return 5; };
17423             *olFolderInbox = sub { return 6; };
17424             *olFolderCalendar = sub { return 9; };
17425              
17426             my @_literal_list_OlDefaultFolders = (
17427             'olFolderDeletedItems' => 3,
17428             'olFolderOutbox' => 4,
17429             'olFolderSentMail' => 5,
17430             'olFolderInbox' => 6,
17431             'olFolderCalendar' => 9,
17432             'olFolderContacts' => 10,
17433             'olFolderJournal' => 11,
17434             'olFolderNotes' => 12,
17435             'olFolderTasks' => 13,
17436             'olFolderDrafts' => 16,
17437             'olPublicFoldersAllPublicFolders' => 18,
17438             'olFolderConflicts' => 19,
17439             'olFolderSyncIssues' => 20,
17440             'olFolderLocalFailures' => 21,
17441             'olFolderServerFailures' => 22,
17442             'olFolderJunk' => 23,
17443             );
17444              
17445             #===============================================================================
17446             # Rinchi::Outlook::OlDefaultFolders::Literals
17447              
17448             =head1 METHODS for the OlDefaultFolders enumeration
17449              
17450             =head2 @Literals = Rinchi::Outlook::OlDefaultFolders::Literals
17451              
17452             Returns an array of literal name-value pairs.
17453              
17454             =head2 %Literals = Rinchi::Outlook::OlDefaultFolders::Literals
17455              
17456             Returns a hash of literal name-value pairs.
17457              
17458             =cut
17459              
17460             sub Literals() {
17461             my $self = shift;
17462             return @_literal_list_OlDefaultFolders;
17463             }
17464              
17465             #===============================================================================
17466             # Generated by Hymnos Perl Code Generator
17467             # UML Model UUID: d5e1e360-3c43-11dd-a729-001c25551abc
17468              
17469             package Rinchi::Outlook::OlDisplayType;
17470              
17471             our @ISA = qw();
17472             our @EXPORT = qw();
17473             our @EXPORT_OK = qw();
17474              
17475             =head1 DESCRIPTION of OlDisplayType enumeration
17476              
17477             Rinchi::Outlook::OlDisplayType - Module representing the OlDisplayType enumeration.
17478              
17479             =head1 CONSTANTS for the OlDisplayType enumeration
17480              
17481             olUser => 0
17482             olDistList => 1
17483             olForum => 2
17484             olAgent => 3
17485             olOrganization => 4
17486             olPrivateDistList => 5
17487             olRemoteUser => 6
17488              
17489             =cut
17490              
17491             #===============================================================================
17492             *olUser = sub { return 0; };
17493             *olDistList = sub { return 1; };
17494             *olForum = sub { return 2; };
17495             *olAgent = sub { return 3; };
17496             *olOrganization = sub { return 4; };
17497             *olPrivateDistList = sub { return 5; };
17498             *olRemoteUser = sub { return 6; };
17499              
17500             my @_literal_list_OlDisplayType = (
17501             'olUser' => 0,
17502             'olDistList' => 1,
17503             'olForum' => 2,
17504             'olAgent' => 3,
17505             'olOrganization' => 4,
17506             'olPrivateDistList' => 5,
17507             'olRemoteUser' => 6,
17508             );
17509              
17510             #===============================================================================
17511             # Rinchi::Outlook::OlDisplayType::Literals
17512              
17513             =head1 METHODS for the OlDisplayType enumeration
17514              
17515             =head2 @Literals = Rinchi::Outlook::OlDisplayType::Literals
17516              
17517             Returns an array of literal name-value pairs.
17518              
17519             =head2 %Literals = Rinchi::Outlook::OlDisplayType::Literals
17520              
17521             Returns a hash of literal name-value pairs.
17522              
17523             =cut
17524              
17525             sub Literals() {
17526             my $self = shift;
17527             return @_literal_list_OlDisplayType;
17528             }
17529              
17530             #===============================================================================
17531             # Generated by Hymnos Perl Code Generator
17532             # UML Model UUID: d5e1f328-3c43-11dd-9f9d-001c25551abc
17533              
17534             package Rinchi::Outlook::OlDownloadState;
17535              
17536             our @ISA = qw();
17537             our @EXPORT = qw();
17538             our @EXPORT_OK = qw();
17539              
17540             =head1 DESCRIPTION of OlDownloadState enumeration
17541              
17542             Rinchi::Outlook::OlDownloadState - Module representing the OlDownloadState enumeration.
17543              
17544             =head1 CONSTANTS for the OlDownloadState enumeration
17545              
17546             olHeaderOnly => 0
17547             olFullItem => 1
17548              
17549             =cut
17550              
17551             #===============================================================================
17552             *olHeaderOnly = sub { return 0; };
17553             *olFullItem = sub { return 1; };
17554              
17555             my @_literal_list_OlDownloadState = (
17556             'olHeaderOnly' => 0,
17557             'olFullItem' => 1,
17558             );
17559              
17560             #===============================================================================
17561             # Rinchi::Outlook::OlDownloadState::Literals
17562              
17563             =head1 METHODS for the OlDownloadState enumeration
17564              
17565             =head2 @Literals = Rinchi::Outlook::OlDownloadState::Literals
17566              
17567             Returns an array of literal name-value pairs.
17568              
17569             =head2 %Literals = Rinchi::Outlook::OlDownloadState::Literals
17570              
17571             Returns a hash of literal name-value pairs.
17572              
17573             =cut
17574              
17575             sub Literals() {
17576             my $self = shift;
17577             return @_literal_list_OlDownloadState;
17578             }
17579              
17580             #===============================================================================
17581             # Generated by Hymnos Perl Code Generator
17582             # UML Model UUID: d5e2021e-3c43-11dd-af36-001c25551abc
17583              
17584             package Rinchi::Outlook::OlEditorType;
17585              
17586             our @ISA = qw();
17587             our @EXPORT = qw();
17588             our @EXPORT_OK = qw();
17589              
17590             =head1 DESCRIPTION of OlEditorType enumeration
17591              
17592             Rinchi::Outlook::OlEditorType - Module representing the OlEditorType enumeration.
17593              
17594             =head1 CONSTANTS for the OlEditorType enumeration
17595              
17596             olEditorText => 1
17597             olEditorHTML => 2
17598             olEditorRTF => 3
17599             olEditorWord => 4
17600              
17601             =cut
17602              
17603             #===============================================================================
17604             *olEditorText = sub { return 1; };
17605             *olEditorHTML = sub { return 2; };
17606             *olEditorRTF = sub { return 3; };
17607             *olEditorWord = sub { return 4; };
17608              
17609             my @_literal_list_OlEditorType = (
17610             'olEditorText' => 1,
17611             'olEditorHTML' => 2,
17612             'olEditorRTF' => 3,
17613             'olEditorWord' => 4,
17614             );
17615              
17616             #===============================================================================
17617             # Rinchi::Outlook::OlEditorType::Literals
17618              
17619             =head1 METHODS for the OlEditorType enumeration
17620              
17621             =head2 @Literals = Rinchi::Outlook::OlEditorType::Literals
17622              
17623             Returns an array of literal name-value pairs.
17624              
17625             =head2 %Literals = Rinchi::Outlook::OlEditorType::Literals
17626              
17627             Returns a hash of literal name-value pairs.
17628              
17629             =cut
17630              
17631             sub Literals() {
17632             my $self = shift;
17633             return @_literal_list_OlEditorType;
17634             }
17635              
17636             #===============================================================================
17637             # Generated by Hymnos Perl Code Generator
17638             # UML Model UUID: d5e21128-3c43-11dd-a647-001c25551abc
17639              
17640             package Rinchi::Outlook::OlExchangeConnectionMode;
17641              
17642             our @ISA = qw();
17643             our @EXPORT = qw();
17644             our @EXPORT_OK = qw();
17645              
17646             =head1 DESCRIPTION of OlExchangeConnectionMode enumeration
17647              
17648             Rinchi::Outlook::OlExchangeConnectionMode - Module representing the OlExchangeConnectionMode enumeration.
17649              
17650             =head1 CONSTANTS for the OlExchangeConnectionMode enumeration
17651              
17652             olNoExchange => 0
17653             olOffline => 100
17654             olCachedOffline => 200
17655             olDisconnected => 300
17656             olCachedDisconnected => 400
17657             olCachedConnectedHeaders => 500
17658             olCachedConnectedDrizzle => 600
17659             olCachedConnectedFull => 700
17660             olOnline => 800
17661              
17662             =cut
17663              
17664             #===============================================================================
17665             *olNoExchange = sub { return 0; };
17666             *olOffline = sub { return 100; };
17667             *olCachedOffline = sub { return 200; };
17668             *olDisconnected = sub { return 300; };
17669             *olCachedDisconnected = sub { return 400; };
17670             *olCachedConnectedHeaders = sub { return 500; };
17671             *olCachedConnectedDrizzle = sub { return 600; };
17672             *olCachedConnectedFull = sub { return 700; };
17673             *olOnline = sub { return 800; };
17674              
17675             my @_literal_list_OlExchangeConnectionMode = (
17676             'olNoExchange' => 0,
17677             'olOffline' => 100,
17678             'olCachedOffline' => 200,
17679             'olDisconnected' => 300,
17680             'olCachedDisconnected' => 400,
17681             'olCachedConnectedHeaders' => 500,
17682             'olCachedConnectedDrizzle' => 600,
17683             'olCachedConnectedFull' => 700,
17684             'olOnline' => 800,
17685             );
17686              
17687             #===============================================================================
17688             # Rinchi::Outlook::OlExchangeConnectionMode::Literals
17689              
17690             =head1 METHODS for the OlExchangeConnectionMode enumeration
17691              
17692             =head2 @Literals = Rinchi::Outlook::OlExchangeConnectionMode::Literals
17693              
17694             Returns an array of literal name-value pairs.
17695              
17696             =head2 %Literals = Rinchi::Outlook::OlExchangeConnectionMode::Literals
17697              
17698             Returns a hash of literal name-value pairs.
17699              
17700             =cut
17701              
17702             sub Literals() {
17703             my $self = shift;
17704             return @_literal_list_OlExchangeConnectionMode;
17705             }
17706              
17707             #===============================================================================
17708             # Generated by Hymnos Perl Code Generator
17709             # UML Model UUID: d5e22140-3c43-11dd-a180-001c25551abc
17710              
17711             package Rinchi::Outlook::OlFlagIcon;
17712              
17713             our @ISA = qw();
17714             our @EXPORT = qw();
17715             our @EXPORT_OK = qw();
17716              
17717             =head1 DESCRIPTION of OlFlagIcon enumeration
17718              
17719             Rinchi::Outlook::OlFlagIcon - Module representing the OlFlagIcon enumeration.
17720              
17721             =head1 CONSTANTS for the OlFlagIcon enumeration
17722              
17723             olNoFlagIcon => 0
17724             olPurpleFlagIcon => 1
17725             olOrangeFlagIcon => 2
17726             olGreenFlagIcon => 3
17727             olYellowFlagIcon => 4
17728             olBlueFlagIcon => 5
17729             olRedFlagIcon => 6
17730              
17731             =cut
17732              
17733             #===============================================================================
17734             *olNoFlagIcon = sub { return 0; };
17735             *olPurpleFlagIcon = sub { return 1; };
17736             *olOrangeFlagIcon = sub { return 2; };
17737             *olGreenFlagIcon = sub { return 3; };
17738             *olYellowFlagIcon = sub { return 4; };
17739             *olBlueFlagIcon = sub { return 5; };
17740             *olRedFlagIcon = sub { return 6; };
17741              
17742             my @_literal_list_OlFlagIcon = (
17743             'olNoFlagIcon' => 0,
17744             'olPurpleFlagIcon' => 1,
17745             'olOrangeFlagIcon' => 2,
17746             'olGreenFlagIcon' => 3,
17747             'olYellowFlagIcon' => 4,
17748             'olBlueFlagIcon' => 5,
17749             'olRedFlagIcon' => 6,
17750             );
17751              
17752             #===============================================================================
17753             # Rinchi::Outlook::OlFlagIcon::Literals
17754              
17755             =head1 METHODS for the OlFlagIcon enumeration
17756              
17757             =head2 @Literals = Rinchi::Outlook::OlFlagIcon::Literals
17758              
17759             Returns an array of literal name-value pairs.
17760              
17761             =head2 %Literals = Rinchi::Outlook::OlFlagIcon::Literals
17762              
17763             Returns a hash of literal name-value pairs.
17764              
17765             =cut
17766              
17767             sub Literals() {
17768             my $self = shift;
17769             return @_literal_list_OlFlagIcon;
17770             }
17771              
17772             #===============================================================================
17773             # Generated by Hymnos Perl Code Generator
17774             # UML Model UUID: d5e2305e-3c43-11dd-9de2-001c25551abc
17775              
17776             package Rinchi::Outlook::OlFlagStatus;
17777              
17778             our @ISA = qw();
17779             our @EXPORT = qw();
17780             our @EXPORT_OK = qw();
17781              
17782             =head1 DESCRIPTION of OlFlagStatus enumeration
17783              
17784             Rinchi::Outlook::OlFlagStatus - Module representing the OlFlagStatus enumeration.
17785              
17786             =head1 CONSTANTS for the OlFlagStatus enumeration
17787              
17788             olNoFlag => 0
17789             olFlagComplete => 1
17790             olFlagMarked => 2
17791              
17792             =cut
17793              
17794             #===============================================================================
17795             *olNoFlag = sub { return 0; };
17796             *olFlagComplete = sub { return 1; };
17797             *olFlagMarked = sub { return 2; };
17798              
17799             my @_literal_list_OlFlagStatus = (
17800             'olNoFlag' => 0,
17801             'olFlagComplete' => 1,
17802             'olFlagMarked' => 2,
17803             );
17804              
17805             #===============================================================================
17806             # Rinchi::Outlook::OlFlagStatus::Literals
17807              
17808             =head1 METHODS for the OlFlagStatus enumeration
17809              
17810             =head2 @Literals = Rinchi::Outlook::OlFlagStatus::Literals
17811              
17812             Returns an array of literal name-value pairs.
17813              
17814             =head2 %Literals = Rinchi::Outlook::OlFlagStatus::Literals
17815              
17816             Returns a hash of literal name-value pairs.
17817              
17818             =cut
17819              
17820             sub Literals() {
17821             my $self = shift;
17822             return @_literal_list_OlFlagStatus;
17823             }
17824              
17825             #===============================================================================
17826             # Generated by Hymnos Perl Code Generator
17827             # UML Model UUID: d5e240b2-3c43-11dd-84ac-001c25551abc
17828              
17829             package Rinchi::Outlook::OlFolderDisplayMode;
17830              
17831             our @ISA = qw();
17832             our @EXPORT = qw();
17833             our @EXPORT_OK = qw();
17834              
17835             =head1 DESCRIPTION of OlFolderDisplayMode enumeration
17836              
17837             Rinchi::Outlook::OlFolderDisplayMode - Module representing the OlFolderDisplayMode enumeration.
17838              
17839             =head1 CONSTANTS for the OlFolderDisplayMode enumeration
17840              
17841             olFolderDisplayNormal => 0
17842             olFolderDisplayFolderOnly => 1
17843             olFolderDisplayNoNavigation => 2
17844              
17845             =cut
17846              
17847             #===============================================================================
17848             *olFolderDisplayNormal = sub { return 0; };
17849             *olFolderDisplayFolderOnly = sub { return 1; };
17850             *olFolderDisplayNoNavigation = sub { return 2; };
17851              
17852             my @_literal_list_OlFolderDisplayMode = (
17853             'olFolderDisplayNormal' => 0,
17854             'olFolderDisplayFolderOnly' => 1,
17855             'olFolderDisplayNoNavigation' => 2,
17856             );
17857              
17858             #===============================================================================
17859             # Rinchi::Outlook::OlFolderDisplayMode::Literals
17860              
17861             =head1 METHODS for the OlFolderDisplayMode enumeration
17862              
17863             =head2 @Literals = Rinchi::Outlook::OlFolderDisplayMode::Literals
17864              
17865             Returns an array of literal name-value pairs.
17866              
17867             =head2 %Literals = Rinchi::Outlook::OlFolderDisplayMode::Literals
17868              
17869             Returns a hash of literal name-value pairs.
17870              
17871             =cut
17872              
17873             sub Literals() {
17874             my $self = shift;
17875             return @_literal_list_OlFolderDisplayMode;
17876             }
17877              
17878             #===============================================================================
17879             # Generated by Hymnos Perl Code Generator
17880             # UML Model UUID: d5e2503e-3c43-11dd-aae7-001c25551abc
17881              
17882             package Rinchi::Outlook::OlFormRegistry;
17883              
17884             our @ISA = qw();
17885             our @EXPORT = qw();
17886             our @EXPORT_OK = qw();
17887              
17888             =head1 DESCRIPTION of OlFormRegistry enumeration
17889              
17890             Rinchi::Outlook::OlFormRegistry - Module representing the OlFormRegistry enumeration.
17891              
17892             =head1 CONSTANTS for the OlFormRegistry enumeration
17893              
17894             olDefaultRegistry => 0
17895             olPersonalRegistry => 2
17896             olFolderRegistry => 3
17897             olOrganizationRegistry => 4
17898              
17899             =cut
17900              
17901             #===============================================================================
17902             *olDefaultRegistry = sub { return 0; };
17903             *olPersonalRegistry = sub { return 2; };
17904             *olFolderRegistry = sub { return 3; };
17905             *olOrganizationRegistry = sub { return 4; };
17906              
17907             my @_literal_list_OlFormRegistry = (
17908             'olDefaultRegistry' => 0,
17909             'olPersonalRegistry' => 2,
17910             'olFolderRegistry' => 3,
17911             'olOrganizationRegistry' => 4,
17912             );
17913              
17914             #===============================================================================
17915             # Rinchi::Outlook::OlFormRegistry::Literals
17916              
17917             =head1 METHODS for the OlFormRegistry enumeration
17918              
17919             =head2 @Literals = Rinchi::Outlook::OlFormRegistry::Literals
17920              
17921             Returns an array of literal name-value pairs.
17922              
17923             =head2 %Literals = Rinchi::Outlook::OlFormRegistry::Literals
17924              
17925             Returns a hash of literal name-value pairs.
17926              
17927             =cut
17928              
17929             sub Literals() {
17930             my $self = shift;
17931             return @_literal_list_OlFormRegistry;
17932             }
17933              
17934             #===============================================================================
17935             # Generated by Hymnos Perl Code Generator
17936             # UML Model UUID: d5e26056-3c43-11dd-bd0a-001c25551abc
17937              
17938             package Rinchi::Outlook::OlGender;
17939              
17940             our @ISA = qw();
17941             our @EXPORT = qw();
17942             our @EXPORT_OK = qw();
17943              
17944             =head1 DESCRIPTION of OlGender enumeration
17945              
17946             Rinchi::Outlook::OlGender - Module representing the OlGender enumeration.
17947              
17948             =head1 CONSTANTS for the OlGender enumeration
17949              
17950             olUnspecified => 0
17951             olFemale => 1
17952             olMale => 2
17953              
17954             =cut
17955              
17956             #===============================================================================
17957             *olUnspecified = sub { return 0; };
17958             *olFemale = sub { return 1; };
17959             *olMale = sub { return 2; };
17960              
17961             my @_literal_list_OlGender = (
17962             'olUnspecified' => 0,
17963             'olFemale' => 1,
17964             'olMale' => 2,
17965             );
17966              
17967             #===============================================================================
17968             # Rinchi::Outlook::OlGender::Literals
17969              
17970             =head1 METHODS for the OlGender enumeration
17971              
17972             =head2 @Literals = Rinchi::Outlook::OlGender::Literals
17973              
17974             Returns an array of literal name-value pairs.
17975              
17976             =head2 %Literals = Rinchi::Outlook::OlGender::Literals
17977              
17978             Returns a hash of literal name-value pairs.
17979              
17980             =cut
17981              
17982             sub Literals() {
17983             my $self = shift;
17984             return @_literal_list_OlGender;
17985             }
17986              
17987             #===============================================================================
17988             # Generated by Hymnos Perl Code Generator
17989             # UML Model UUID: d5e27046-3c43-11dd-aabe-001c25551abc
17990              
17991             package Rinchi::Outlook::OlImportance;
17992              
17993             our @ISA = qw();
17994             our @EXPORT = qw();
17995             our @EXPORT_OK = qw();
17996              
17997             =head1 DESCRIPTION of OlImportance enumeration
17998              
17999             Rinchi::Outlook::OlImportance - Module representing the OlImportance enumeration.
18000              
18001             =head1 CONSTANTS for the OlImportance enumeration
18002              
18003             olImportanceLow => 0
18004             olImportanceNormal => 1
18005             olImportanceHigh => 2
18006              
18007             =cut
18008              
18009             #===============================================================================
18010             *olImportanceLow = sub { return 0; };
18011             *olImportanceNormal = sub { return 1; };
18012             *olImportanceHigh = sub { return 2; };
18013              
18014             my @_literal_list_OlImportance = (
18015             'olImportanceLow' => 0,
18016             'olImportanceNormal' => 1,
18017             'olImportanceHigh' => 2,
18018             );
18019              
18020             #===============================================================================
18021             # Rinchi::Outlook::OlImportance::Literals
18022              
18023             =head1 METHODS for the OlImportance enumeration
18024              
18025             =head2 @Literals = Rinchi::Outlook::OlImportance::Literals
18026              
18027             Returns an array of literal name-value pairs.
18028              
18029             =head2 %Literals = Rinchi::Outlook::OlImportance::Literals
18030              
18031             Returns a hash of literal name-value pairs.
18032              
18033             =cut
18034              
18035             sub Literals() {
18036             my $self = shift;
18037             return @_literal_list_OlImportance;
18038             }
18039              
18040             #===============================================================================
18041             # Generated by Hymnos Perl Code Generator
18042             # UML Model UUID: d5e27ffa-3c43-11dd-9df2-001c25551abc
18043              
18044             package Rinchi::Outlook::OlInspectorClose;
18045              
18046             our @ISA = qw();
18047             our @EXPORT = qw();
18048             our @EXPORT_OK = qw();
18049              
18050             =head1 DESCRIPTION of OlInspectorClose enumeration
18051              
18052             Rinchi::Outlook::OlInspectorClose - Module representing the OlInspectorClose enumeration.
18053              
18054             =head1 CONSTANTS for the OlInspectorClose enumeration
18055              
18056             olSave => 0
18057             olDiscard => 1
18058             olPromptForSave => 2
18059              
18060             =cut
18061              
18062             #===============================================================================
18063             *olSave = sub { return 0; };
18064             *olDiscard = sub { return 1; };
18065             *olPromptForSave = sub { return 2; };
18066              
18067             my @_literal_list_OlInspectorClose = (
18068             'olSave' => 0,
18069             'olDiscard' => 1,
18070             'olPromptForSave' => 2,
18071             );
18072              
18073             #===============================================================================
18074             # Rinchi::Outlook::OlInspectorClose::Literals
18075              
18076             =head1 METHODS for the OlInspectorClose enumeration
18077              
18078             =head2 @Literals = Rinchi::Outlook::OlInspectorClose::Literals
18079              
18080             Returns an array of literal name-value pairs.
18081              
18082             =head2 %Literals = Rinchi::Outlook::OlInspectorClose::Literals
18083              
18084             Returns a hash of literal name-value pairs.
18085              
18086             =cut
18087              
18088             sub Literals() {
18089             my $self = shift;
18090             return @_literal_list_OlInspectorClose;
18091             }
18092              
18093             #===============================================================================
18094             # Generated by Hymnos Perl Code Generator
18095             # UML Model UUID: d5e29008-3c43-11dd-863f-001c25551abc
18096              
18097             package Rinchi::Outlook::OlItemType;
18098              
18099             our @ISA = qw();
18100             our @EXPORT = qw();
18101             our @EXPORT_OK = qw();
18102              
18103             =head1 DESCRIPTION of OlItemType enumeration
18104              
18105             Rinchi::Outlook::OlItemType - Module representing the OlItemType enumeration.
18106              
18107             =head1 CONSTANTS for the OlItemType enumeration
18108              
18109             olMailItem => 0
18110             olAppointmentItem => 1
18111             olContactItem => 2
18112             olTaskItem => 3
18113             olJournalItem => 4
18114             olNoteItem => 5
18115             olPostItem => 6
18116             olDistributionListItem => 7
18117              
18118             =cut
18119              
18120             #===============================================================================
18121             *olMailItem = sub { return 0; };
18122             *olAppointmentItem = sub { return 1; };
18123             *olContactItem = sub { return 2; };
18124             *olTaskItem = sub { return 3; };
18125             *olJournalItem = sub { return 4; };
18126             *olNoteItem = sub { return 5; };
18127             *olPostItem = sub { return 6; };
18128             *olDistributionListItem = sub { return 7; };
18129              
18130             my @_literal_list_OlItemType = (
18131             'olMailItem' => 0,
18132             'olAppointmentItem' => 1,
18133             'olContactItem' => 2,
18134             'olTaskItem' => 3,
18135             'olJournalItem' => 4,
18136             'olNoteItem' => 5,
18137             'olPostItem' => 6,
18138             'olDistributionListItem' => 7,
18139             );
18140              
18141             #===============================================================================
18142             # Rinchi::Outlook::OlItemType::Literals
18143              
18144             =head1 METHODS for the OlItemType enumeration
18145              
18146             =head2 @Literals = Rinchi::Outlook::OlItemType::Literals
18147              
18148             Returns an array of literal name-value pairs.
18149              
18150             =head2 %Literals = Rinchi::Outlook::OlItemType::Literals
18151              
18152             Returns a hash of literal name-value pairs.
18153              
18154             =cut
18155              
18156             sub Literals() {
18157             my $self = shift;
18158             return @_literal_list_OlItemType;
18159             }
18160              
18161             #===============================================================================
18162             # Generated by Hymnos Perl Code Generator
18163             # UML Model UUID: d5e2a69c-3c43-11dd-97ea-001c25551abc
18164              
18165             package Rinchi::Outlook::OlJournalRecipientType;
18166              
18167             our @ISA = qw();
18168             our @EXPORT = qw();
18169             our @EXPORT_OK = qw();
18170              
18171             =head1 DESCRIPTION of OlJournalRecipientType enumeration
18172              
18173             Rinchi::Outlook::OlJournalRecipientType - Module representing the OlJournalRecipientType enumeration.
18174              
18175             =head1 CONSTANTS for the OlJournalRecipientType enumeration
18176              
18177             olAssociatedContact => 1
18178              
18179             =cut
18180              
18181             #===============================================================================
18182             *olAssociatedContact = sub { return 1; };
18183              
18184             my @_literal_list_OlJournalRecipientType = (
18185             'olAssociatedContact' => 1,
18186             );
18187              
18188             #===============================================================================
18189             # Rinchi::Outlook::OlJournalRecipientType::Literals
18190              
18191             =head1 METHODS for the OlJournalRecipientType enumeration
18192              
18193             =head2 @Literals = Rinchi::Outlook::OlJournalRecipientType::Literals
18194              
18195             Returns an array of literal name-value pairs.
18196              
18197             =head2 %Literals = Rinchi::Outlook::OlJournalRecipientType::Literals
18198              
18199             Returns a hash of literal name-value pairs.
18200              
18201             =cut
18202              
18203             sub Literals() {
18204             my $self = shift;
18205             return @_literal_list_OlJournalRecipientType;
18206             }
18207              
18208             #===============================================================================
18209             # Generated by Hymnos Perl Code Generator
18210             # UML Model UUID: d5e2bb46-3c43-11dd-873f-001c25551abc
18211              
18212             package Rinchi::Outlook::OlMailRecipientType;
18213              
18214             our @ISA = qw();
18215             our @EXPORT = qw();
18216             our @EXPORT_OK = qw();
18217              
18218             =head1 DESCRIPTION of OlMailRecipientType enumeration
18219              
18220             Rinchi::Outlook::OlMailRecipientType - Module representing the OlMailRecipientType enumeration.
18221              
18222             =head1 CONSTANTS for the OlMailRecipientType enumeration
18223              
18224             olOriginator => 0
18225             olTo => 1
18226             olCC => 2
18227             olBCC => 3
18228              
18229             =cut
18230              
18231             #===============================================================================
18232             *olOriginator = sub { return 0; };
18233             *olTo = sub { return 1; };
18234             *olCC = sub { return 2; };
18235             *olBCC = sub { return 3; };
18236              
18237             my @_literal_list_OlMailRecipientType = (
18238             'olOriginator' => 0,
18239             'olTo' => 1,
18240             'olCC' => 2,
18241             'olBCC' => 3,
18242             );
18243              
18244             #===============================================================================
18245             # Rinchi::Outlook::OlMailRecipientType::Literals
18246              
18247             =head1 METHODS for the OlMailRecipientType enumeration
18248              
18249             =head2 @Literals = Rinchi::Outlook::OlMailRecipientType::Literals
18250              
18251             Returns an array of literal name-value pairs.
18252              
18253             =head2 %Literals = Rinchi::Outlook::OlMailRecipientType::Literals
18254              
18255             Returns a hash of literal name-value pairs.
18256              
18257             =cut
18258              
18259             sub Literals() {
18260             my $self = shift;
18261             return @_literal_list_OlMailRecipientType;
18262             }
18263              
18264             #===============================================================================
18265             # Generated by Hymnos Perl Code Generator
18266             # UML Model UUID: d5e2ce7e-3c43-11dd-b833-001c25551abc
18267              
18268             package Rinchi::Outlook::OlMailingAddress;
18269              
18270             our @ISA = qw();
18271             our @EXPORT = qw();
18272             our @EXPORT_OK = qw();
18273              
18274             =head1 DESCRIPTION of OlMailingAddress enumeration
18275              
18276             Rinchi::Outlook::OlMailingAddress - Module representing the OlMailingAddress enumeration.
18277              
18278             =head1 CONSTANTS for the OlMailingAddress enumeration
18279              
18280             olNone => 0
18281             olHome => 1
18282             olBusiness => 2
18283             olOther => 3
18284              
18285             =cut
18286              
18287             #===============================================================================
18288             *olNone = sub { return 0; };
18289             *olHome = sub { return 1; };
18290             *olBusiness = sub { return 2; };
18291             *olOther = sub { return 3; };
18292              
18293             my @_literal_list_OlMailingAddress = (
18294             'olNone' => 0,
18295             'olHome' => 1,
18296             'olBusiness' => 2,
18297             'olOther' => 3,
18298             );
18299              
18300             #===============================================================================
18301             # Rinchi::Outlook::OlMailingAddress::Literals
18302              
18303             =head1 METHODS for the OlMailingAddress enumeration
18304              
18305             =head2 @Literals = Rinchi::Outlook::OlMailingAddress::Literals
18306              
18307             Returns an array of literal name-value pairs.
18308              
18309             =head2 %Literals = Rinchi::Outlook::OlMailingAddress::Literals
18310              
18311             Returns a hash of literal name-value pairs.
18312              
18313             =cut
18314              
18315             sub Literals() {
18316             my $self = shift;
18317             return @_literal_list_OlMailingAddress;
18318             }
18319              
18320             #===============================================================================
18321             # Generated by Hymnos Perl Code Generator
18322             # UML Model UUID: d5e2e170-3c43-11dd-b75e-001c25551abc
18323              
18324             package Rinchi::Outlook::OlMeetingRecipientType;
18325              
18326             our @ISA = qw();
18327             our @EXPORT = qw();
18328             our @EXPORT_OK = qw();
18329              
18330             =head1 DESCRIPTION of OlMeetingRecipientType enumeration
18331              
18332             Rinchi::Outlook::OlMeetingRecipientType - Module representing the OlMeetingRecipientType enumeration.
18333              
18334             =head1 CONSTANTS for the OlMeetingRecipientType enumeration
18335              
18336             olOrganizer => 0
18337             olRequired => 1
18338             olOptional => 2
18339             olResource => 3
18340              
18341             =cut
18342              
18343             #===============================================================================
18344             *olOrganizer = sub { return 0; };
18345             *olRequired = sub { return 1; };
18346             *olOptional = sub { return 2; };
18347             *olResource = sub { return 3; };
18348              
18349             my @_literal_list_OlMeetingRecipientType = (
18350             'olOrganizer' => 0,
18351             'olRequired' => 1,
18352             'olOptional' => 2,
18353             'olResource' => 3,
18354             );
18355              
18356             #===============================================================================
18357             # Rinchi::Outlook::OlMeetingRecipientType::Literals
18358              
18359             =head1 METHODS for the OlMeetingRecipientType enumeration
18360              
18361             =head2 @Literals = Rinchi::Outlook::OlMeetingRecipientType::Literals
18362              
18363             Returns an array of literal name-value pairs.
18364              
18365             =head2 %Literals = Rinchi::Outlook::OlMeetingRecipientType::Literals
18366              
18367             Returns a hash of literal name-value pairs.
18368              
18369             =cut
18370              
18371             sub Literals() {
18372             my $self = shift;
18373             return @_literal_list_OlMeetingRecipientType;
18374             }
18375              
18376             #===============================================================================
18377             # Generated by Hymnos Perl Code Generator
18378             # UML Model UUID: d5e2f49e-3c43-11dd-bbbb-001c25551abc
18379              
18380             package Rinchi::Outlook::OlMeetingResponse;
18381              
18382             our @ISA = qw();
18383             our @EXPORT = qw();
18384             our @EXPORT_OK = qw();
18385              
18386             =head1 DESCRIPTION of OlMeetingResponse enumeration
18387              
18388             Rinchi::Outlook::OlMeetingResponse - Module representing the OlMeetingResponse enumeration.
18389              
18390             =head1 CONSTANTS for the OlMeetingResponse enumeration
18391              
18392             olMeetingTentative => 2
18393             olMeetingAccepted => 3
18394             olMeetingDeclined => 4
18395              
18396             =cut
18397              
18398             #===============================================================================
18399             *olMeetingTentative = sub { return 2; };
18400             *olMeetingAccepted = sub { return 3; };
18401             *olMeetingDeclined = sub { return 4; };
18402              
18403             my @_literal_list_OlMeetingResponse = (
18404             'olMeetingTentative' => 2,
18405             'olMeetingAccepted' => 3,
18406             'olMeetingDeclined' => 4,
18407             );
18408              
18409             #===============================================================================
18410             # Rinchi::Outlook::OlMeetingResponse::Literals
18411              
18412             =head1 METHODS for the OlMeetingResponse enumeration
18413              
18414             =head2 @Literals = Rinchi::Outlook::OlMeetingResponse::Literals
18415              
18416             Returns an array of literal name-value pairs.
18417              
18418             =head2 %Literals = Rinchi::Outlook::OlMeetingResponse::Literals
18419              
18420             Returns a hash of literal name-value pairs.
18421              
18422             =cut
18423              
18424             sub Literals() {
18425             my $self = shift;
18426             return @_literal_list_OlMeetingResponse;
18427             }
18428              
18429             #===============================================================================
18430             # Generated by Hymnos Perl Code Generator
18431             # UML Model UUID: d5e307c2-3c43-11dd-9ed8-001c25551abc
18432              
18433             package Rinchi::Outlook::OlMeetingStatus;
18434              
18435             our @ISA = qw();
18436             our @EXPORT = qw();
18437             our @EXPORT_OK = qw();
18438              
18439             =head1 DESCRIPTION of OlMeetingStatus enumeration
18440              
18441             Rinchi::Outlook::OlMeetingStatus - Module representing the OlMeetingStatus enumeration.
18442              
18443             =head1 CONSTANTS for the OlMeetingStatus enumeration
18444              
18445             olNonMeeting => 0
18446             olMeeting => 1
18447             olMeetingReceived => 3
18448             olMeetingCanceled => 5
18449              
18450             =cut
18451              
18452             #===============================================================================
18453             *olNonMeeting = sub { return 0; };
18454             *olMeeting = sub { return 1; };
18455             *olMeetingReceived = sub { return 3; };
18456             *olMeetingCanceled = sub { return 5; };
18457              
18458             my @_literal_list_OlMeetingStatus = (
18459             'olNonMeeting' => 0,
18460             'olMeeting' => 1,
18461             'olMeetingReceived' => 3,
18462             'olMeetingCanceled' => 5,
18463             );
18464              
18465             #===============================================================================
18466             # Rinchi::Outlook::OlMeetingStatus::Literals
18467              
18468             =head1 METHODS for the OlMeetingStatus enumeration
18469              
18470             =head2 @Literals = Rinchi::Outlook::OlMeetingStatus::Literals
18471              
18472             Returns an array of literal name-value pairs.
18473              
18474             =head2 %Literals = Rinchi::Outlook::OlMeetingStatus::Literals
18475              
18476             Returns a hash of literal name-value pairs.
18477              
18478             =cut
18479              
18480             sub Literals() {
18481             my $self = shift;
18482             return @_literal_list_OlMeetingStatus;
18483             }
18484              
18485             #===============================================================================
18486             # Generated by Hymnos Perl Code Generator
18487             # UML Model UUID: d5e31ba4-3c43-11dd-aa4d-001c25551abc
18488              
18489             package Rinchi::Outlook::OlNetMeetingType;
18490              
18491             our @ISA = qw();
18492             our @EXPORT = qw();
18493             our @EXPORT_OK = qw();
18494              
18495             =head1 DESCRIPTION of OlNetMeetingType enumeration
18496              
18497             Rinchi::Outlook::OlNetMeetingType - Module representing the OlNetMeetingType enumeration.
18498              
18499             =head1 CONSTANTS for the OlNetMeetingType enumeration
18500              
18501             olNetMeeting => 0
18502             olNetShow => 1
18503             olExchangeConferencing => 2
18504              
18505             =cut
18506              
18507             #===============================================================================
18508             *olNetMeeting = sub { return 0; };
18509             *olNetShow = sub { return 1; };
18510             *olExchangeConferencing = sub { return 2; };
18511              
18512             my @_literal_list_OlNetMeetingType = (
18513             'olNetMeeting' => 0,
18514             'olNetShow' => 1,
18515             'olExchangeConferencing' => 2,
18516             );
18517              
18518             #===============================================================================
18519             # Rinchi::Outlook::OlNetMeetingType::Literals
18520              
18521             =head1 METHODS for the OlNetMeetingType enumeration
18522              
18523             =head2 @Literals = Rinchi::Outlook::OlNetMeetingType::Literals
18524              
18525             Returns an array of literal name-value pairs.
18526              
18527             =head2 %Literals = Rinchi::Outlook::OlNetMeetingType::Literals
18528              
18529             Returns a hash of literal name-value pairs.
18530              
18531             =cut
18532              
18533             sub Literals() {
18534             my $self = shift;
18535             return @_literal_list_OlNetMeetingType;
18536             }
18537              
18538             #===============================================================================
18539             # Generated by Hymnos Perl Code Generator
18540             # UML Model UUID: d5e33058-3c43-11dd-930c-001c25551abc
18541              
18542             package Rinchi::Outlook::OlNoteColor;
18543              
18544             our @ISA = qw();
18545             our @EXPORT = qw();
18546             our @EXPORT_OK = qw();
18547              
18548             =head1 DESCRIPTION of OlNoteColor enumeration
18549              
18550             Rinchi::Outlook::OlNoteColor - Module representing the OlNoteColor enumeration.
18551              
18552             =head1 CONSTANTS for the OlNoteColor enumeration
18553              
18554             olBlue => 0
18555             olGreen => 1
18556             olPink => 2
18557             olYellow => 3
18558             olWhite => 4
18559              
18560             =cut
18561              
18562             #===============================================================================
18563             *olBlue = sub { return 0; };
18564             *olGreen = sub { return 1; };
18565             *olPink = sub { return 2; };
18566             *olYellow = sub { return 3; };
18567             *olWhite = sub { return 4; };
18568              
18569             my @_literal_list_OlNoteColor = (
18570             'olBlue' => 0,
18571             'olGreen' => 1,
18572             'olPink' => 2,
18573             'olYellow' => 3,
18574             'olWhite' => 4,
18575             );
18576              
18577             #===============================================================================
18578             # Rinchi::Outlook::OlNoteColor::Literals
18579              
18580             =head1 METHODS for the OlNoteColor enumeration
18581              
18582             =head2 @Literals = Rinchi::Outlook::OlNoteColor::Literals
18583              
18584             Returns an array of literal name-value pairs.
18585              
18586             =head2 %Literals = Rinchi::Outlook::OlNoteColor::Literals
18587              
18588             Returns a hash of literal name-value pairs.
18589              
18590             =cut
18591              
18592             sub Literals() {
18593             my $self = shift;
18594             return @_literal_list_OlNoteColor;
18595             }
18596              
18597             #===============================================================================
18598             # Generated by Hymnos Perl Code Generator
18599             # UML Model UUID: d5e343cc-3c43-11dd-a415-001c25551abc
18600              
18601             package Rinchi::Outlook::OlObjectClass;
18602              
18603             our @ISA = qw();
18604             our @EXPORT = qw();
18605             our @EXPORT_OK = qw();
18606              
18607             =head1 DESCRIPTION of OlObjectClass enumeration
18608              
18609             Rinchi::Outlook::OlObjectClass - Module representing the OlObjectClass enumeration.
18610              
18611             =head1 CONSTANTS for the OlObjectClass enumeration
18612              
18613             olApplication => 0
18614             olNamespace => 1
18615             olFolder => 2
18616             olRecipient => 4
18617             olAttachment => 5
18618             olAddressList => 7
18619             olAddressEntry => 8
18620             olFolders => 15
18621             olItems => 16
18622             olRecipients => 17
18623             olAttachments => 18
18624             olAddressLists => 20
18625             olAddressEntries => 21
18626             olAppointment => 26
18627             olRecurrencePattern => 28
18628             olExceptions => 29
18629             olException => 30
18630             olAction => 32
18631             olActions => 33
18632             olExplorer => 34
18633             olInspector => 35
18634             olPages => 36
18635             olFormDescription => 37
18636             olUserProperties => 38
18637             olUserProperty => 39
18638             olContact => 40
18639             olDocument => 41
18640             olJournal => 42
18641             olMail => 43
18642             olNote => 44
18643             olPost => 45
18644             olReport => 46
18645             olRemote => 47
18646             olTask => 48
18647             olTaskRequest => 49
18648             olTaskRequestUpdate => 50
18649             olTaskRequestAccept => 51
18650             olTaskRequestDecline => 52
18651             olMeetingRequest => 53
18652             olMeetingCancellation => 54
18653             olMeetingResponseNegative => 55
18654             olMeetingResponsePositive => 56
18655             olMeetingResponseTentative => 57
18656             olExplorers => 60
18657             olInspectors => 61
18658             olPanes => 62
18659             olOutlookBarPane => 63
18660             olOutlookBarStorage => 64
18661             olOutlookBarGroups => 65
18662             olOutlookBarGroup => 66
18663             olOutlookBarShortcuts => 67
18664             olOutlookBarShortcut => 68
18665             olDistributionList => 69
18666             olPropertyPageSite => 70
18667             olPropertyPages => 71
18668             olSyncObject => 72
18669             olSyncObjects => 73
18670             olSelection => 74
18671             olLink => 75
18672             olLinks => 76
18673             olSearch => 77
18674             olResults => 78
18675             olViews => 79
18676             olView => 80
18677             olItemProperties => 98
18678             olItemProperty => 99
18679             olReminders => 100
18680             olReminder => 101
18681             olConflict => 102
18682             olConflicts => 103
18683              
18684             =cut
18685              
18686             #===============================================================================
18687             *olApplication = sub { return 0; };
18688             *olNamespace = sub { return 1; };
18689             *olReminders = sub { return 100; };
18690             *olReminder = sub { return 101; };
18691             *olConflict = sub { return 102; };
18692             *olConflicts = sub { return 103; };
18693             *olFolders = sub { return 15; };
18694             *olItems = sub { return 16; };
18695             *olRecipients = sub { return 17; };
18696             *olAttachments = sub { return 18; };
18697             *olFolder = sub { return 2; };
18698             *olAddressLists = sub { return 20; };
18699             *olAddressEntries = sub { return 21; };
18700             *olAppointment = sub { return 26; };
18701             *olRecurrencePattern = sub { return 28; };
18702             *olExceptions = sub { return 29; };
18703             *olException = sub { return 30; };
18704             *olAction = sub { return 32; };
18705             *olActions = sub { return 33; };
18706             *olExplorer = sub { return 34; };
18707             *olInspector = sub { return 35; };
18708             *olPages = sub { return 36; };
18709             *olFormDescription = sub { return 37; };
18710             *olUserProperties = sub { return 38; };
18711             *olUserProperty = sub { return 39; };
18712             *olRecipient = sub { return 4; };
18713             *olContact = sub { return 40; };
18714             *olDocument = sub { return 41; };
18715             *olJournal = sub { return 42; };
18716             *olMail = sub { return 43; };
18717             *olNote = sub { return 44; };
18718             *olPost = sub { return 45; };
18719             *olReport = sub { return 46; };
18720             *olRemote = sub { return 47; };
18721             *olTask = sub { return 48; };
18722             *olTaskRequest = sub { return 49; };
18723             *olAttachment = sub { return 5; };
18724             *olTaskRequestUpdate = sub { return 50; };
18725             *olTaskRequestAccept = sub { return 51; };
18726             *olTaskRequestDecline = sub { return 52; };
18727             *olMeetingRequest = sub { return 53; };
18728             *olMeetingCancellation = sub { return 54; };
18729             *olMeetingResponseNegative = sub { return 55; };
18730             *olMeetingResponsePositive = sub { return 56; };
18731             *olMeetingResponseTentative = sub { return 57; };
18732             *olExplorers = sub { return 60; };
18733             *olInspectors = sub { return 61; };
18734             *olPanes = sub { return 62; };
18735             *olOutlookBarPane = sub { return 63; };
18736             *olOutlookBarStorage = sub { return 64; };
18737             *olOutlookBarGroups = sub { return 65; };
18738             *olOutlookBarGroup = sub { return 66; };
18739             *olOutlookBarShortcuts = sub { return 67; };
18740             *olOutlookBarShortcut = sub { return 68; };
18741             *olDistributionList = sub { return 69; };
18742             *olAddressList = sub { return 7; };
18743             *olPropertyPageSite = sub { return 70; };
18744             *olPropertyPages = sub { return 71; };
18745             *olSyncObject = sub { return 72; };
18746             *olSyncObjects = sub { return 73; };
18747             *olSelection = sub { return 74; };
18748             *olLink = sub { return 75; };
18749             *olLinks = sub { return 76; };
18750             *olSearch = sub { return 77; };
18751             *olResults = sub { return 78; };
18752             *olViews = sub { return 79; };
18753             *olAddressEntry = sub { return 8; };
18754             *olView = sub { return 80; };
18755             *olItemProperties = sub { return 98; };
18756             *olItemProperty = sub { return 99; };
18757              
18758             my @_literal_list_OlObjectClass = (
18759             'olApplication' => 0,
18760             'olNamespace' => 1,
18761             'olFolder' => 2,
18762             'olRecipient' => 4,
18763             'olAttachment' => 5,
18764             'olAddressList' => 7,
18765             'olAddressEntry' => 8,
18766             'olFolders' => 15,
18767             'olItems' => 16,
18768             'olRecipients' => 17,
18769             'olAttachments' => 18,
18770             'olAddressLists' => 20,
18771             'olAddressEntries' => 21,
18772             'olAppointment' => 26,
18773             'olRecurrencePattern' => 28,
18774             'olExceptions' => 29,
18775             'olException' => 30,
18776             'olAction' => 32,
18777             'olActions' => 33,
18778             'olExplorer' => 34,
18779             'olInspector' => 35,
18780             'olPages' => 36,
18781             'olFormDescription' => 37,
18782             'olUserProperties' => 38,
18783             'olUserProperty' => 39,
18784             'olContact' => 40,
18785             'olDocument' => 41,
18786             'olJournal' => 42,
18787             'olMail' => 43,
18788             'olNote' => 44,
18789             'olPost' => 45,
18790             'olReport' => 46,
18791             'olRemote' => 47,
18792             'olTask' => 48,
18793             'olTaskRequest' => 49,
18794             'olTaskRequestUpdate' => 50,
18795             'olTaskRequestAccept' => 51,
18796             'olTaskRequestDecline' => 52,
18797             'olMeetingRequest' => 53,
18798             'olMeetingCancellation' => 54,
18799             'olMeetingResponseNegative' => 55,
18800             'olMeetingResponsePositive' => 56,
18801             'olMeetingResponseTentative' => 57,
18802             'olExplorers' => 60,
18803             'olInspectors' => 61,
18804             'olPanes' => 62,
18805             'olOutlookBarPane' => 63,
18806             'olOutlookBarStorage' => 64,
18807             'olOutlookBarGroups' => 65,
18808             'olOutlookBarGroup' => 66,
18809             'olOutlookBarShortcuts' => 67,
18810             'olOutlookBarShortcut' => 68,
18811             'olDistributionList' => 69,
18812             'olPropertyPageSite' => 70,
18813             'olPropertyPages' => 71,
18814             'olSyncObject' => 72,
18815             'olSyncObjects' => 73,
18816             'olSelection' => 74,
18817             'olLink' => 75,
18818             'olLinks' => 76,
18819             'olSearch' => 77,
18820             'olResults' => 78,
18821             'olViews' => 79,
18822             'olView' => 80,
18823             'olItemProperties' => 98,
18824             'olItemProperty' => 99,
18825             'olReminders' => 100,
18826             'olReminder' => 101,
18827             'olConflict' => 102,
18828             'olConflicts' => 103,
18829             );
18830              
18831             #===============================================================================
18832             # Rinchi::Outlook::OlObjectClass::Literals
18833              
18834             =head1 METHODS for the OlObjectClass enumeration
18835              
18836             =head2 @Literals = Rinchi::Outlook::OlObjectClass::Literals
18837              
18838             Returns an array of literal name-value pairs.
18839              
18840             =head2 %Literals = Rinchi::Outlook::OlObjectClass::Literals
18841              
18842             Returns a hash of literal name-value pairs.
18843              
18844             =cut
18845              
18846             sub Literals() {
18847             my $self = shift;
18848             return @_literal_list_OlObjectClass;
18849             }
18850              
18851             #===============================================================================
18852             # Generated by Hymnos Perl Code Generator
18853             # UML Model UUID: d5e35718-3c43-11dd-be44-001c25551abc
18854              
18855             package Rinchi::Outlook::OlOfficeDocItemsType;
18856              
18857             our @ISA = qw();
18858             our @EXPORT = qw();
18859             our @EXPORT_OK = qw();
18860              
18861             =head1 DESCRIPTION of OlOfficeDocItemsType enumeration
18862              
18863             Rinchi::Outlook::OlOfficeDocItemsType - Module representing the OlOfficeDocItemsType enumeration.
18864              
18865             =head1 CONSTANTS for the OlOfficeDocItemsType enumeration
18866              
18867             olPowerPointShowItem => 10
18868             olExcelWorkSheetItem => 8
18869             olWordDocumentItem => 9
18870              
18871             =cut
18872              
18873             #===============================================================================
18874             *olPowerPointShowItem = sub { return 10; };
18875             *olExcelWorkSheetItem = sub { return 8; };
18876             *olWordDocumentItem = sub { return 9; };
18877              
18878             my @_literal_list_OlOfficeDocItemsType = (
18879             'olPowerPointShowItem' => 10,
18880             'olExcelWorkSheetItem' => 8,
18881             'olWordDocumentItem' => 9,
18882             );
18883              
18884             #===============================================================================
18885             # Rinchi::Outlook::OlOfficeDocItemsType::Literals
18886              
18887             =head1 METHODS for the OlOfficeDocItemsType enumeration
18888              
18889             =head2 @Literals = Rinchi::Outlook::OlOfficeDocItemsType::Literals
18890              
18891             Returns an array of literal name-value pairs.
18892              
18893             =head2 %Literals = Rinchi::Outlook::OlOfficeDocItemsType::Literals
18894              
18895             Returns a hash of literal name-value pairs.
18896              
18897             =cut
18898              
18899             sub Literals() {
18900             my $self = shift;
18901             return @_literal_list_OlOfficeDocItemsType;
18902             }
18903              
18904             #===============================================================================
18905             # Generated by Hymnos Perl Code Generator
18906             # UML Model UUID: d5e36960-3c43-11dd-aef7-001c25551abc
18907              
18908             package Rinchi::Outlook::OlOutlookBarViewType;
18909              
18910             our @ISA = qw();
18911             our @EXPORT = qw();
18912             our @EXPORT_OK = qw();
18913              
18914             =head1 DESCRIPTION of OlOutlookBarViewType enumeration
18915              
18916             Rinchi::Outlook::OlOutlookBarViewType - Module representing the OlOutlookBarViewType enumeration.
18917              
18918             =head1 CONSTANTS for the OlOutlookBarViewType enumeration
18919              
18920             olLargeIcon => 0
18921             olSmallIcon => 1
18922              
18923             =cut
18924              
18925             #===============================================================================
18926             *olLargeIcon = sub { return 0; };
18927             *olSmallIcon = sub { return 1; };
18928              
18929             my @_literal_list_OlOutlookBarViewType = (
18930             'olLargeIcon' => 0,
18931             'olSmallIcon' => 1,
18932             );
18933              
18934             #===============================================================================
18935             # Rinchi::Outlook::OlOutlookBarViewType::Literals
18936              
18937             =head1 METHODS for the OlOutlookBarViewType enumeration
18938              
18939             =head2 @Literals = Rinchi::Outlook::OlOutlookBarViewType::Literals
18940              
18941             Returns an array of literal name-value pairs.
18942              
18943             =head2 %Literals = Rinchi::Outlook::OlOutlookBarViewType::Literals
18944              
18945             Returns a hash of literal name-value pairs.
18946              
18947             =cut
18948              
18949             sub Literals() {
18950             my $self = shift;
18951             return @_literal_list_OlOutlookBarViewType;
18952             }
18953              
18954             #===============================================================================
18955             # Generated by Hymnos Perl Code Generator
18956             # UML Model UUID: d5e37c16-3c43-11dd-a4a1-001c25551abc
18957              
18958             package Rinchi::Outlook::OlPane;
18959              
18960             our @ISA = qw();
18961             our @EXPORT = qw();
18962             our @EXPORT_OK = qw();
18963              
18964             =head1 DESCRIPTION of OlPane enumeration
18965              
18966             Rinchi::Outlook::OlPane - Module representing the OlPane enumeration.
18967              
18968             =head1 CONSTANTS for the OlPane enumeration
18969              
18970             olOutlookBar => 1
18971             olFolderList => 2
18972             olPreview => 3
18973             olNavigationPane => 4
18974              
18975             =cut
18976              
18977             #===============================================================================
18978             *olOutlookBar = sub { return 1; };
18979             *olFolderList = sub { return 2; };
18980             *olPreview = sub { return 3; };
18981             *olNavigationPane = sub { return 4; };
18982              
18983             my @_literal_list_OlPane = (
18984             'olOutlookBar' => 1,
18985             'olFolderList' => 2,
18986             'olPreview' => 3,
18987             'olNavigationPane' => 4,
18988             );
18989              
18990             #===============================================================================
18991             # Rinchi::Outlook::OlPane::Literals
18992              
18993             =head1 METHODS for the OlPane enumeration
18994              
18995             =head2 @Literals = Rinchi::Outlook::OlPane::Literals
18996              
18997             Returns an array of literal name-value pairs.
18998              
18999             =head2 %Literals = Rinchi::Outlook::OlPane::Literals
19000              
19001             Returns a hash of literal name-value pairs.
19002              
19003             =cut
19004              
19005             sub Literals() {
19006             my $self = shift;
19007             return @_literal_list_OlPane;
19008             }
19009              
19010             #===============================================================================
19011             # Generated by Hymnos Perl Code Generator
19012             # UML Model UUID: d5e38efe-3c43-11dd-99f4-001c25551abc
19013              
19014             package Rinchi::Outlook::OlPermission;
19015              
19016             our @ISA = qw();
19017             our @EXPORT = qw();
19018             our @EXPORT_OK = qw();
19019              
19020             =head1 DESCRIPTION of OlPermission enumeration
19021              
19022             Rinchi::Outlook::OlPermission - Module representing the OlPermission enumeration.
19023              
19024             =head1 CONSTANTS for the OlPermission enumeration
19025              
19026             olUnrestricted => 0
19027             olDoNotForward => 1
19028             olPermissionTemplate => 2
19029              
19030             =cut
19031              
19032             #===============================================================================
19033             *olUnrestricted = sub { return 0; };
19034             *olDoNotForward = sub { return 1; };
19035             *olPermissionTemplate = sub { return 2; };
19036              
19037             my @_literal_list_OlPermission = (
19038             'olUnrestricted' => 0,
19039             'olDoNotForward' => 1,
19040             'olPermissionTemplate' => 2,
19041             );
19042              
19043             #===============================================================================
19044             # Rinchi::Outlook::OlPermission::Literals
19045              
19046             =head1 METHODS for the OlPermission enumeration
19047              
19048             =head2 @Literals = Rinchi::Outlook::OlPermission::Literals
19049              
19050             Returns an array of literal name-value pairs.
19051              
19052             =head2 %Literals = Rinchi::Outlook::OlPermission::Literals
19053              
19054             Returns a hash of literal name-value pairs.
19055              
19056             =cut
19057              
19058             sub Literals() {
19059             my $self = shift;
19060             return @_literal_list_OlPermission;
19061             }
19062              
19063             #===============================================================================
19064             # Generated by Hymnos Perl Code Generator
19065             # UML Model UUID: d5e3a240-3c43-11dd-aae2-001c25551abc
19066              
19067             package Rinchi::Outlook::OlPermissionService;
19068              
19069             our @ISA = qw();
19070             our @EXPORT = qw();
19071             our @EXPORT_OK = qw();
19072              
19073             =head1 DESCRIPTION of OlPermissionService enumeration
19074              
19075             Rinchi::Outlook::OlPermissionService - Module representing the OlPermissionService enumeration.
19076              
19077             =head1 CONSTANTS for the OlPermissionService enumeration
19078              
19079             olUnknown => 0
19080             olWindows => 1
19081             olPassport => 2
19082              
19083             =cut
19084              
19085             #===============================================================================
19086             *olUnknown = sub { return 0; };
19087             *olWindows = sub { return 1; };
19088             *olPassport = sub { return 2; };
19089              
19090             my @_literal_list_OlPermissionService = (
19091             'olUnknown' => 0,
19092             'olWindows' => 1,
19093             'olPassport' => 2,
19094             );
19095              
19096             #===============================================================================
19097             # Rinchi::Outlook::OlPermissionService::Literals
19098              
19099             =head1 METHODS for the OlPermissionService enumeration
19100              
19101             =head2 @Literals = Rinchi::Outlook::OlPermissionService::Literals
19102              
19103             Returns an array of literal name-value pairs.
19104              
19105             =head2 %Literals = Rinchi::Outlook::OlPermissionService::Literals
19106              
19107             Returns a hash of literal name-value pairs.
19108              
19109             =cut
19110              
19111             sub Literals() {
19112             my $self = shift;
19113             return @_literal_list_OlPermissionService;
19114             }
19115              
19116             #===============================================================================
19117             # Generated by Hymnos Perl Code Generator
19118             # UML Model UUID: d5e3b532-3c43-11dd-8c1f-001c25551abc
19119              
19120             package Rinchi::Outlook::OlRecurrenceState;
19121              
19122             our @ISA = qw();
19123             our @EXPORT = qw();
19124             our @EXPORT_OK = qw();
19125              
19126             =head1 DESCRIPTION of OlRecurrenceState enumeration
19127              
19128             Rinchi::Outlook::OlRecurrenceState - Module representing the OlRecurrenceState enumeration.
19129              
19130             =head1 CONSTANTS for the OlRecurrenceState enumeration
19131              
19132             olApptNotRecurring => 0
19133             olApptMaster => 1
19134             olApptOccurrence => 2
19135             olApptException => 3
19136              
19137             =cut
19138              
19139             #===============================================================================
19140             *olApptNotRecurring = sub { return 0; };
19141             *olApptMaster = sub { return 1; };
19142             *olApptOccurrence = sub { return 2; };
19143             *olApptException = sub { return 3; };
19144              
19145             my @_literal_list_OlRecurrenceState = (
19146             'olApptNotRecurring' => 0,
19147             'olApptMaster' => 1,
19148             'olApptOccurrence' => 2,
19149             'olApptException' => 3,
19150             );
19151              
19152             #===============================================================================
19153             # Rinchi::Outlook::OlRecurrenceState::Literals
19154              
19155             =head1 METHODS for the OlRecurrenceState enumeration
19156              
19157             =head2 @Literals = Rinchi::Outlook::OlRecurrenceState::Literals
19158              
19159             Returns an array of literal name-value pairs.
19160              
19161             =head2 %Literals = Rinchi::Outlook::OlRecurrenceState::Literals
19162              
19163             Returns a hash of literal name-value pairs.
19164              
19165             =cut
19166              
19167             sub Literals() {
19168             my $self = shift;
19169             return @_literal_list_OlRecurrenceState;
19170             }
19171              
19172             #===============================================================================
19173             # Generated by Hymnos Perl Code Generator
19174             # UML Model UUID: d5e3c89c-3c43-11dd-a97b-001c25551abc
19175              
19176             package Rinchi::Outlook::OlRecurrenceType;
19177              
19178             our @ISA = qw();
19179             our @EXPORT = qw();
19180             our @EXPORT_OK = qw();
19181              
19182             =head1 DESCRIPTION of OlRecurrenceType enumeration
19183              
19184             Rinchi::Outlook::OlRecurrenceType - Module representing the OlRecurrenceType enumeration.
19185              
19186             =head1 CONSTANTS for the OlRecurrenceType enumeration
19187              
19188             olRecursDaily => 0
19189             olRecursWeekly => 1
19190             olRecursMonthly => 2
19191             olRecursMonthNth => 3
19192             olRecursYearly => 5
19193             olRecursYearNth => 6
19194              
19195             =cut
19196              
19197             #===============================================================================
19198             *olRecursDaily = sub { return 0; };
19199             *olRecursWeekly = sub { return 1; };
19200             *olRecursMonthly = sub { return 2; };
19201             *olRecursMonthNth = sub { return 3; };
19202             *olRecursYearly = sub { return 5; };
19203             *olRecursYearNth = sub { return 6; };
19204              
19205             my @_literal_list_OlRecurrenceType = (
19206             'olRecursDaily' => 0,
19207             'olRecursWeekly' => 1,
19208             'olRecursMonthly' => 2,
19209             'olRecursMonthNth' => 3,
19210             'olRecursYearly' => 5,
19211             'olRecursYearNth' => 6,
19212             );
19213              
19214             #===============================================================================
19215             # Rinchi::Outlook::OlRecurrenceType::Literals
19216              
19217             =head1 METHODS for the OlRecurrenceType enumeration
19218              
19219             =head2 @Literals = Rinchi::Outlook::OlRecurrenceType::Literals
19220              
19221             Returns an array of literal name-value pairs.
19222              
19223             =head2 %Literals = Rinchi::Outlook::OlRecurrenceType::Literals
19224              
19225             Returns a hash of literal name-value pairs.
19226              
19227             =cut
19228              
19229             sub Literals() {
19230             my $self = shift;
19231             return @_literal_list_OlRecurrenceType;
19232             }
19233              
19234             #===============================================================================
19235             # Generated by Hymnos Perl Code Generator
19236             # UML Model UUID: d5e3dbf2-3c43-11dd-8db0-001c25551abc
19237              
19238             package Rinchi::Outlook::OlRemoteStatus;
19239              
19240             our @ISA = qw();
19241             our @EXPORT = qw();
19242             our @EXPORT_OK = qw();
19243              
19244             =head1 DESCRIPTION of OlRemoteStatus enumeration
19245              
19246             Rinchi::Outlook::OlRemoteStatus - Module representing the OlRemoteStatus enumeration.
19247              
19248             =head1 CONSTANTS for the OlRemoteStatus enumeration
19249              
19250             olRemoteStatusNone => 0
19251             olUnMarked => 1
19252             olMarkedForDownload => 2
19253             olMarkedForCopy => 3
19254             olMarkedForDelete => 4
19255              
19256             =cut
19257              
19258             #===============================================================================
19259             *olRemoteStatusNone = sub { return 0; };
19260             *olUnMarked = sub { return 1; };
19261             *olMarkedForDownload = sub { return 2; };
19262             *olMarkedForCopy = sub { return 3; };
19263             *olMarkedForDelete = sub { return 4; };
19264              
19265             my @_literal_list_OlRemoteStatus = (
19266             'olRemoteStatusNone' => 0,
19267             'olUnMarked' => 1,
19268             'olMarkedForDownload' => 2,
19269             'olMarkedForCopy' => 3,
19270             'olMarkedForDelete' => 4,
19271             );
19272              
19273             #===============================================================================
19274             # Rinchi::Outlook::OlRemoteStatus::Literals
19275              
19276             =head1 METHODS for the OlRemoteStatus enumeration
19277              
19278             =head2 @Literals = Rinchi::Outlook::OlRemoteStatus::Literals
19279              
19280             Returns an array of literal name-value pairs.
19281              
19282             =head2 %Literals = Rinchi::Outlook::OlRemoteStatus::Literals
19283              
19284             Returns a hash of literal name-value pairs.
19285              
19286             =cut
19287              
19288             sub Literals() {
19289             my $self = shift;
19290             return @_literal_list_OlRemoteStatus;
19291             }
19292              
19293             #===============================================================================
19294             # Generated by Hymnos Perl Code Generator
19295             # UML Model UUID: d5e3ef52-3c43-11dd-a02e-001c25551abc
19296              
19297             package Rinchi::Outlook::OlResponseStatus;
19298              
19299             our @ISA = qw();
19300             our @EXPORT = qw();
19301             our @EXPORT_OK = qw();
19302              
19303             =head1 DESCRIPTION of OlResponseStatus enumeration
19304              
19305             Rinchi::Outlook::OlResponseStatus - Module representing the OlResponseStatus enumeration.
19306              
19307             =head1 CONSTANTS for the OlResponseStatus enumeration
19308              
19309             olResponseNone => 0
19310             olResponseOrganized => 1
19311             olResponseTentative => 2
19312             olResponseAccepted => 3
19313             olResponseDeclined => 4
19314             olResponseNotResponded => 5
19315              
19316             =cut
19317              
19318             #===============================================================================
19319             *olResponseNone = sub { return 0; };
19320             *olResponseOrganized = sub { return 1; };
19321             *olResponseTentative = sub { return 2; };
19322             *olResponseAccepted = sub { return 3; };
19323             *olResponseDeclined = sub { return 4; };
19324             *olResponseNotResponded = sub { return 5; };
19325              
19326             my @_literal_list_OlResponseStatus = (
19327             'olResponseNone' => 0,
19328             'olResponseOrganized' => 1,
19329             'olResponseTentative' => 2,
19330             'olResponseAccepted' => 3,
19331             'olResponseDeclined' => 4,
19332             'olResponseNotResponded' => 5,
19333             );
19334              
19335             #===============================================================================
19336             # Rinchi::Outlook::OlResponseStatus::Literals
19337              
19338             =head1 METHODS for the OlResponseStatus enumeration
19339              
19340             =head2 @Literals = Rinchi::Outlook::OlResponseStatus::Literals
19341              
19342             Returns an array of literal name-value pairs.
19343              
19344             =head2 %Literals = Rinchi::Outlook::OlResponseStatus::Literals
19345              
19346             Returns a hash of literal name-value pairs.
19347              
19348             =cut
19349              
19350             sub Literals() {
19351             my $self = shift;
19352             return @_literal_list_OlResponseStatus;
19353             }
19354              
19355             #===============================================================================
19356             # Generated by Hymnos Perl Code Generator
19357             # UML Model UUID: d5e40226-3c43-11dd-84ad-001c25551abc
19358              
19359             package Rinchi::Outlook::OlSaveAsType;
19360              
19361             our @ISA = qw();
19362             our @EXPORT = qw();
19363             our @EXPORT_OK = qw();
19364              
19365             =head1 DESCRIPTION of OlSaveAsType enumeration
19366              
19367             Rinchi::Outlook::OlSaveAsType - Module representing the OlSaveAsType enumeration.
19368              
19369             =head1 CONSTANTS for the OlSaveAsType enumeration
19370              
19371             olTXT => 0
19372             olRTF => 1
19373             olTemplate => 2
19374             olMSG => 3
19375             olDoc => 4
19376             olHTML => 5
19377             olVCard => 6
19378             olVCal => 7
19379             olICal => 8
19380             olMSGUnicode => 9
19381              
19382             =cut
19383              
19384             #===============================================================================
19385             *olTXT = sub { return 0; };
19386             *olRTF = sub { return 1; };
19387             *olTemplate = sub { return 2; };
19388             *olMSG = sub { return 3; };
19389             *olDoc = sub { return 4; };
19390             *olHTML = sub { return 5; };
19391             *olVCard = sub { return 6; };
19392             *olVCal = sub { return 7; };
19393             *olICal = sub { return 8; };
19394             *olMSGUnicode = sub { return 9; };
19395              
19396             my @_literal_list_OlSaveAsType = (
19397             'olTXT' => 0,
19398             'olRTF' => 1,
19399             'olTemplate' => 2,
19400             'olMSG' => 3,
19401             'olDoc' => 4,
19402             'olHTML' => 5,
19403             'olVCard' => 6,
19404             'olVCal' => 7,
19405             'olICal' => 8,
19406             'olMSGUnicode' => 9,
19407             );
19408              
19409             #===============================================================================
19410             # Rinchi::Outlook::OlSaveAsType::Literals
19411              
19412             =head1 METHODS for the OlSaveAsType enumeration
19413              
19414             =head2 @Literals = Rinchi::Outlook::OlSaveAsType::Literals
19415              
19416             Returns an array of literal name-value pairs.
19417              
19418             =head2 %Literals = Rinchi::Outlook::OlSaveAsType::Literals
19419              
19420             Returns a hash of literal name-value pairs.
19421              
19422             =cut
19423              
19424             sub Literals() {
19425             my $self = shift;
19426             return @_literal_list_OlSaveAsType;
19427             }
19428              
19429             #===============================================================================
19430             # Generated by Hymnos Perl Code Generator
19431             # UML Model UUID: d5e4d6ec-3c43-11dd-bbab-001c25551abc
19432              
19433             package Rinchi::Outlook::OlSensitivity;
19434              
19435             our @ISA = qw();
19436             our @EXPORT = qw();
19437             our @EXPORT_OK = qw();
19438              
19439             =head1 DESCRIPTION of OlSensitivity enumeration
19440              
19441             Rinchi::Outlook::OlSensitivity - Module representing the OlSensitivity enumeration.
19442              
19443             =head1 CONSTANTS for the OlSensitivity enumeration
19444              
19445             olNormal => 0
19446             olPersonal => 1
19447             olPrivate => 2
19448             olConfidential => 3
19449              
19450             =cut
19451              
19452             #===============================================================================
19453             *olNormal = sub { return 0; };
19454             *olPersonal = sub { return 1; };
19455             *olPrivate = sub { return 2; };
19456             *olConfidential = sub { return 3; };
19457              
19458             my @_literal_list_OlSensitivity = (
19459             'olNormal' => 0,
19460             'olPersonal' => 1,
19461             'olPrivate' => 2,
19462             'olConfidential' => 3,
19463             );
19464              
19465             #===============================================================================
19466             # Rinchi::Outlook::OlSensitivity::Literals
19467              
19468             =head1 METHODS for the OlSensitivity enumeration
19469              
19470             =head2 @Literals = Rinchi::Outlook::OlSensitivity::Literals
19471              
19472             Returns an array of literal name-value pairs.
19473              
19474             =head2 %Literals = Rinchi::Outlook::OlSensitivity::Literals
19475              
19476             Returns a hash of literal name-value pairs.
19477              
19478             =cut
19479              
19480             sub Literals() {
19481             my $self = shift;
19482             return @_literal_list_OlSensitivity;
19483             }
19484              
19485             #===============================================================================
19486             # Generated by Hymnos Perl Code Generator
19487             # UML Model UUID: d5e4f65e-3c43-11dd-bd94-001c25551abc
19488              
19489             package Rinchi::Outlook::OlShowItemCount;
19490              
19491             our @ISA = qw();
19492             our @EXPORT = qw();
19493             our @EXPORT_OK = qw();
19494              
19495             =head1 DESCRIPTION of OlShowItemCount enumeration
19496              
19497             Rinchi::Outlook::OlShowItemCount - Module representing the OlShowItemCount enumeration.
19498              
19499             =head1 CONSTANTS for the OlShowItemCount enumeration
19500              
19501             olNoItemCount => 0
19502             olShowUnreadItemCount => 1
19503             olShowTotalItemCount => 2
19504              
19505             =cut
19506              
19507             #===============================================================================
19508             *olNoItemCount = sub { return 0; };
19509             *olShowUnreadItemCount = sub { return 1; };
19510             *olShowTotalItemCount = sub { return 2; };
19511              
19512             my @_literal_list_OlShowItemCount = (
19513             'olNoItemCount' => 0,
19514             'olShowUnreadItemCount' => 1,
19515             'olShowTotalItemCount' => 2,
19516             );
19517              
19518             #===============================================================================
19519             # Rinchi::Outlook::OlShowItemCount::Literals
19520              
19521             =head1 METHODS for the OlShowItemCount enumeration
19522              
19523             =head2 @Literals = Rinchi::Outlook::OlShowItemCount::Literals
19524              
19525             Returns an array of literal name-value pairs.
19526              
19527             =head2 %Literals = Rinchi::Outlook::OlShowItemCount::Literals
19528              
19529             Returns a hash of literal name-value pairs.
19530              
19531             =cut
19532              
19533             sub Literals() {
19534             my $self = shift;
19535             return @_literal_list_OlShowItemCount;
19536             }
19537              
19538             #===============================================================================
19539             # Generated by Hymnos Perl Code Generator
19540             # UML Model UUID: d5e50ad6-3c43-11dd-b8be-001c25551abc
19541              
19542             package Rinchi::Outlook::OlSortOrder;
19543              
19544             our @ISA = qw();
19545             our @EXPORT = qw();
19546             our @EXPORT_OK = qw();
19547              
19548             =head1 DESCRIPTION of OlSortOrder enumeration
19549              
19550             Rinchi::Outlook::OlSortOrder - Module representing the OlSortOrder enumeration.
19551              
19552             =head1 CONSTANTS for the OlSortOrder enumeration
19553              
19554             olSortNone => 0
19555             olAscending => 1
19556             olDescending => 2
19557              
19558             =cut
19559              
19560             #===============================================================================
19561             *olSortNone = sub { return 0; };
19562             *olAscending = sub { return 1; };
19563             *olDescending = sub { return 2; };
19564              
19565             my @_literal_list_OlSortOrder = (
19566             'olSortNone' => 0,
19567             'olAscending' => 1,
19568             'olDescending' => 2,
19569             );
19570              
19571             #===============================================================================
19572             # Rinchi::Outlook::OlSortOrder::Literals
19573              
19574             =head1 METHODS for the OlSortOrder enumeration
19575              
19576             =head2 @Literals = Rinchi::Outlook::OlSortOrder::Literals
19577              
19578             Returns an array of literal name-value pairs.
19579              
19580             =head2 %Literals = Rinchi::Outlook::OlSortOrder::Literals
19581              
19582             Returns a hash of literal name-value pairs.
19583              
19584             =cut
19585              
19586             sub Literals() {
19587             my $self = shift;
19588             return @_literal_list_OlSortOrder;
19589             }
19590              
19591             #===============================================================================
19592             # Generated by Hymnos Perl Code Generator
19593             # UML Model UUID: d5e51ab2-3c43-11dd-87ec-001c25551abc
19594              
19595             package Rinchi::Outlook::OlStoreType;
19596              
19597             our @ISA = qw();
19598             our @EXPORT = qw();
19599             our @EXPORT_OK = qw();
19600              
19601             =head1 DESCRIPTION of OlStoreType enumeration
19602              
19603             Rinchi::Outlook::OlStoreType - Module representing the OlStoreType enumeration.
19604              
19605             =head1 CONSTANTS for the OlStoreType enumeration
19606              
19607             olStoreDefault => 1
19608             olStoreUnicode => 2
19609             olStoreANSI => 3
19610              
19611             =cut
19612              
19613             #===============================================================================
19614             *olStoreDefault = sub { return 1; };
19615             *olStoreUnicode = sub { return 2; };
19616             *olStoreANSI = sub { return 3; };
19617              
19618             my @_literal_list_OlStoreType = (
19619             'olStoreDefault' => 1,
19620             'olStoreUnicode' => 2,
19621             'olStoreANSI' => 3,
19622             );
19623              
19624             #===============================================================================
19625             # Rinchi::Outlook::OlStoreType::Literals
19626              
19627             =head1 METHODS for the OlStoreType enumeration
19628              
19629             =head2 @Literals = Rinchi::Outlook::OlStoreType::Literals
19630              
19631             Returns an array of literal name-value pairs.
19632              
19633             =head2 %Literals = Rinchi::Outlook::OlStoreType::Literals
19634              
19635             Returns a hash of literal name-value pairs.
19636              
19637             =cut
19638              
19639             sub Literals() {
19640             my $self = shift;
19641             return @_literal_list_OlStoreType;
19642             }
19643              
19644             #===============================================================================
19645             # Generated by Hymnos Perl Code Generator
19646             # UML Model UUID: d5e52ae8-3c43-11dd-b1f3-001c25551abc
19647              
19648             package Rinchi::Outlook::OlSyncState;
19649              
19650             our @ISA = qw();
19651             our @EXPORT = qw();
19652             our @EXPORT_OK = qw();
19653              
19654             =head1 DESCRIPTION of OlSyncState enumeration
19655              
19656             Rinchi::Outlook::OlSyncState - Module representing the OlSyncState enumeration.
19657              
19658             =head1 CONSTANTS for the OlSyncState enumeration
19659              
19660             olSyncStopped => 0
19661             olSyncStarted => 1
19662              
19663             =cut
19664              
19665             #===============================================================================
19666             *olSyncStopped = sub { return 0; };
19667             *olSyncStarted = sub { return 1; };
19668              
19669             my @_literal_list_OlSyncState = (
19670             'olSyncStopped' => 0,
19671             'olSyncStarted' => 1,
19672             );
19673              
19674             #===============================================================================
19675             # Rinchi::Outlook::OlSyncState::Literals
19676              
19677             =head1 METHODS for the OlSyncState enumeration
19678              
19679             =head2 @Literals = Rinchi::Outlook::OlSyncState::Literals
19680              
19681             Returns an array of literal name-value pairs.
19682              
19683             =head2 %Literals = Rinchi::Outlook::OlSyncState::Literals
19684              
19685             Returns a hash of literal name-value pairs.
19686              
19687             =cut
19688              
19689             sub Literals() {
19690             my $self = shift;
19691             return @_literal_list_OlSyncState;
19692             }
19693              
19694             #===============================================================================
19695             # Generated by Hymnos Perl Code Generator
19696             # UML Model UUID: d5e53b0a-3c43-11dd-95d0-001c25551abc
19697              
19698             package Rinchi::Outlook::OlTaskDelegationState;
19699              
19700             our @ISA = qw();
19701             our @EXPORT = qw();
19702             our @EXPORT_OK = qw();
19703              
19704             =head1 DESCRIPTION of OlTaskDelegationState enumeration
19705              
19706             Rinchi::Outlook::OlTaskDelegationState - Module representing the OlTaskDelegationState enumeration.
19707              
19708             =head1 CONSTANTS for the OlTaskDelegationState enumeration
19709              
19710             olTaskNotDelegated => 0
19711             olTaskDelegationUnknown => 1
19712             olTaskDelegationAccepted => 2
19713             olTaskDelegationDeclined => 3
19714              
19715             =cut
19716              
19717             #===============================================================================
19718             *olTaskNotDelegated = sub { return 0; };
19719             *olTaskDelegationUnknown = sub { return 1; };
19720             *olTaskDelegationAccepted = sub { return 2; };
19721             *olTaskDelegationDeclined = sub { return 3; };
19722              
19723             my @_literal_list_OlTaskDelegationState = (
19724             'olTaskNotDelegated' => 0,
19725             'olTaskDelegationUnknown' => 1,
19726             'olTaskDelegationAccepted' => 2,
19727             'olTaskDelegationDeclined' => 3,
19728             );
19729              
19730             #===============================================================================
19731             # Rinchi::Outlook::OlTaskDelegationState::Literals
19732              
19733             =head1 METHODS for the OlTaskDelegationState enumeration
19734              
19735             =head2 @Literals = Rinchi::Outlook::OlTaskDelegationState::Literals
19736              
19737             Returns an array of literal name-value pairs.
19738              
19739             =head2 %Literals = Rinchi::Outlook::OlTaskDelegationState::Literals
19740              
19741             Returns a hash of literal name-value pairs.
19742              
19743             =cut
19744              
19745             sub Literals() {
19746             my $self = shift;
19747             return @_literal_list_OlTaskDelegationState;
19748             }
19749              
19750             #===============================================================================
19751             # Generated by Hymnos Perl Code Generator
19752             # UML Model UUID: d5e54b22-3c43-11dd-bd47-001c25551abc
19753              
19754             package Rinchi::Outlook::OlTaskOwnership;
19755              
19756             our @ISA = qw();
19757             our @EXPORT = qw();
19758             our @EXPORT_OK = qw();
19759              
19760             =head1 DESCRIPTION of OlTaskOwnership enumeration
19761              
19762             Rinchi::Outlook::OlTaskOwnership - Module representing the OlTaskOwnership enumeration.
19763              
19764             =head1 CONSTANTS for the OlTaskOwnership enumeration
19765              
19766             olNewTask => 0
19767             olDelegatedTask => 1
19768             olOwnTask => 2
19769              
19770             =cut
19771              
19772             #===============================================================================
19773             *olNewTask = sub { return 0; };
19774             *olDelegatedTask = sub { return 1; };
19775             *olOwnTask = sub { return 2; };
19776              
19777             my @_literal_list_OlTaskOwnership = (
19778             'olNewTask' => 0,
19779             'olDelegatedTask' => 1,
19780             'olOwnTask' => 2,
19781             );
19782              
19783             #===============================================================================
19784             # Rinchi::Outlook::OlTaskOwnership::Literals
19785              
19786             =head1 METHODS for the OlTaskOwnership enumeration
19787              
19788             =head2 @Literals = Rinchi::Outlook::OlTaskOwnership::Literals
19789              
19790             Returns an array of literal name-value pairs.
19791              
19792             =head2 %Literals = Rinchi::Outlook::OlTaskOwnership::Literals
19793              
19794             Returns a hash of literal name-value pairs.
19795              
19796             =cut
19797              
19798             sub Literals() {
19799             my $self = shift;
19800             return @_literal_list_OlTaskOwnership;
19801             }
19802              
19803             #===============================================================================
19804             # Generated by Hymnos Perl Code Generator
19805             # UML Model UUID: d5e55ab8-3c43-11dd-881a-001c25551abc
19806              
19807             package Rinchi::Outlook::OlTaskRecipientType;
19808              
19809             our @ISA = qw();
19810             our @EXPORT = qw();
19811             our @EXPORT_OK = qw();
19812              
19813             =head1 DESCRIPTION of OlTaskRecipientType enumeration
19814              
19815             Rinchi::Outlook::OlTaskRecipientType - Module representing the OlTaskRecipientType enumeration.
19816              
19817             =head1 CONSTANTS for the OlTaskRecipientType enumeration
19818              
19819             olUpdate => 2
19820             olFinalStatus => 3
19821              
19822             =cut
19823              
19824             #===============================================================================
19825             *olUpdate = sub { return 2; };
19826             *olFinalStatus = sub { return 3; };
19827              
19828             my @_literal_list_OlTaskRecipientType = (
19829             'olUpdate' => 2,
19830             'olFinalStatus' => 3,
19831             );
19832              
19833             #===============================================================================
19834             # Rinchi::Outlook::OlTaskRecipientType::Literals
19835              
19836             =head1 METHODS for the OlTaskRecipientType enumeration
19837              
19838             =head2 @Literals = Rinchi::Outlook::OlTaskRecipientType::Literals
19839              
19840             Returns an array of literal name-value pairs.
19841              
19842             =head2 %Literals = Rinchi::Outlook::OlTaskRecipientType::Literals
19843              
19844             Returns a hash of literal name-value pairs.
19845              
19846             =cut
19847              
19848             sub Literals() {
19849             my $self = shift;
19850             return @_literal_list_OlTaskRecipientType;
19851             }
19852              
19853             #===============================================================================
19854             # Generated by Hymnos Perl Code Generator
19855             # UML Model UUID: d5e56a58-3c43-11dd-8a73-001c25551abc
19856              
19857             package Rinchi::Outlook::OlTaskResponse;
19858              
19859             our @ISA = qw();
19860             our @EXPORT = qw();
19861             our @EXPORT_OK = qw();
19862              
19863             =head1 DESCRIPTION of OlTaskResponse enumeration
19864              
19865             Rinchi::Outlook::OlTaskResponse - Module representing the OlTaskResponse enumeration.
19866              
19867             =head1 CONSTANTS for the OlTaskResponse enumeration
19868              
19869             olTaskSimple => 0
19870             olTaskAssign => 1
19871             olTaskAccept => 2
19872             olTaskDecline => 3
19873              
19874             =cut
19875              
19876             #===============================================================================
19877             *olTaskSimple = sub { return 0; };
19878             *olTaskAssign = sub { return 1; };
19879             *olTaskAccept = sub { return 2; };
19880             *olTaskDecline = sub { return 3; };
19881              
19882             my @_literal_list_OlTaskResponse = (
19883             'olTaskSimple' => 0,
19884             'olTaskAssign' => 1,
19885             'olTaskAccept' => 2,
19886             'olTaskDecline' => 3,
19887             );
19888              
19889             #===============================================================================
19890             # Rinchi::Outlook::OlTaskResponse::Literals
19891              
19892             =head1 METHODS for the OlTaskResponse enumeration
19893              
19894             =head2 @Literals = Rinchi::Outlook::OlTaskResponse::Literals
19895              
19896             Returns an array of literal name-value pairs.
19897              
19898             =head2 %Literals = Rinchi::Outlook::OlTaskResponse::Literals
19899              
19900             Returns a hash of literal name-value pairs.
19901              
19902             =cut
19903              
19904             sub Literals() {
19905             my $self = shift;
19906             return @_literal_list_OlTaskResponse;
19907             }
19908              
19909             #===============================================================================
19910             # Generated by Hymnos Perl Code Generator
19911             # UML Model UUID: d5e58d80-3c43-11dd-ba52-001c25551abc
19912              
19913             package Rinchi::Outlook::OlTaskStatus;
19914              
19915             our @ISA = qw();
19916             our @EXPORT = qw();
19917             our @EXPORT_OK = qw();
19918              
19919             =head1 DESCRIPTION of OlTaskStatus enumeration
19920              
19921             Rinchi::Outlook::OlTaskStatus - Module representing the OlTaskStatus enumeration.
19922              
19923             =head1 CONSTANTS for the OlTaskStatus enumeration
19924              
19925             olTaskNotStarted => 0
19926             olTaskInProgress => 1
19927             olTaskComplete => 2
19928             olTaskWaiting => 3
19929             olTaskDeferred => 4
19930              
19931             =cut
19932              
19933             #===============================================================================
19934             *olTaskNotStarted = sub { return 0; };
19935             *olTaskInProgress = sub { return 1; };
19936             *olTaskComplete = sub { return 2; };
19937             *olTaskWaiting = sub { return 3; };
19938             *olTaskDeferred = sub { return 4; };
19939              
19940             my @_literal_list_OlTaskStatus = (
19941             'olTaskNotStarted' => 0,
19942             'olTaskInProgress' => 1,
19943             'olTaskComplete' => 2,
19944             'olTaskWaiting' => 3,
19945             'olTaskDeferred' => 4,
19946             );
19947              
19948             #===============================================================================
19949             # Rinchi::Outlook::OlTaskStatus::Literals
19950              
19951             =head1 METHODS for the OlTaskStatus enumeration
19952              
19953             =head2 @Literals = Rinchi::Outlook::OlTaskStatus::Literals
19954              
19955             Returns an array of literal name-value pairs.
19956              
19957             =head2 %Literals = Rinchi::Outlook::OlTaskStatus::Literals
19958              
19959             Returns a hash of literal name-value pairs.
19960              
19961             =cut
19962              
19963             sub Literals() {
19964             my $self = shift;
19965             return @_literal_list_OlTaskStatus;
19966             }
19967              
19968             #===============================================================================
19969             # Generated by Hymnos Perl Code Generator
19970             # UML Model UUID: d5e5a13a-3c43-11dd-bfc1-001c25551abc
19971              
19972             package Rinchi::Outlook::OlTrackingStatus;
19973              
19974             our @ISA = qw();
19975             our @EXPORT = qw();
19976             our @EXPORT_OK = qw();
19977              
19978             =head1 DESCRIPTION of OlTrackingStatus enumeration
19979              
19980             Rinchi::Outlook::OlTrackingStatus - Module representing the OlTrackingStatus enumeration.
19981              
19982             =head1 CONSTANTS for the OlTrackingStatus enumeration
19983              
19984             olTrackingNone => 0
19985             olTrackingDelivered => 1
19986             olTrackingNotDelivered => 2
19987             olTrackingNotRead => 3
19988             olTrackingRecallFailure => 4
19989             olTrackingRecallSuccess => 5
19990             olTrackingRead => 6
19991             olTrackingReplied => 7
19992              
19993             =cut
19994              
19995             #===============================================================================
19996             *olTrackingNone = sub { return 0; };
19997             *olTrackingDelivered = sub { return 1; };
19998             *olTrackingNotDelivered = sub { return 2; };
19999             *olTrackingNotRead = sub { return 3; };
20000             *olTrackingRecallFailure = sub { return 4; };
20001             *olTrackingRecallSuccess = sub { return 5; };
20002             *olTrackingRead = sub { return 6; };
20003             *olTrackingReplied = sub { return 7; };
20004              
20005             my @_literal_list_OlTrackingStatus = (
20006             'olTrackingNone' => 0,
20007             'olTrackingDelivered' => 1,
20008             'olTrackingNotDelivered' => 2,
20009             'olTrackingNotRead' => 3,
20010             'olTrackingRecallFailure' => 4,
20011             'olTrackingRecallSuccess' => 5,
20012             'olTrackingRead' => 6,
20013             'olTrackingReplied' => 7,
20014             );
20015              
20016             #===============================================================================
20017             # Rinchi::Outlook::OlTrackingStatus::Literals
20018              
20019             =head1 METHODS for the OlTrackingStatus enumeration
20020              
20021             =head2 @Literals = Rinchi::Outlook::OlTrackingStatus::Literals
20022              
20023             Returns an array of literal name-value pairs.
20024              
20025             =head2 %Literals = Rinchi::Outlook::OlTrackingStatus::Literals
20026              
20027             Returns a hash of literal name-value pairs.
20028              
20029             =cut
20030              
20031             sub Literals() {
20032             my $self = shift;
20033             return @_literal_list_OlTrackingStatus;
20034             }
20035              
20036             #===============================================================================
20037             # Generated by Hymnos Perl Code Generator
20038             # UML Model UUID: d5e5b148-3c43-11dd-8307-001c25551abc
20039              
20040             package Rinchi::Outlook::OlUserPropertyType;
20041              
20042             our @ISA = qw();
20043             our @EXPORT = qw();
20044             our @EXPORT_OK = qw();
20045              
20046             =head1 DESCRIPTION of OlUserPropertyType enumeration
20047              
20048             Rinchi::Outlook::OlUserPropertyType - Module representing the OlUserPropertyType enumeration.
20049              
20050             =head1 CONSTANTS for the OlUserPropertyType enumeration
20051              
20052             olOutlookInternal => 0
20053             olText => 1
20054             olNumber => 3
20055             olDateTime => 5
20056             olYesNo => 6
20057             olDuration => 7
20058             olKeywords => 11
20059             olPercent => 12
20060             olCurrency => 14
20061             olFormula => 18
20062             olCombination => 19
20063              
20064             =cut
20065              
20066             #===============================================================================
20067             *olOutlookInternal = sub { return 0; };
20068             *olText = sub { return 1; };
20069             *olNumber = sub { return 3; };
20070             *olDateTime = sub { return 5; };
20071             *olYesNo = sub { return 6; };
20072             *olDuration = sub { return 7; };
20073             *olKeywords = sub { return 11; };
20074             *olPercent = sub { return 12; };
20075             *olCurrency = sub { return 14; };
20076             *olFormula = sub { return 18; };
20077             *olCombination = sub { return 19; };
20078              
20079             my @_literal_list_OlUserPropertyType = (
20080             'olOutlookInternal' => 0,
20081             'olText' => 1,
20082             'olNumber' => 3,
20083             'olDateTime' => 5,
20084             'olYesNo' => 6,
20085             'olDuration' => 7,
20086             'olKeywords' => 11,
20087             'olPercent' => 12,
20088             'olCurrency' => 14,
20089             'olFormula' => 18,
20090             'olCombination' => 19,
20091             );
20092              
20093             #===============================================================================
20094             # Rinchi::Outlook::OlUserPropertyType::Literals
20095              
20096             =head1 METHODS for the OlUserPropertyType enumeration
20097              
20098             =head2 @Literals = Rinchi::Outlook::OlUserPropertyType::Literals
20099              
20100             Returns an array of literal name-value pairs.
20101              
20102             =head2 %Literals = Rinchi::Outlook::OlUserPropertyType::Literals
20103              
20104             Returns a hash of literal name-value pairs.
20105              
20106             =cut
20107              
20108             sub Literals() {
20109             my $self = shift;
20110             return @_literal_list_OlUserPropertyType;
20111             }
20112              
20113             #===============================================================================
20114             # Generated by Hymnos Perl Code Generator
20115             # UML Model UUID: d5e5c1b0-3c43-11dd-9047-001c25551abc
20116              
20117             package Rinchi::Outlook::OlViewSaveOption;
20118              
20119             our @ISA = qw();
20120             our @EXPORT = qw();
20121             our @EXPORT_OK = qw();
20122              
20123             =head1 DESCRIPTION of OlViewSaveOption enumeration
20124              
20125             Rinchi::Outlook::OlViewSaveOption - Module representing the OlViewSaveOption enumeration.
20126              
20127             =head1 CONSTANTS for the OlViewSaveOption enumeration
20128              
20129             olViewSaveOptionThisFolderEveryone => 0
20130             olViewSaveOptionThisFolderOnlyMe => 1
20131             olViewSaveOptionAllFoldersOfType => 2
20132              
20133             =cut
20134              
20135             #===============================================================================
20136             *olViewSaveOptionThisFolderEveryone = sub { return 0; };
20137             *olViewSaveOptionThisFolderOnlyMe = sub { return 1; };
20138             *olViewSaveOptionAllFoldersOfType = sub { return 2; };
20139              
20140             my @_literal_list_OlViewSaveOption = (
20141             'olViewSaveOptionThisFolderEveryone' => 0,
20142             'olViewSaveOptionThisFolderOnlyMe' => 1,
20143             'olViewSaveOptionAllFoldersOfType' => 2,
20144             );
20145              
20146             #===============================================================================
20147             # Rinchi::Outlook::OlViewSaveOption::Literals
20148              
20149             =head1 METHODS for the OlViewSaveOption enumeration
20150              
20151             =head2 @Literals = Rinchi::Outlook::OlViewSaveOption::Literals
20152              
20153             Returns an array of literal name-value pairs.
20154              
20155             =head2 %Literals = Rinchi::Outlook::OlViewSaveOption::Literals
20156              
20157             Returns a hash of literal name-value pairs.
20158              
20159             =cut
20160              
20161             sub Literals() {
20162             my $self = shift;
20163             return @_literal_list_OlViewSaveOption;
20164             }
20165              
20166             #===============================================================================
20167             # Generated by Hymnos Perl Code Generator
20168             # UML Model UUID: d5e5d1f0-3c43-11dd-9f87-001c25551abc
20169              
20170             package Rinchi::Outlook::OlViewType;
20171              
20172             our @ISA = qw();
20173             our @EXPORT = qw();
20174             our @EXPORT_OK = qw();
20175              
20176             =head1 DESCRIPTION of OlViewType enumeration
20177              
20178             Rinchi::Outlook::OlViewType - Module representing the OlViewType enumeration.
20179              
20180             =head1 CONSTANTS for the OlViewType enumeration
20181              
20182             olTableView => 0
20183             olCardView => 1
20184             olCalendarView => 2
20185             olIconView => 3
20186             olTimelineView => 4
20187              
20188             =cut
20189              
20190             #===============================================================================
20191             *olTableView = sub { return 0; };
20192             *olCardView = sub { return 1; };
20193             *olCalendarView = sub { return 2; };
20194             *olIconView = sub { return 3; };
20195             *olTimelineView = sub { return 4; };
20196              
20197             my @_literal_list_OlViewType = (
20198             'olTableView' => 0,
20199             'olCardView' => 1,
20200             'olCalendarView' => 2,
20201             'olIconView' => 3,
20202             'olTimelineView' => 4,
20203             );
20204              
20205             #===============================================================================
20206             # Rinchi::Outlook::OlViewType::Literals
20207              
20208             =head1 METHODS for the OlViewType enumeration
20209              
20210             =head2 @Literals = Rinchi::Outlook::OlViewType::Literals
20211              
20212             Returns an array of literal name-value pairs.
20213              
20214             =head2 %Literals = Rinchi::Outlook::OlViewType::Literals
20215              
20216             Returns a hash of literal name-value pairs.
20217              
20218             =cut
20219              
20220             sub Literals() {
20221             my $self = shift;
20222             return @_literal_list_OlViewType;
20223             }
20224              
20225             #===============================================================================
20226             # Generated by Hymnos Perl Code Generator
20227             # UML Model UUID: d5e5e172-3c43-11dd-a5b4-001c25551abc
20228              
20229             package Rinchi::Outlook::OlWindowState;
20230              
20231             our @ISA = qw();
20232             our @EXPORT = qw();
20233             our @EXPORT_OK = qw();
20234              
20235             =head1 DESCRIPTION of OlWindowState enumeration
20236              
20237             Rinchi::Outlook::OlWindowState - Module representing the OlWindowState enumeration.
20238              
20239             =head1 CONSTANTS for the OlWindowState enumeration
20240              
20241             olMaximized => 0
20242             olMinimized => 1
20243             olNormalWindow => 2
20244              
20245             =cut
20246              
20247             #===============================================================================
20248             *olMaximized = sub { return 0; };
20249             *olMinimized = sub { return 1; };
20250             *olNormalWindow = sub { return 2; };
20251              
20252             my @_literal_list_OlWindowState = (
20253             'olMaximized' => 0,
20254             'olMinimized' => 1,
20255             'olNormalWindow' => 2,
20256             );
20257              
20258             #===============================================================================
20259             # Rinchi::Outlook::OlWindowState::Literals
20260              
20261             =head1 METHODS for the OlWindowState enumeration
20262              
20263             =head2 @Literals = Rinchi::Outlook::OlWindowState::Literals
20264              
20265             Returns an array of literal name-value pairs.
20266              
20267             =head2 %Literals = Rinchi::Outlook::OlWindowState::Literals
20268              
20269             Returns a hash of literal name-value pairs.
20270              
20271             =cut
20272              
20273             sub Literals() {
20274             my $self = shift;
20275             return @_literal_list_OlWindowState;
20276             }
20277              
20278             1
20279              
20280             __END__