🚀 go-pugleaf

Hallo,

fuer diejenigen die vielleicht AWeb haben und damit auch die mailto:
Funktion mit UMS nutzen wollen ist hier mal ein kleines ARexx-Skript
dafuer. Die Installation erstreckt sich auf kopieren nach REXX: und
den unten naeher beschriebenen Eintragungen.

Die Mail wird mit diesem Skript nur in die UMS Messagebase
geschrieben.

/* $VER: awebmailtoums.rexx 0.1 (12.04.96)        */
/* by Lothar Bartsch (lbartsch@anjou.hb.provi.de) */
/*                                                */
/* This script use mailto: with AWeb and UMS      */
/*                                                */
/* Usage:                                         */
/* Select AWeb - Change Settings -                */
/*        Network 3: External programs            */
/* Insert at mailto:                              */
/*        Command   sys:rexxc/rx                  */
/*      Arguments   awebmailtoums.rexx %s         */
/*                                                */
/* Change name,password and server in this skript */

options results

CALL AddLib("rexxreqtools.library", 0, -30, 0)
CALL AddLib("ums.library", 0, -210, 11)
CALL UMSInitConsts()

subj = rtgetstring(,"Insert a subject for this message:","AWebMailtoUMS")
IF rtresult = 0 THEN EXIT

addr = ARG(1)
user = Word(Translate(addr,' ','@'),1)

/* Insert your configs here */

name = ""
password = ""
server = ""

SHELL command 'ed sticky t:temp'

IF ~EXISTS('t:temp') THEN EXIT

/* Login */

account = UMSLogin(name,password,server)
IF account = 0 THEN DO
  EXIT 10
END

/* Write the message */

DROP msg.
msg.UMSCODE_MsgText_FILE = 't:temp'
msg.UMSCODE_ToAddr       = addr
msg.UMSCODE_ToName       = user
msg.UMSCODE_Subject      = subj

num = UMSWriteMsg(account, msg.)

/* Logout */

IF account ~= 0 THEN DO
  CALL UMSLogout(account)
  account = 0
END

SHELL command 'delete t:temp >nil:'

EXIT


-- 
Lothar Bartsch                              lbartsch@anjou.hb.provi.de
                      http://home.pages.de/~lbartsch/