Definitions:

• MS definition of OLE
• NON Microsoft Definition of OLE

Sure, I have plenty of OLE examples, what were you hoping to see?

Word

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
    
$Win32::OLE::Warn = 2; # Throw Errors, I'll catch them

my $Word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application', 'Quit');


$Word->{'Visible'} = 1;
$Word->Documents->Add || die("Unable to create document ", Win32::OLE-
+>LastError());
my $MyRange = $Word->ActiveDocument->Content;
my $mytxt = "Some Random Text";  # I'll fill this in later
# add a table that is the header portion, 1 column by 1 row

$Word->ActiveDocument->Tables->Add({
   Range => $MyRange,
   NumRows => 1,
   NumColumns => 1,
});
$Word->Selection->TypeText ({ Text => $mytxt});
$Word->Selection->MoveRight({Count => 1});
$Word->Selection->TypeText ({ Text => "A little more text"});
[download]

PowerPoint

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft PowerPoint';
$Win32::OLE::Warn = 2; # Throw Errors, I'll catch them

my $PptApp  = Win32::OLE->GetActiveObject('PowerPoint.Application')|| 
+Win32::OLE->new('PowerPoint.Application', 'Quit'); 

$PptApp->{Visible} = 1;
my $Presentation = $PptApp->Presentations->Add();
#my $Presentation = $PptApp->Presentations->Open({FileName=>'<SOMEFILE
+NAME>',ReadOnly=>1});

my $Slide = $Presentation->Slides->Add({Index=>1 , Layout=>ppLayoutTex
+t});
   $Slide->{Name} = "Slide1";

my $TextBox=$Slide->Shapes->AddTextbox({Orientation=>1, 
                                      Left=>5, 
                                      Top=>5,
                                      Width=>250,
                                      Height=>250,});
                                      
   $TextBox->TextFrame->TextRange->{Text} ="Big Ole Test";

my $Title=$Slide->Shapes->{Title};
   $Title->TextFrame->TextRange->{Text} ="Title Test";
   
my $NewSlide = $Slide->Duplicate();
   $NewSlide->{Name} = "Slide2";
[download]

OutLook

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';
$|++;
$Win32::OLE::Warn = 2; # Throw Errors, I'll catch them

my $OL = Win32::OLE->GetActiveObject('Outlook.Application')
        || Win32::OLE->new('Outlook.Application', 'Quit');

    my $NameSpace = $OL->GetNameSpace("MAPI");
    my $Folder = $NameSpace->GetDefaultFolder(olFolderInbox);
    
    
   # map {print "Attachment Name: ". $_->Attachment(1)->{Name} ."\n";}
+(in ($Folder->{Items}));
   foreach my $msg (in $Folder->{Items}){
       foreach my $atch (in $msg->{Attachments}){
           my $filename = "C:\\atchs\\" . $atch->{FileName};
           #print $atch->{FileName} ." in message ". $msg->{Subject} .
+"\n";
           print $filename ."\n";#." in message ". $msg->{Subject} ."\
+n";
           $atch->SaveAsFile($filename);
       }
   }
[download]

I mean, really, what are you hoping to accomplish? Did you have a task in mind?

You'll need to use an object browser, something like Active States html based one, or MS various tools.

C-.

Update: Added defn links

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.