home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
TE2_134T
/
te2inst.003
/
MCIMail.scr
< prev
next >
Wrap
Text File
|
1997-07-03
|
1KB
|
47 lines
;
; TE/2 Script Language
; Copyright 1990-94, Oberon Software, Mankato, MN
;
; TE/2 Script Language file for accessing your MCI MailBox
;
; ---------------------------------------------------------------------
;
; NOTE: This script illustrates use of the WATCHFOR construct in the
; TE/2 Script Language.
;
; ---------------------------------------------------------------------
string myID = "my_id"
string myPW = "password"
integer mail = TRUE
integer wtch
program
if !connected
dial("MCI")
endif
if connected
transmit("^M")
if waitfor("User name", 60)
wtch = watchfor("There are no messages waiting in your INBOX", "mail = FALSE")
transmit("%s^M", myID)
waitfor("Password", 10)
transmit("%s^M", myPW)
waitfor("Command:", 30)
cancelwatch(wtch)
if !mail
if GetYesNo("There is no mail waiting.", "Do you want to exit MCI Mail?", TRUE)
transmit("exit^M")
waitfor("by remote source", 30)
hangup(FALSE)
endif
endif
else
hangup(TRUE)
endif
endif
end