Email y/o sms con vfp
¿Hola, podría ayudarme?. Necesito una luz para el envío de emails y SMS con vfp. Para el email debo hacerlo usando la configuración de outlook de usuarios clientes de exchange. No estoy seguro si el SMS se pueda enviar así no más o si debo crear un wen service. Te agradezco me ayudes con algo de teoría y si se puede con ejemplos. Gracias
1 respuesta
Respuesta de piraton
1
Acá te mando un ejemplo que uso Yo para el envío de mails desde el outlook. Para ver más sobre el tema te recomiendo la web www.davphantom.net/.
Para enviar correo a celulares, podes ver el funcionamiento de este sistema muy bueno (Yo lo uso mucho) para envío de mails sms (www.tsmcasin.com.ar) y ademas es gratuito !
set date dmy
IF ! USED("C:\distribuidora\Bases\articulos")
USE C:\distribuidora\Bases\articulos SHARE
set filter to existe &&ALIAS ftempo
ENDIF
sele articulos
set order to descrip
report form C:\distribuidora\Bases\precios_articulos TO FILE c:\lista_precios.txt ASCII
xfecha=dtoc(date())
Do FindWindow
Local lcPath, hWindow, lcDelimiter, lcFiles, lcMsgSubj
lcPath = Sys(5) + Sys(2003)
lcDelimiter = ";"
lcFiles = "C:\lista_precios.txt"
*+ lcDelimiter + "C:\tabla.dbf"
lcMsgSubj = "Adjuntamos Lista de Precios Actualizada al "+xfecha
Handle = GetActiveWindow()
= MAPISendDocuments ( Handle, lcDelimiter, 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
Para enviar correo a celulares, podes ver el funcionamiento de este sistema muy bueno (Yo lo uso mucho) para envío de mails sms (www.tsmcasin.com.ar) y ademas es gratuito !
set date dmy
IF ! USED("C:\distribuidora\Bases\articulos")
USE C:\distribuidora\Bases\articulos SHARE
set filter to existe &&ALIAS ftempo
ENDIF
sele articulos
set order to descrip
report form C:\distribuidora\Bases\precios_articulos TO FILE c:\lista_precios.txt ASCII
xfecha=dtoc(date())
Do FindWindow
Local lcPath, hWindow, lcDelimiter, lcFiles, lcMsgSubj
lcPath = Sys(5) + Sys(2003)
lcDelimiter = ";"
lcFiles = "C:\lista_precios.txt"
*+ lcDelimiter + "C:\tabla.dbf"
lcMsgSubj = "Adjuntamos Lista de Precios Actualizada al "+xfecha
Handle = GetActiveWindow()
= MAPISendDocuments ( Handle, lcDelimiter, 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
