# Author: Robbie Allen (2003.12.07)
#
# This script sets the view for all folders in the default Inbox and 
# personal folders you specify.  I wrote this to work around the problem in 
# Outlook 2003 where you cannot set a view to be applied across all folders
# in a tree.  I got tired of setting the views for each folder manually.

my $DEBUG = 0; # 1 = debugging enabled, just display folder tree; 0 = set views
my $DO_INBOX = 0; # 1 = set inbox folders; 0 = don't set inbox folders
my @personal_folders = ("Personal Folders","Work Folders");
# @personal_folders = ("RSS Feeds");

use Win32::OLE 'in';
my $objApp = Win32::OLE->GetActiveObject("Outlook.Application");
my $objOutlook = $objApp->GetNamespace("MAPI");

my $objFolders;
if ($DO_INBOX) {
   $objFolders = $objOutlook->GetDefaultFolder(6)->Folders; # 6 = Inbox
   print "Default Inbox:\n";
   foreach my $objFolder ( in $objFolders) {
      subfolders($objFolder,"  ");
   }
   print "\n";
}

foreach my $pst (@personal_folders) {
   print "$pst:\n";
   $objFolders = $objOutlook->Folders($pst)->Folders;
   foreach my $objFolder ( in $objFolders) {
      subfolders($objFolder,"  ");
   }
   print "\n";
}

sub subfolders {
my ($objFs,$spaces) = @_;

   print $spaces,$objFs->Name;
   if ($DEBUG) {
      print "\n";
   }
   else {
      my $rc = setview($objFs);
      if ($rc) {
         print " (ERROR setting view)\n";
      }
      else {
         print " (set view)\n";
      }
   }
   my $objSubFs = $objFs->Folders;
   return unless ref $objSubFs;
   foreach my $objF (in $objSubFs) {
      subfolders($objF,"$spaces  ");
   }
}

sub setview {
my ($objFolder) = @_;

   my $objViews = $objFolder->Views;
   my $objView = $objViews->Item("Messages");
   return -1 unless ref $objView;
   # print $objView->{XML} && exit;

   $objView->{XML} = qq(
<?xml version="1.0"?>
<view type="table">
        <viewname>Messages</viewname>
        <viewstyle>table-layout:fixed;width:100%;font-family:Tahoma;font-style:normal;font-weight:normal;font-size:8pt;color:Black;font-charset:0</viewstyle>
        <viewtime>0</viewtime>
        <linecolor>8421504</linecolor>
        <linestyle>3</linestyle>
        <usequickflags>0</usequickflags>
        <rowstyle>background-color:#FFFFFF</rowstyle>
        <headerstyle>background-color:#D3D3D3</headerstyle>
        <previewstyle>color:Blue</previewstyle>
        <arrangement>
                <autogroup>0</autogroup>
                <persistgroups>1</persistgroups>
                <collapseclient></collapseclient>
        </arrangement>
        <column>
                <format>boolicon</format>
                <heading>Attachment</heading>
                <prop>urn:schemas:httpmail:hasattachment</prop>
                <type>boolean</type>
                <bitmap>1</bitmap>
                <width>10</width>
                <style>padding-left:3px;;text-align:center</style>
                <displayformat>3</displayformat>
        </column>        <column>
                <heading>Importance</heading>
                <prop>urn:schemas:httpmail:importance</prop>
                <type>i4</type>
                <bitmap>1</bitmap>
                <width>10</width>
                <style>padding-left:3px;;text-align:center</style>
        </column>
        <column>
                <heading>From</heading>
                <prop>urn:schemas:httpmail:fromname</prop>
                <type>string</type>
                <width>40</width>
                <style>padding-left:3px;;text-align:left</style>
                <displayformat>1</displayformat>
        </column>
        <column>
                <heading>Subject</heading>
                <prop>urn:schemas:httpmail:subject</prop>
                <type>string</type>
                <width>181</width>
                <style>padding-left:3px;;text-align:left</style>
        </column>
        <column>
                <heading>Received</heading>
                <prop>urn:schemas:httpmail:datereceived</prop>
                <type>datetime</type>
                <maxrows>806551552</maxrows>
                <width>54</width>
                <style>padding-left:3px;;text-align:left</style>
                <format>M/d/yyyy||h:mm tt</format>
                <displayformat>2</displayformat>
        </column>
        <orderby>
                <order>
                        <heading>Received</heading>
                        <prop>urn:schemas:httpmail:datereceived</prop>
                        <type>datetime</type>
                        <sort>desc</sort>
                </order>
        </orderby>
        <multiline>
                <width>0</width>
        </multiline>
        <groupbydefault>2</groupbydefault>
        <previewpane>
                <visible>1</visible>
                <markasread>0</markasread>
        </previewpane>
</view>
);
   $objView->Save;
   $objView->Apply;
}


__END__

        <column>
                <heading>Flag Status</heading>
                <prop>http://schemas.microsoft.com/mapi/proptag/0x10900003</prop>
                <type>i4</type>
                <bitmap>1</bitmap>
                <width>18</width>
                <style>padding-left:3px;;text-align:center</style>
        </column>