Conference iosg::all-in-1_v30

3576.0. "Removing a TO from a header by programming" by KETJE::CAPPELLEMANS (The Dark side of the \FORCE) Wed Nov 24 1993 10:35

Hello,

I got the following Programming problem:
First of all the context.
A software house developped a 'kind of gateway' based on VMSMAIL which 
receive/send mail from/to an Insurance Network(ASSURNET).
This gateway picks up the mail from the ASSURNET network, formats it and send it
through VMSmail/MRGATE/MAILbus to ALL-IN-1. 
Everything is working fine. 
To allow an ALL-IN-1 user to reply to such a mail, I've added some 
customization so that the Answer mail contains the original sender's ASSURNET
address so that my mail header looks like:
TO: Remote Addressee                    ( ACSE_D@MRGATE@LGN )
TO: Jef KAZAK               123456 987  ( ACSE_D@MRGATE@LGN )
where the first TO is the gateway address (which is normal as he's generating
the mail)
and the second to is the same gateway but passing information such as
Jef KAZAk (original ASSURNET sender's name)
123456 his ASSURNET number
987 an internal identification used by the gateway.
The gateway is clever enough to based on this information to send the mail to
the ASSURNET user.
 
What I want to do is to discard the first TO addressee because this 
information is meaningless.
I've tried all kind of hacking but without any success.

Any help is welcome.

Many thanks in advance

Pierre

    Hi,
    
    Have you tried the CABINET DELETE_ATTRIBUTE function. This example
    would get rid of the first TO:
    
    get #x = cab$.to[oa$curdoc]
    cabinet delete_attribute ,"TO", #x
    
    HTH
    
    Stuart