Wagner, David --- Senior Programmer Analyst --- WGO wrote:
> David Olbersen wrote:
>> David,
>>
>> Take a look at perlmonks.org, somebody wrote a script that does
>> something very similar to what you're looking for.
>>
>> Specifically, http://www.perlmonks.com/index.pl?node_id=12287 has a
>> good starting point!
>>
>> It uses the MIME tools if memory serves me...
>>
>> --------------------------
>> David Olbersen
>> iGuard Engineer
>> 11415 West Bernardo Court
>> San Diego, CA 92127
>> 1-858-676-2277 x2152
>>
>
> Thanks, David, but the repository is Outlook and hence need either
> through OLE or CDO or ??? the ability to get at the mail within
> Outlook and work from there. I am going to save the info you sent,
> since I do or may have the need for something like that in the near
> future.
>
> Wags ;)
>
>
From what David gave me, I went and looked at what was at perlmonks and found
someone who was doing the save of attachments. Here is the basic code:
foreach my $attachment ( in {$item->Attachments} ) {
do {
$MyFileOut = $MyDir . sprintf "email_%05d.txt", $MyCnt++;
} until ( ! -e $MyFileOut );
$attachment->SaveAsFile( $MyFileOut , olTXT ) ;
if ( Win32::OLE->LastError() ) {
printf "%-s\n", Win32::OLE->LastError();
}
but it does not like the data after the , within the SaveAsFile
Win32::OLE(0.15) error 0x8002000e: "Invalid number of parameters"
in METHOD/PROPERTYGET "SaveAsFile"
The attachments are from ezmlm program and there are a hundred of them.
I went back to the OLE browser and finally found the right spot and sure enough there
can ONLY be the filename to save as. How do you convert them or get them to be text
only messages.
I'm lost??
Wags ;)
**********************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
****************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
