Thanks Bob, I'd been doing that previously with DCL :-)
> An end run around the problem would be to write the message to a temporary > file and use the command line interface to MAIL. > > $file = 'tempfile.txt'; > open OUT, "> $file" or die "Can't open file $file: $!"; > print OUT "Message goes here, any number of lines\n"; > close OUT; > $subject = "Mail subject"; > $maillist = '[EMAIL PROTECTED]'; > $result = `MAIL/subject="$subject" $file $maillist`; > unlink $file; > > --Bob van Keuren > Advanced Marketing Services > San Diego > > > -----Original Message----- > From: Martin Evans [mailto:[EMAIL PROTECTED] > Sent: Monday, July 28, 2003 7:20 am > To: [EMAIL PROTECTED] > Subject: RE: using vms mail > > > > Many thanks for your replies, I've managed to get it going and keep it > simple whith VMS mail, part of my problem was some previous testing I had > been doing with "deliver" (freeware cd tool for filtering) it would also > appear that you don't need the control-z (which I should have had as > "\cZ") or the "exit\n" to quit mail. > > in case anyone else wants to do this I've included the working code below, > please excuse the noddy comments, they're for a user. > > # > # create some vars for testing, these could be anything. > # > my $to = '[EMAIL PROTECTED]'; # use single quotes here > or perl will expect an array @blah > my $subject = "My subject goes in here"; > my $name = "Some text goes in here \n and some more on a new line > :-)"; > my $location = "And some more if I want to\n"; > # > # > open(MAIL,"|mail") || die "Can't open mail\n"; # this line calls the mail > program and gives it the handle MAIL > print MAIL "send\n"; # tells the mail program > you want to send a message > print MAIL "$to\n"; # email address to send to > print MAIL "$subject\n"; # the subject > print MAIL "$name\n"; # some text for the body > print MAIL "$location\n"; # some more text, you can > add as many as you like or just have one > close (MAIL) # close the mail program > > > >> Martin Evans wrote: >>> Hi can anyone give me any tips on how to interact with vms mail? >> >> I haven't personally used it, but how about VMS::Mail? >> Available from a friendly CPAN mirror near you. >> >> However, it's quite old (2000, inital release), listed as "cdc" >> (pre-alpha, support by developer, C and perl). >> >> Otherwise - if you have TCP/IP running on that machine - I'd suggest >> Net::SMTP (part of the libnet package). >> >> cu, >> Martin >> -- >> So long, and thanks | Martin Vorlaender | VMS & WNT programmer >> for all the books... | work: [EMAIL PROTECTED] >> In Memoriam Douglas Adams | http://www.pdv-systeme.de/users/martinv/ >> 1952-2001 | home: [EMAIL PROTECTED] >> > > > Martin Evans > AEON Solutions Ltd > Tel +44(0)7974 339915 > Martin Evans AEON Solutions Ltd Tel +44(0)7974 339915
