#!perl use warnings; use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Outlook'; =pod This takes the value of a note Subject from the command line arguments, looks for a note with that identification, and displays it. If no note is found with the given Subject, an OLE error results. =head1 TO DO Allow searching for notes in subfolders. E.g. Given note name "Archive/How To", we will search in subfolder "Archive" for a note named "How To". =cut Win32::OLE ->new('Outlook.Application') ->session ->GetDefaultFolder( olFolderNotes ) ->Items( "@ARGV" ) ->Display;