topic Re: Sending Mails from OpenVMS with Attachments (.ZIPS) in Operating System - OpenVMS

Sending Mails from OpenVMS with Attachments (.ZIPS)

Vallentin, Manfred — Mon, 11 Apr 2005 08:57:54 GMT

Hello,
ist it possible that i can sending Mails over OpenVMS with attachments?
Im looking for examples who i can send ZIP-Files or Binary Files etc. to another Mailsystems.

Thanks for your Tips

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Volker Halle — Mon, 11 Apr 2005 09:14:06 GMT

Manfred,

yes - you can use the MIME utility to do compose messages with attachments and then send the resulting file to other mail systems.

Example:

$ MIME
MIME> NEW/NOEDIT x.x
MIME> ADD/BIN abc.zip
MIME> SAVE

Then send file x.x to your other mail system with

$ MAIL x.x "user@mail.domain"/SUBJ="Test"

Volker.

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Martin Vorlaender — Mon, 11 Apr 2005 09:17:25 GMT

There's the MIME utility to compose MIME mails, see http://h71000.www7.hp.com/doc/731FINAL/6489/6489pro_014.html#mice

HTH,
Martin

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Ken Robinson — Mon, 11 Apr 2005 09:58:47 GMT

I'm not sure where I found the following code:

$ set noon
$! set nover
$ ext = f$edi(f$par(p1,,,"type"),"lowercase")
$ fn = f$edi(f$par(p1,,,"name"),"lowercase")
$ if ext .eqs. ".com"
$ then
$ zip 'fn'.zip 'p1'
$ uuencode 'fn'.zip 'p1'_uu
$ else
$ uuencode 'p1' 'p1'_uu
$ endif
$ mail/sub="''p1'" 'p1'_uu "''p2'"

As you can see it uses uuencode to send files.

Ken

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Craig A Berry — Mon, 11 Apr 2005 13:18:56 GMT

In addition to MIME, there is another utility called MPACK that ought to do the trick. Personally I use Perl with the MIME::Lite module; read about it here:

http://www.akadia.com/services/email_attachments_using_perl.html

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Petr Spisek — Tue, 12 Apr 2005 02:31:52 GMT

Hi,
you can use classic VMS mail:
$ uuencode := $ tcpip$uuencode
$ uuencode myfile.zip myfile.dat
$ mail myfile.dat "email-adres@something.com" /subject="Mail with attachment"

