Aug 22
Enviar email con el programa de correo predeterminado
Visual Fox Pro, Trucos, Funciones API Agregar ComentariosEste es un ejemplo de como utilizar la función MAPISendDocuments para enviar emails.
Do FindWindow
Local lcPath, hWindow, lcDelimiter, lcFiles, lcMsgSubj
lcPath = Sys(5)
+ Sys(2003)
cDelimi = ";"
lcFiles =
"C:\Archivo1.exe" +
cDelimi +
"C:\tabla.dbf"
lcMsgSubj =
"Archivos adjuntos: Archivo1.exe, tabla.dbf"
nHwd = GetActiveWindow()
=MAPISendDocuments(nHwd, cDelimi, lcFiles, lcMsgSubj,0)
Set Default To (lcPath)
Procedure FindWindow
Declare Integer
GetActiveWindow
In
user32
Declare Integer
MAPISendDocuments
In
mapi32;
INTEGER
ulUIParam,
String
lpszDelimChar,;
STRING
lpszFullPaths,
String
lpszFileNames,;
INTEGER
ulReserved
EndProc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
