TIP: Click on subject to list as thread! ANSI
echo: qmodem_user
to: LYLE TAYLOR
from: TONY ANTKOWIAK
date: 1995-11-25 02:46:00
subject: Re: delete after send

 -=> Captain, Look at this...Lyle Taylor Speaking about delete after send <=-
 LT> Is there a way to automatically delete a mail pkt after a successful
 LT> ul? If so, how?
Lyle,
 Here is a copy of my Script file that might help you out,
You will have to edit it to fit your needs, also it is set up to do
as many passes as it takes to get ALL the mail that I have in all
the conferences that I like to read!!!
Have Fun!!!
                             Tony Antkowiak
                        Co-SysOp Right Choice BBS
                       Fidonet  Address  1:230/151
                Internet Address  tony.antkowiak@blade.net
---------------cut and delete all including this line and above-----
TurnON   8_BIT                       ; These Are Our Terminal Settings
TurnOFF  LINEFEED                    ; For This Session
TurnOFF  XON/XOFF
TurnOFF  NOISE
TurnOFF  MUSIC                       ; This script is used for logging
TurnON   SCROLL                      ; on to a WILDCAT 4.x system
TurnOFF  PRINT                       ; edit it to suit your needs
TurnOFF  SPLIT
TurnON   STATUSLN
TurnOFF  DOORWAY
TimeOut  45                          ; Set Waitfor for 45 seconds
When     "PROTOCOL MENU" "Z^M"       ; Select Default Protocol Prompt
When     "twice for the BBS:" "^[^["
Waitfor  "What is your first name"   ; Wait for WC to prompt for your name
Delay    100
Send     "!$USERID $PASSWORD^M"      ; Send UserID from the Dialing Entry
;WaitFor  "Password?"                ; Wait For Password Prompt
;Delay    100
;Send     "$PASSWORD^M"              ; Send Password From Dialing Entry
Waitfor  "WCMAIL"                    ; TomCat!'s Main Menu
DOWNLOADAGAIN:
IF $GETMAIL DOWNLOADMAIL             ; If Downloading Qwk packet
DOWNFINISHED:                        ; Label For DownFinished
UPLOADAGAIN:
IF $SENDMAIL UPLOADMAIL              ; If Send Rep Packet
UPSUCCESS:                           ; Label For Upload Success
TimeOut 30 EXITSYSTEM                ; Goto EXITSYSTEM Upon Timeout
DELETEF $REPPATH$PACKET.REP          ; Delete .REP Packet
When     "Auto Logoff" "H^M"
Waitfor  "WCMAIL"                    ; Wait For TomCat Menu
Delay    100
Send     "G^M"                       ; Send Hangup Command
EXITSYSTEM:
Exit                                 ; Script Is Done.
UPLOADMAIL:                          ; Label For Upload Routine
Timeout  30                          ; Reset Timeout Value
Waitfor  "WCMAIL"                    ; TomCat!'s Main Menu
Delay    100
Send     "U^M"                       ; Tell It To [U]pload Mail
Delay 500                            ; Pause For 1/2 Second
UPLOAD Z $REPPATH$PACKET.REP         ; Upload .REP Packet
IF $SUCCESS UPSUCCESS                ; If Success Then Goto UPSUCCESS
GOTO UPLOADAGAIN                     ; If Not Loop Back Around
DOWNLOADMAIL:                        ; Download QWK Routine
Timeout  500                         ; Timeout Value For Getting Messages
When     "Nothing" DOWNFINISHED
Send     "^M"
Waitfor  "WCMAIL"                    ; TomCat!'s Main Menu
Delay    100
Send     "D^M"                       ; Tell It To [D]ownload Mail
Waitfor  "this packet"               ; String To Start Download
Delay    100
Send     "Y^M"                       ; Send Yes To Download Packet
Waitfor  "Start Your"                ;
DOWNLOAD Z $QWKPATH                  ; Download The .QWK Packet
GOTO DOWNLOADAGAIN                   ; If Not Try
... New Mail not found.  Start whine-pout sequence? (Y/N)
___ Blue Wave/QWK v2.12
--- QScan/WC v1.18b / 01-0614
---------------
* Origin: RIGHT CHOICE BBS * LAKE STATION,IN * 219-962-2132 (1:230/151)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.