Petr
(You could set $uudecode := $ tcpip$uudecode for decoding, but it doesn't needed for this)

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Robert Atkinson — Tue, 12 Apr 2005 03:07:47 GMT

Is there any way to get text into the message body as well?

Rob.

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Petr Spisek — Tue, 12 Apr 2005 03:12:19 GMT

Rob,
mail mytextfile.txt "email@addr.com"

Petr

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Volker Halle — Tue, 12 Apr 2005 03:14:21 GMT

Rob,

with MIME you can also put text into the message body before adding your attachements:

$ MIME
MIME> NEW/EDIT x.x
...
MIME> ADD/BIN abc.zip
MIME> SAVE

Volker.

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Robert Atkinson — Tue, 12 Apr 2005 03:55:12 GMT

Was thinking more along the lines of an automated procedure.

We wrote a VB program some time ago that is capable of taking a VMS created file and attaching it to an email using MS Oulook, then sending it off to a list of users.

This relies on Pathworks, Exchange and a PC logged on.

If I can transfer the whole thing onto the Alpha, but still have it run unassisted in batch, it will simplify the whole process.

Rob.

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Robert Atkinson — Tue, 12 Apr 2005 05:06:46 GMT

OK, think I've got something workable now.

I can dynamically create a simple header file like this :-

ALPHA_ROB$$ typ robmime.tmp
Mime-version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Message-ID:

This is a test message
----------------------

ALPHA_ROB$$

Then use a script like this to send the email :-

$ set veri
$ cop robmime.tmp robmail.tmp
$ mime == "$sys$system:mime.exe"
$ mime
open robmail.tmp /draft
add rob.zip
add [live.txt]test.txt
save
$ mail robmail.tmp "ratkinson@tbsltd.co.uk" /subject="test - ''F$time()'"
$ exit

One last thing. Any idea how I set the 'from' address, so that all emails come back to our Helpdesk or similar?

Rob.

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Martin Vorlaender — Tue, 12 Apr 2005 05:33:21 GMT

Rob,

TCP/IP Services has this TCPIP$SFF (Send from file) utility. If you have constructed a complete mail file (including the mail headers) you can use it to feed that mail to TCP/IP Services' SMTP. See http://h71000.www7.hp.com/doc/732FINAL/6525/6525pro_016.html#sff_sec

HTH,
Martin

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Vallentin, Manfred — Tue, 12 Apr 2005 09:06:34 GMT

Hello VOlker,
if i use the following Command, then i become this Error message:

MIME> new/edit
_Input Message File Name: test.txt
%MIME-E-ERROR, error: Error spawning edit command
status = 00038008
MIME

what is wrong

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Volker Halle — Tue, 12 Apr 2005 09:14:24 GMT

Manfred,

MIME tries to use a default editor.
Please check MIME> HELP NEW/EDIT for the various possibilities to define a default editor.

I normally have a global symbol ED*IT:==EDIT/TPU - if I delete this symbol, I get the same error message as you.

Volker.

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Lokesh_2 — Tue, 12 Apr 2005 09:26:34 GMT

Hi Manfred,

The /EDIT qualifier expects a quoted string. So you need not specify the
qualifier unless you want a specific editor or /NOEDIT session.

/EDIT="Editor_command_string-or-_file_here" ! for example:

MIME> NEW /EDIT="EDIT/TPU" !. . .is the proper usage

MIME> NEW /EDIT="EDIT/EDT" ! or this

HTH,
Thanks & regards,
Lokesh

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Eric vanSpronsen — Wed, 18 Apr 2007 15:37:42 GMT

Hello!

I had a similar challenge: a vms-program produced an xml-file which should be sent to an e-mail addresslist. Due to the size of the xml-file which would not be accepted by e-mail servers, I had to zip it first under OpenVMS 7.3, and send the compressed file as a bcc to each address using mime. The tcpip protocol stack: TCPware v 5.6.

The difficult parts where producing the mimefile within a batch and sending the mimemail with a differect return address e-mail alias via the tcpware stack using the SMTP_USER_HEADERS logical.

This forum provided pieces of the puzzle to finaly succeed!

$!
$ DATE = F$EXTRACT(0,11,F$TIME())
$ DAY = F$EXTRACT(0,2,DATE)
$ MONTH = F$EXTRACT(3,3,DATE)
$ YEAR = F$EXTRACT(9,2,DATE)
$ DATUM = YEAR+MONTH+DAY
$!
$! Running the program that produces the xml outputfile pricelist.xml:
$ run prog:xmlmaker.exe
$!
$! Zipping the output
$ zip :== "$prog:zip.exe"
$ ZipName = "output:pricelist_''DATUM'.zip"
$ delete 'ZipName';* /log
$ zip 'ZipName' pricelist.xml
$!
$! Make a mime file out of a standard mime-template containing the plain
$! Text of the mail.
$ MimeName = "output:pricelist_''DATUM'.mime"
$ copy output:pricelist_template.mime 'MimeName'
$ open /write BSTOUT output:mimecmd.com
$ write bstout "$ mime :== ""$sys$system:mime.exe"" "
$ write bstout "$ mime
$ write bstout "open /draft ''MimeName' "
$ write bstout "add /bin ''ZipName' "
$ write bstout "save "
$ write bstout "exit "
$ close bstout
$!
$! Now executing the mime-commandfileâ ¦
$!
$ @output:mimecmd.com
$!
$! The MimeFile is ready. The MimeHeader in the file should now be imported
$! In the TCPWARE logical TCPWARE_SMTP_USER_HEADERS
$!
$ open /read /error=einde BSTIN 'MimeName'
$ read /err=einde BSTIN User_Header1
$ If F$Locate("Mime",User_Header1).nes.F$Length(User_Header1)
$ then
$ read /err=einde BSTIN User_Header2
$ QuotePos = f$locate("""",User_Header2)
$ User_Header2a=F$extract(0,QuotePos,User_Header2)
$ User_Header2b=F$extract(QuotePos+1,F$length(User_header2),User_Header2)
$ QuotePos2 = f$locate("""",User_Header2b)
$ User_Header2c=F$extract(0,QuotePos2,User_Header2b)
$ read /err=einde BSTIN User_Header3
$ read /err=einde BSTIN User_Header4
$ define/nolog TCPWARE_SMTP_USER_HEADERS -
"''User_Header1' ", -
"''User_Header2a' ""''User_Header2c'"" ",-
"''User_Header3' ", -
"Full-Name: ""IT Department"" ",-
"Reply-To: ""IT@Hotmail.com"" ",-
"Sender: ""It Department"" ",-
"''User_Header4' "
$ else
$ Write sys$output "''MimeName' is not a Mime-file!"
$ goto erroreinde
$ endif
$!
$! Now use standard VMS mail to send the mimemail to all e-mail addresses
$! In the file receivers.dis
$!
$ MAIL 'MimeName' "@receivers.dis" /subject="Updated Pricelist"
$ goto einde
$!
$ERROREINDE:
$ Write sys$output "mimemail error!"
$EINDE:
$ close BSTIN

This is not the final version, in which a loop reads all the addresses in the receivers.dis file and mails the mimefile to each address, but that part is not intresting.

Thanks to all posters on this forum for providing the pieces of the puzzle!
Hope that this script will help others.

Regards,
Eric van Spronsen
The Netherlands

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

John Gillings — Thu, 19 Apr 2007 02:39:36 GMT

Manfred,

There's an OpenVMS utility called SMTP SFF (Send From File). Here's the description:

"SMTP SFF allows you to create a mail message in a file and send it to the SMTP mailer to be delivered with headers you specify. Using this feature, you can create automated tools that compose and send mail messages. It is also useful for forwarding non-text files (MIME), because it prevents the mailer from encapsulating the MIME and SMTP headers in the body of a new mail message. Thus, SMTP can function like the redirect command on your personal computer, which simply takes the message as is, without encapsulating it in another message, and sends it to the person you name. "

Use the MIME utility as described above to create the file, add SFF headers and send it from DCL using TCPIP$SYSTEM:TCPIP$SMTP_SFF.EXE, or from a program by calling TCPIP$SMTP_SEND_FROM_FILE (link against SYS$SHARE:TCPIP$SMTP_MAILSHR.EXE/SHARE).

For full details see docs in "HP TCP/IP Services for OpenVMS
User's Guide", Section 5.9

Re: Sending Mails from OpenVMS with Attachments (.ZIPS)

Oswald Knoppers_1 — Thu, 19 Apr 2007 03:25:37 GMT

You can also use the mailsymbiont from the freeware CD. It handles binary attachments and can also send text in the body in the mail.

Newest version can be found on:

http://oswald.knoppers.googlepages.com/mailsymhome