!S &SMPAS,SCR ! 100 !O SMPAS,OBJ ! 200 ! ! 300 !L TERM$,E ! 400 !R CED ! 500 # ! 600 þINNET' ! 700 4þC1AS' ! 800 ! ! 900 LENGTH 60 & LOCAL BLANC$ ! 1000 LENGTH 132 & LOCAL A$ ! 1010 LENGTH 80 & LOCAL ENREG$ ! 1020 LENGTH 8 & LOCAL FILE1$ ! 1030 LENGTH 40 & LOCAL PATH$ ! 1040 LENGTH 4.0 & LOCAL TOT ! 1050 ! ! 1100 FMFTEX: FORMAT ENREG$ ! 1200 # ! 20000 ’þNET = 1, C1AS = 2, FTEX = 3 ! 20100 SET LEM = 9 ! 20200 # ! 20300 CLEAR ! 20400 ESCAPESUB 9000 ! 20500 ! ! 20510 BLANC$ = STRING(" ",60) ! 20520 \þ ! 20600 œþLOSE (INNET) & OPEN (INNET) 'INNET' ! 20700 Œ þLOSE (C1AS) & OPEN (C1AS) 'C1AS' ! 20800 ê þ ! 21000 H þNQUIRE (C1AS,FMC1AS),EXCP=1005 ! 21100 ¦ þF SHPTO$ EQ ' ' THEN GOTO 1000 ! 21200 þF CEMAIL$ EQ BLANC$ THEN GOTO 1000 ! 21210 bþOTO 1010 ! 21300 Àþ ! 21400 þF EXCP EQ 33 THEN AGAIN ! 21500 |þOTO 9000 ! 21600 Úþ ! 21700 8 þNQUIRE (INNET,FMINNET) KEY=CNBR$,EXCP=1015 ! 21800 – þOTO 1020 ! 21900 ô þ ! 22000 RþF EXCP EQ 33 THEN AGAIN ! 22100 °þOTO 1000 ! 22200 þ ! 22300 lþLOSE (MAIL) & OPEN (MAIL) "LEM" ! 22400 ÊþAIL$ = 'normand@40@standarddoors.com' ! 22410 (þAIL$ = 'it@40@standarddoors.com' ! 22420 †þF CLANG$ EQ 'PR' THEN GOSUB ANG000 ! 22500 äþLOSE (MAIL) & OPEN (MAIL) "LEM" ! 22502 BþF CLANG$ NE 'PR' THEN GOSUB FRA000 ! 22510 þTOT + 1 & PRINT (0) (WC);TOT ! 22520 þþOTO 1000 ! 22600 . þ ! 40000 ºþ*************************************************************************! 40100 þ *! 40200 vþE PREPARE UN EMAIL FRANCAIS *! 40300 Ôþ *! 40400 2þ*************************************************************************! 40500 ! ! 20720 Æ3þ(0) (wc);'cici' & INPUT (0) '' ! 41972 PRINT (LEM) (DOMAIN='lassonde.com') ! 42000 PRINT (LEM) (FROM='yves.duperron@40@lassonde.com') ! 42100 PRINT (LEM) (TO='yves.duperron@40@lassonde.com') ! 42200 PRINT (LEM) (SUBJECT='test de transfert') ! 42300 A$ = "Cher client," ! 42400 PRINT (LEM) (TEXT=A$) ! 42500 A$ = ' ' ! 42600 PRINT (LEM) (TEXT=A$) ! 42700 A$ = "Veuillez s'il vous plait consulter la page ci-jointe pour les "+_! 42800 "explications." ! 42810 PRINT (LEM) (TEXT=A$) ! 42900 A$ = ' ' ! 42910 PRINT (LEM) (TEXT=A$) ! 42911 ð1þ A$ = "Nom d'utilisateur : " + USERID$ ! 42912 pþ PRINT (LEM) (TEXT=A$) ! 42914 Îþ A$ = "Mot de passe : " + MOTPAS$ ! 42916 ,þ PRINT (LEM) (TEXT=A$) ! 42918 A$ = ' ' ! 42928 PRINT (LEM) (TEXT=A$) ! 42938 A$ = "Merci" ! 43000 PRINT (LEM) (TEXT=A$) ! 43100 PATH$ = 'C:\PDF\ORDER-54.PDF' ! 43110 PRINT (LEM) (ATTACHMENT=PATH$) ! 43200 PRINT (LEM) (LOG='','','ERASE') ! 46300 CLOSE (LEM) ! 46400 RETURN ! 46500 þ ! 80000 6þ ! 80100 ”þ*************************************************************************! 80200 òþ *! 80300 P þE PREPARE UN EMAIL FRANCAIS *! 80400 ® þ *! 80500 !þ*************************************************************************! 80600 j!þ ! 80700 È!þ: PRINT (MAIL) (SERVER='SBC@5F@FILES MAIL') ! 80800 &"þ PRINT (MAIL) (DOMAIN='standarddoors') ! 80900 „"þ PRINT (MAIL) (FROM='wanda@40@standarddoors.com') ! 81000 â"þ PRINT (MAIL) (TO=CEMAIL$) ! 81100 @#þ PRINT (MAIL) (SUBJECT='Login ID & password') ! 81200 ž#þ A$ = "Dear customer," ! 81210 ü#þ PRINT (MAIL) (TEXT=A$) ! 81220 Z$þ A$ = ' ' ! 81230 ¸$þ PRINT (MAIL) (TEXT=A$) ! 81240 %þ A$ = "Please open the attached file for explanations. " ! 81250 t%þ PRINT (MAIL) (TEXT=A$) ! 81270 Ò%þ A$ = ' ' ! 81280 0&þ PRINT (MAIL) (TEXT=A$) ! 81290 Ž&þ A$ = "Login ID : " + USERID$ ! 81300 ì&þ PRINT (MAIL) (TEXT=A$) ! 81310 J'þ A$ = "Password : " + MOTPAS$ ! 81320 ¨'þ PRINT (MAIL) (TEXT=A$) ! 81330 (þ A$ = ' ' ! 81340 d(þ PRINT (MAIL) (TEXT=A$) ! 81350 Â(þ A$ = "Thank you" ! 81360 )þ PRINT (MAIL) (TEXT=A$) ! 81370 ~)þ PATH$ = 'C:\COMETRAM\LETTREANGLAISE.PDF' ! 81380 Ü)þ PRINT (MAIL) (ATTACHMENT=PATH$) ! 81390 :*þ PRINT (MAIL) (LOG='','') ! 82600 ˜*þ CLOSE (MAIL) ! 82700 ö*þ RETURN ! 82900 T+þ ! 83000 ²+þ*************************************************************************! 83100 ,þ *! 83200 n,þE PARTIE CREER UN FICHIER TXT. *! 83300 Ì,þ *! 83400 *-þ*************************************************************************! 83500 ˆ-þ ! 83600 æ-þILE1$ = 'F' + SUB(CNBR$,1,5) ! 83700 D.þLOSE (FTEX) ! 83800 ¢.þRASE FILE1$,DIR='RAM',EXCP=2005 ! 83900 /þREATE FILE1$,80,T,DIR='RAM' ! 84000 ^/þPEN (FTEX) FILE1$,DIR='RAM' ! 84100 ¼/þETURN ! 84200 0þ ! 84300 x0þ*************************************************************************! 84400 Ö0þ *! 84500 41þE PARTIE ERIT UNE FICHE DANS LE FICHIER TEXTE *! 84600 Lþ$ = 'MAIL-ROU2 MAIL' ! 20730 ! ! 20530 2000 PRINT (0) (WC);'EXCP=';EXCP ! 46700 ! ! 46600 PRINT (LEM) (SERVER='MAIL-ROU2 MAIL') ! 41962 ’1þ(0) (wc);'pascal' & input (0) '' ! 20820 CLOSE (LEM) & OPEN (LEM) 'LEM' ! 20620 # ! 90000 !*******************************************************************************! 90100 !* *! 90200 !* FIN DE PROGRAMME *! 90300 !* *! 90400 !*******************************************************************************! 90500 ! ! 90600 9000 CLOSE ! 90700 OPEN (0) TERM$ ! 90800 RUN '*MONITOR' ! 90900 END ! 91000