[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference iosg::all-in-1_v30

Title:*OLD* ALL-IN-1 (tm) Support Conference
Notice:Closed - See Note 4331.l to move to IOSG::ALL-IN-1
Moderator:IOSG::PYE
Created:Thu Jan 30 1992
Last Modified:Tue Jan 23 1996
Last Successful Update:Fri Jun 06 1997
Number of topics:4343
Total number of notes:18308

1459.0. "Mailing SUBSCRIBERS AND those with mail auto-forwarded" by FAILTE::EWE::LAAHS (An accumulation of Celts) Mon Sep 21 1992 16:55

    The following is an example of how addressees of a mail message can be 
    dynamically determined.
    
    The example shows how an ALL-IN-1 IOS message can be addressed to the 
    SUBSCRIBERS: and to those users who have their mail auto-forwarded. 
    This is a common wish in a TeamLinks/IOS environment. The code however 
    could be used to address mail based on any criteria (for example all 
    administrators or users in a certain department etc.).
    
    To use this code you must place the following .CMU and .SCP files into 
    OA$LIB. Then set up a profile entry that has DYNAMIC as the mail 
    destination. Note all you need is a profile entry - not a full-blown 
    user account. If you cannot put DYNAMIC into the profile entry when 
    creating it then do a <WRITE CHANGE PROFIL USER="DYNAMIC", 
    MAIDES="DYNAMC" after creating the entry.
    
    Then all you do is address the mail message to DYNAMIC. The addressees 
    are NOT shown in the mail header but if you do a SH after creating the 
    message you should see that it has worked.
    
    Regards,
    Kevin

$!OA$LIB:DYNAMIC.CMU
$!
$ write oamailbox "oa get oa$display=#emdaddress=''\oa$msg_purge"
$ @dclmailbox:
$ write oamailbox "oa script dynamic"
$ @dclmailbox:
$ exit

!OA$LIB:DYNAMIC.SCP
!
.fx display \force
.fx mail to SUBSCRIBERS:/noprompt
.fx display Scanning for auto-forwarded addresses...\force
.fx for profil with .maides = "ALL" and .mail_forward nes "" do - 
	get oa$func = "mail to " .user "/noprompt"
.fx oa$msg_purge
{LF}
{CR}
{CR}
.exit

    

T.RTitleUserPersonal
Name
DateLines