XMS3 ;ISC-SF/GMB-SMTP Send (RFC 822) ;04/15/2003 12:44
Source file <XMS3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HEADER(XMZ,XMZREC,XMFROM,XMNETNAM) | ; RFC 822 - Header Records
; These records are what you see when you do a "QN" at the prompt: ; "Message Action: Ignore//" |
|
| NETID(XMZ) | ;
|
|
| TOLIST(XMZ,XMNETNAM) | ;
|
|
| TOFORMAT(XMTO,XMPREFIX) | ;
|
|
| TO(XMTO) | ;
|
|
| TOSEND(XMSG) | ;
|
|
| TEXT(XMZ) | ; Send body of text
|
|
| RCPTERR(XMERRMSG,XMZ,XMZREC,XMNVFROM,XMRCPTO,XMRCPT,XMIEN) | ; Non-delivery to recipient
|
|
| MSGERR(XMSITE,XMINST,XMERRMSG,XMZ,XMZREC,XMNVFROM,XMRCPT) | ;
; If a message is rejected at a site for any reason (the whole message, ; not just one recipient), then this message may be sent. |
|
| SENDER(XMZ,XMZREC,XMNVFROM,XMIEN,XMDELFWD,XMERRMSG) | ; Function returns 'to whom to send error message'
|
|
| DELFWD(XMZ,XMIEN,XMFWDR,XMERRMSG) | ; Delete user's forwarding address
|
|
| REC | ; Read the next line of text from the message. When called for the
; first time, returns the first line. ; In: ; XMZ - IEN of the message in file 3.9 ; XMPOS - (optional) line number of the previous line read ; Default is .999999 ; Out: ; XMPOS - line number of XMRG ; XMRG - =the next line of text, if OK; ="" if end of text reached ; XMER - =0 if OK; =-1 if end of text reached |
|
| SEN | ; Send a line to the return message
|
|
| OPEN | ; Open the reverse message path
|
|
| CLOSE | ; Close the reverse message
|
