stesvet1
Technical User
- Sep 23, 2006
- 22
I needed any prg-example how send in FPW2.6a e-mail (I have at home Window XP Prof).
Note: I have this prg-file but it does'nt work - it asked for 6 dll-files and then writes eror: c:\windows\system\mapi.dll is an invalid library or path name.
SET LIBRARY TO SYS(2004) + "FOXTOOLS.FLL" ADDITIVE
GetSysDir = RegFn("GetSystemDirectory","@CI","I")
bigstr = REPLICATE(chr(0),144) &&creates a big string
retlen = CallFn(GetSysDir, @bigstr,144)
winsys = LEFT(bigstr,retlen)
SendMail=RegFn("MAPISendDocuments","L@C@C@CL", ;
"L", winsys+"\MAPI.DLL")
T1=";"
T2="C:\SV\TP.HTM;"
T3=""
X=CallFn(SendMail,0,@T1,@T2,@T3,0)
RELEASE LIBRARY SYS(2004) + "FOXTOOLS.FLL"
*** I copied into WINDOWS/SYSTEM mapi.dll from C:\FPW26\WRKEXT\LIBS\MAPI.DLL
Note: I have this prg-file but it does'nt work - it asked for 6 dll-files and then writes eror: c:\windows\system\mapi.dll is an invalid library or path name.
SET LIBRARY TO SYS(2004) + "FOXTOOLS.FLL" ADDITIVE
GetSysDir = RegFn("GetSystemDirectory","@CI","I")
bigstr = REPLICATE(chr(0),144) &&creates a big string
retlen = CallFn(GetSysDir, @bigstr,144)
winsys = LEFT(bigstr,retlen)
SendMail=RegFn("MAPISendDocuments","L@C@C@CL", ;
"L", winsys+"\MAPI.DLL")
T1=";"
T2="C:\SV\TP.HTM;"
T3=""
X=CallFn(SendMail,0,@T1,@T2,@T3,0)
RELEASE LIBRARY SYS(2004) + "FOXTOOLS.FLL"
*** I copied into WINDOWS/SYSTEM mapi.dll from C:\FPW26\WRKEXT\LIBS\MAPI.DLL