Thanks for reply.
I watched "<SCRIPT LANGUAGE="PerlScript"> in the internaet.
but cann't find samles and howto.
> use Win32::OLE;
> Win32::OLE->Initialize(Win32::OLE::COINIT_OLEINITIALIZE);
>
> sub ISMTPOnArrival_OnArrival {
> #expecting a $message object
> my $message = $_[0];
> my $status = 0;
> #...and so on
> }
>
> </SCRIPT>
Do you know sites or documents showing sample code to manage CDO,
which is like this as VBScript...
' Add an address to this message's receivers.
Set objEnvFlds = objMsg.EnvelopeFields
objEnvFlds.Item(cdoRecipientList).Value _
= objEnvFlds.Item(cdoRecipientList).Value & ";" & strAddr
objEnvFlds.Update
objMsg.DataSource.Save
Regards,
HT
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
