Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 6.ddi / SAMPLES / ATTACH / ATTACH.APP (.txt) next >

Wrap

MS Visual FoxPro App | 1993-09-01 | 14.4 KB | 396 lines

TALKz coders attach.spr SET TALK &oldtalk mailsessionf LOGON LOGON SET TALK &oldtalk SET TALK &oldtalk LOGOFF mapiMesg mapiFile mapiRecip mapiOrig SET TALK &oldtalk DEVPICK soBTN OLDTALK RETVAL FROMNAMES TONAMES osNAME CODERS DEVNAMES DEVNAMESVAATTACH todSPR ISLOGON MAILSESSIOMAPILIB IOSENDFILES GETFILES MAPIMESG OMAPIFILE mMAPIRECIP MAPIORIG FILES FILES GETNAME soCODERS ADDRESS DEVNAMES DEVPICK osFILENAME FILES FROMNAMES FROMPICK ATONAMES odTOPICK FROMPICK oFROMNAMES TONAMES newcursor mapiMesg newcursor mapiFile newcursor mapiRecip filelist Verifying valid MS MAIL address ... F filelist mapimesg Project Files IPC.MSFOXPRO.UPDATER getdate filelistQ mapifile sendmail mapiMesg filelist mapiFile MPINFOFF 's file(s) were sent successfully. MAPILIB oCODERS DEVNAMES DEVPICK CHECKID osMAPIRECIP TONAMES NAMES RETVAL AMAILSESSIOFILELIST safez newcursor mapiFile newfiles newmesgs Searching for new files... getnextnote IPC.MSFOXPRO.UPDATER newmesgs newfiles newfilesQ ms sans serif The following new files were found: mpalert Do you want to permanently delete these files from mail server? deletenote MPINFO No files found SET SAFETY &oldsafe OLDMESSID MESSAGEID OLDSAFE MAPILIB NEWMESGS MAILSESSIOMAPIMESG FILECOUNT MAPIFILE NEWFILES FILENAME OPATHNAME resolve mpalert The name selected (F ) does not match the one in the database ( ). Use this name (Yes) or try again (No)? VALIDID MAPILIB MAILSESSIOCODERS ADDRESS IOMAPIRECIP DEVNAMESVA MOVEBTNVAL SENDFILES GETFILES CHECKID TALKz COMPATIBLEz READBORDERz _qiv0ldl1l MS Sans Serif Microsoft FoxPro _qiv0ldl1l MS Sans Serif @*VT \<Mail Files;\<Receive Files;\<Exit MS Sans Serif Developer: MS Sans Serif @ 8.385,9.800 GET frompick PICTURE "@&N" FROM fromnames SIZE 8.077,26.200 DEFAULT 1 FONT "MS Sans Serif", 8 @ 8.385,65.000 GET topick PICTURE "@&N" FROM tonames SIZE 8.077,26.200 DEFAULT 1 FONT "MS Sans Serif", 8 MS Sans Serif @*VN \<Select --> All Files: MS Sans Serif Files To Mail: MS Sans Serif Project File Updater MS Sans Serif Sends files in list box to other developers via MAPI MS Sans Serif Polls MS Mail server for any files sent by others MS Sans Serif Exit screen without doing anything MS Sans Serif _qiv0ldl1l SET READBORDER &rborder CURRAREA TALKSTAT COMPSTAT RBORDER _QIV0LDL1LBTN 0LDL1LDEVPICK DEVNAMES DEVNAMESVAMOVEBTN MOVEBTNVAL0 RETURN &fname() FNAME LIBRARYz Locate file F LIBRARYz Operation cancelled or incorrect library selected. LIBNAME foxmapi.fll HSESSION RETVAL SETLIB MPLOGON MAPIERR RETVAL MPLOGOFF MAPIERR foxmapi.fll RETVAL SETLIB MPSENDDOCSMAPIERR foxmapi.fll mapiMesg8 mapiRecip8 mapiFile8 HSESSION MESSCURS RECICURS SFILECURS RETVAL SETLIB SSION MESSID SCURS ICURS ECURS MPSAVEMAILMAPIERR foxmapi.fll mapiRecip8 SETLIB SCURS HSESSION SRECICURS RETVAL SSION ICURS MPRESOLVE MAPIERR foxmapi.fll mapiRecip8 FoxPro Mail SETLIB HSESSION HLEVEL SRECICURS RETVAL SSION ICURS NRECIPS MPADDRESS MAPIERR mapiMesg mapiOrig mapiRecip mapiFile HSESSION MESSID MESPOS SRETVAL MTYPE SSION MPFINDNEXTMPREADMAILMAPIERR HSESSION MESSID OLDMESS SRETVAL SSION MPFINDNEXTMPDELETE MAPIERR foxmapi.fll mapiMesg8 mapiOrig8 mapiRecip8 mapiFile8 SETLIB HSESSION SMESSID MESSCURS RECICURS TFILECURS ORIGCURS RETVAL EXTP1 SSION SCURS GCURS ICURS ECURS MPREADMAILMAPIERR foxmapi.fll mapiMesg8 mapiRecip8 mapiFile8 SETLIB HSESSION MESSCURS SRECICURS FILECURS MPFLAGS TRETVAL SSION SCURS ICURS ECURS LMPSENDMAILMAPIERR foxmapi.fll SETLIB SSION HSESSION SRETVAL SSION MPDELETE TMAPIERR foxmapi.fll mapiRecip8 SETLIB HSESSION RETVAL SRECICURS SSION ICURS TMPDETAILS MAPIERR foxmapi.fll MAPIMESG MAPIFILE MAPIRECIP GETALIAS SETLIB ALIAS RETVAL MPCURSOR FOXMAPI.HLP Locate FOXMAPI.HLP FOXMAPI.HLP RUN /N winhelp &getmapihelp GETMAPIHEL foxtools.fll Microsoft FoxPro (Y/N) WAITVAR ELSETLIB HELMSGBOX ALIAS foxtools.fll Microsoft FoxPro WAITVAR ELSETLIB HELMSGBOX ALIAS datez centuryz HOURSz SET DATE TO &olddate SET CENTURY &oldcentury SET HOURS TO &oldhours GETDATE ELOLDDATE ELOLDCENTURYOLDHOURS YSETLIB LOGON LOGOFF SENDNOTE SAVENOTE RESOLVE ADDBOOK GETNEXTNOT DELETEALL READNOTE SENDMAIL DELETENOTE DETAILS NEWCURSOR MAILHELP MPALERT MPINFO GETDATE foxtools.fll Mail Failure Disk Is Full Insufficient Memory Access Denied Too Many Sessions Too Many Files Too Many Recipients Attachment Not Found Attachment Open Failure Attachment Write Failure Unknown Recipient Bad Recipient No Messges Invalid Message Text Too Large Invalid Session Type Not Supported Ambiguous Recipient Message In Use Network Failure Invaid Edit Fields Invalid Recipients Not Supported GETCODE **ERRCODE **ALRTWIND *SETLIB *DOALRT Microsoft FoxPro GETMESS **ALRTWIND *MSGBOX *DOALRT ATTACH.PRG c:\tmp\ ATTACH.FXP ATTACH.SPR ATTACH.SPX MAPILIB.PRG MAPILIB.FXP MAPIERR.PRG MAPIERR.FXP