ayuda envio correo please
Publicado por renegado (49 intervenciones) el 18/10/2005 16:24:11
saludos y un feliz dia pra todos
necesito enviar correo utilizando el correo predeterminado que tenga instalada la maquina, he encontrado este trozo de codigo, pero cual es el parametro para enviar la direccion de correo para donde va?? a demas como hago para que no me saque la pantalla donde se escribe los datos (enviar)
Do FindWindow
Local lcPath, hWindow, lcDelimiter, lcFiles, lcMsgSubj
lcPath = Sys(5) + Sys(2003)
lcDelimiter = ";"
lcFiles = "C:carta.doc" + lcDelimiter + "C:Crearcia01.txt"
lcMsgSubj = "Archivos adjuntos: Archivo1.exe, tabla.dbf"
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
de antemnao muchas gracias por su colaboracion
att
rene de j castañeda zapata
necesito enviar correo utilizando el correo predeterminado que tenga instalada la maquina, he encontrado este trozo de codigo, pero cual es el parametro para enviar la direccion de correo para donde va?? a demas como hago para que no me saque la pantalla donde se escribe los datos (enviar)
Do FindWindow
Local lcPath, hWindow, lcDelimiter, lcFiles, lcMsgSubj
lcPath = Sys(5) + Sys(2003)
lcDelimiter = ";"
lcFiles = "C:carta.doc" + lcDelimiter + "C:Crearcia01.txt"
lcMsgSubj = "Archivos adjuntos: Archivo1.exe, tabla.dbf"
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
de antemnao muchas gracias por su colaboracion
att
rene de j castañeda zapata
Valora esta pregunta
0