From: MX%"MX-List@WKUVX1.BITNET" 22-OCT-1993 07:56:00.56
To: GOATHUNTER
CC:
Subj: RE: Mass mailing list adds
Return-Path: <list-mgr@WKUVX1.BITNET>
Received: from wkuvx1.wku.edu by alpha.wku.edu (MX V3.3 AXP) with SMTP; Fri, 22
Oct 1993 07:55:57 CST
X-ListName: Message Exchange Discussion List <MX-List@WKUVX1.BITNET>
Warnings-To: <>
Errors-To: list-mgr@WKUVX1.BITNET
Sender: list-mgr@WKUVX1.BITNET
Date: Fri, 22 Oct 1993 08:53:06 EST
From: Alan Simon <simon@shrsys.hslc.org>
Reply-To: MX-List@WKUVX1.BITNET
To: MX-List%WKUVX1.bitnet@ULKYVM.LOUISVILLE.EDU
Subject: RE: Mass mailing list adds
> From: MX%"MX-List%WKUVX1.bitnet@ULKYVM.LOUISVILLE.EDU" 21-OCT-1993 20:33:03.49
> Subj: Mass mailing list adds
> I was just given a list of a couple hundred people to add to a mailing
> list.
> Is there an easy way to do it?
>
> cheers,
>
> rand
Here's a crude but effective command file I recently wrote to convert a VMS
Mail distribution list to a MX mailing list. Modify the file before invoking
to reflect your environment.
$! CONVERT_DISTLIST_TO_LISTSERV.COM
$! 21-SEP-1993
$! Alan C. Simon (simon@hslc.org)
$!
$! This command file will convert a VMS Mail distribution list to a MX mailing
$! list.
$!
$ DISTLISTNAME:
$ READ/END=EXIT/ERROR=EXIT/PROMPT="Distribution List Name?: " -
SYS$COMMAND DLN
$ DLN = F$EDIT(DLN,"TRIM,UPCASE")
$ IF F$LOCATE(".DIS",DLN) .EQS. F$LENGTH(DLN) THEN DLN = "''DLN'.DIS"
$!
$! Set the directory specification in the next line as needed.
$!
$ IF F$SEARCH("SYS$APPS0:[MAILDIST]''DLN'") .EQS. ""
$ THEN WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "Distribution list not found."
$ WRITE SYS$OUTPUT ""
$ GOTO DISTLISTNAME
$ ENDIF
$!
$ LISTSERVNAME:
$ READ/END=EXIT/ERROR=EXIT/PROMPT="Mailing List Name?: " SYS$COMMAND MLN
$ MLN = F$EDIT(MLN,"TRIM,UPCASE")
$!
$!
$! Set the directory specification in the next line as needed.
$!
$ OPEN/SHARE=WRITE DISTLIST SYS$APPS0:[MAILDIST]'DLN'
$ READ_NAMES:
$ READ/END_OF_FILE=EXIT DISTLIST NAME
$!
$ SEND:
$ IF F$LOCATE("MX%",NAME) .NES. F$LENGTH(NAME) THEN NAME =
"''F$EXTRACT(4,F$LENGTH(NAME),NAME)'
$ IF F$LOCATE("mx%",NAME) .NES. F$LENGTH(NAME) THEN NAME =
"''F$EXTRACT(4,F$LENGTH(NAME),NAME)'
$!
$! Set the location in the next line as needed.
$!
$ IF F$LOCATE("@",NAME) .EQS. F$LENGTH(NAME) THEN NAME =
"''NAME'@SHRSYS.HSLC.ORG"
$ WRITE SYS$OUTPUT NAME
$ OPEN/WRITE OUTPUT_FILE ADD_'F$GETJPI("","PID")'.TXT
$ WRITE OUTPUT_FILE "ADD/NONOTIFY ''MLN' ''NAME'"
$ CLOSE OUTPUT_FILE
$!
$! Set the location in the next line as needed.
$!
$ MAIL ADD_'F$GETJPI("","PID")'.TXT "LISTSERV@HSLC.ORG"
$ DELETE ADD_'F$GETJPI("","PID")'.TXT;0
$ GOTO READ_NAMES
$ EXIT:
$ CLOSE DISTLIST
$ EXIT
-------------------------------------------------------------------------------
Alan Simon simon@hslc.org
Associate Director simon@shrsys.hslc.org
Health Sciences Libraries Consortium VOICE: (215) 222-1532
3600 Market Street, Suite 550 FAX: (215) 222-0416
Philadelphia, PA 19104
-------------------------------------------------------------------------------