[HRPM] Perl & Outlook

[Matt Shivers]

I am in town for the holidays, and I would like to attend our get together.
I don't know of any good locations though.

Matt

----- Original Message -----
From: <chicks at chicks.net>
To: "HRPM" <norfolk-pm-list at happyfunball.pm.org>
Sent: Saturday, December 23, 2000 8:37 AM
Subject: [HRPM] Perl & Outlook


> I thought this might be of interest to some - how to interface perl and
> Outlook.
>
> Also - I haven't been very proactive in figuring out a location for our
> social get together next week.  Can people let me know if they're planning
> on attending?  With the flu and the weather I haven't been too
> enthusiastic about scouting locations which I had planned on doing last
> week.
>
> --
> </chris>
>
>    If you're not part of the solution, you're part of the precipitate.
>                                                          - Steven Wright
>
> ---------- Forwarded message ----------
>
> Message: 13
> From: "Reiner Buehl" <reiner_buehl at gmx.net>
> To: <Perl-Win32-Users at listserv1.ActiveState.com>
> Subject: RE: Perl & Outlook
> Date: Fri, 22 Dec 2000 14:57:07 +0100
>
> This is a multi-part message in MIME format.
>
> ------=_NextPart_000_0008_01C06C27.74176AF0
> Content-Type: text/plain;
> charset="iso-8859-1"
> Content-Transfer-Encoding: 7bit
>
> Hi,
>
> attached are two samples that I got to work after spending hours on it.
> The filenames should speak for themselves. One thing that I never got
> to work was selecting a different Mail account than the default account.
> If anybody can explain how to do that, I would be very interested.
>
> Best Regards,
> Reiner.
>
> > -----Original Message-----
> > Could anyone please tell me if there are examples out there on the web
of
> > using Perl and Outlook? How can I used perl to access PST files? Are
there
> > any resources available?
>
> ------=_NextPart_000_0008_01C06C27.74176AF0
> Content-Type: application/octet-stream;
> name="CreateFolder.pl"
> Content-Transfer-Encoding: 7bit
> Content-Disposition: attachment;
> filename="CreateFolder.pl"
>
> use strict;
> use Win32::OLE;
> use Win32::OLE::Const 'Microsoft Outlook';
>
> my $Outlook = Win32::OLE->new('Outlook.Application', 'Quit');
> my $ol = Win32::OLE::Const->Load($Outlook);
>
> my $namespace = $Outlook->GetNamespace("MAPI");
> my $Folder = $namespace->GetDefaultFolder(olFolderInbox);
> my $NewFolder = $Folder->Folders->Add("Test1");
>
>
> ------=_NextPart_000_0008_01C06C27.74176AF0
> Content-Type: application/octet-stream;
> name="OutlookSend.pl"
> Content-Transfer-Encoding: 7bit
> Content-Disposition: attachment;
> filename="OutlookSend.pl"
>
> use strict;
> use Win32::OLE;
> use Win32::OLE::Const 'Microsoft Outlook';
>
> my $Outlook = Win32::OLE->new('Outlook.Application', 'Quit');
> my $ol = Win32::OLE::Const->Load($Outlook);
>
> my $namespace = $Outlook->GetNamespace("MAPI");
> my $Folder = $namespace->GetDefaultFolder(olFolderInbox);
> my $NewMail = $Outlook->CreateItem(olMailItem);
>
> $NewMail->Recipients->Add("user\@host.domain.net");
> $NewMail->{Subject} = "Test Message via Perl";
> $NewMail->{Body} = "Test Message Body\n\nBest Regards,\nReiner.\n";
>
> $NewMail->Send;
>
> ------=_NextPart_000_0008_01C06C27.74176AF0--
>
>