Hello [EMAIL PROTECTED]
On 05-Jul-01, you wrote:
> also an import for different mail/news readers would be very handy (but
> of course also hard to implement). so you would be able e.g. to import
> your complete YAM2 mail database or your newscoaster databes (or export
> both for these programs). i really like these features in porgrams like
> ms outlook.
I import my YAM addressbook regularly into MDII, as it is the one I keep
up, and I can import mail from YAM to MDII also. There are rexx scripts
for this:
/* $VER: MailImport.mdrx 3.1 (26 APR 98)
** by Charles Patterson <[EMAIL PROTECTED]>
** http://www.azstarnet.com/~midian/
**
** Description: Imports mail into Microdot-II from requester
**
** Requires: Microdot-II v0.198 (� 1997 by Oliver Wagner)
** rexxreqtools.library 37.95 (� 1992-94 Rafael D'Halleweyn)
**
** Instructions: Place in Microdot-II/Rexx path
** Adjust 'defpath' for your computer
** Run from Microdot-II ARexx menu
**
** --- Default path to import from: --- */
defpath = "hd0:YAM/"
OPTIONS RESULTS
IF ~SHOW('L','rexxreqtools.library') THEN
ADDLIB('rexxreqtools.library',0,-30,0)
filenames = RTFILEREQUEST(defpath,,'Select files','_Import','rtfi_flags =
freqf_multiselect|freqf_patgad rtfi_matchpat=~(.#?)',files)
*/ (this line is wrapped) */
IF files THEN
DO n = 1 to files.count
MAILIMPORT files.n
END
EXIT
And:
/* $VER: YamBookToMD2 0.42 (23.07.97) By Patrick Wullaert. */
/* Transfers YAM addressbook to MicroDotII */
/* Thanks to John Pullicino for testing ! :) */
/* Deoptimized with RexxOpt 1.8 */
yampath='hd0:Yam/'
mdpath='hd0:MicroDot/' /* Note the trailing slashes !*/
options results
addlib('rexxreqtools.library',0,-30,0)
if show('P',YAM) then
do
address YAM
INFO screen
pubscreen=YAM
end
errorlin=""
if ~open(yambook,yampath''.addressbook'',READ) then
do
errorlin='Wrong YAM path !'
end
if ~open(mdbook,mdpath''MicroDot.Addressbook'',WRITE) then
do
errorlin=errorlin' Wrong MD2 path !'
end
if errorlin~=="" then
do
errorlin=errorlin||'0A'x||'Please re-specify !'
rtezrequest(errorlin,,,'rt_pubscrname='||pubscreen)
exit
end
writeln(mdbook,'MicroDot - Bookmarks.mcc')
close(mdbook)
open(mdbook,mdpath''MicroDot.Addressbook'',APPEND)
readln(yambook)
do until eof(yambook)
lijn=readln(yambook)
if pos('@GROUP',lijn)>0 then
do
grp=substr(lijn,8)
writeln(mdbook,'�'||grp)
end
if pos('@USER',lijn)>0 then
do
adres=readln(yambook)
user=readln(yambook)
writeln(mdbook,user'|'adres)
end
if pos('@ENDGROUP',lijn)>0 then
do
writeln(mdbook,'�')
end
end
close(mdbook)
close(yambook)
rtezrequest('Your YAM addresses have been'||'0a'x||'copied to the MD2
addressbook !',,,'rt_pubscrname='||pubscreen)
exit
John's may be on the YAM.ch site, and I think Charles may still be on his
website, though both have left the Amiga community, hence I included
them here, as they are relatively short. John's script was the only way
I could get my address book back after I installed OS 3.9, BTW. Note the
wrapped line in the first script.
Regards
--
Mike Leavitt [EMAIL PROTECTED] + team Amiga +
__________________________________________________________________
MicroDot-II Mailing List - http://www.vapor.com/md2/
MicroDot-II FAQ: http://faq.vapor.com/md2/
Listserver Help: mailto:[EMAIL PROTECTED]?Subject=HELP
Unsubscribe....: mailto:[EMAIL PROTECTED]?Subject=UNSUBSCRIBE
