nincillo
25-10-2017, 10:04:48
Muy buenas.
Estoy lanzando un programa hecho en delphi desde un .vbs para enviar correos electrónicos.
Lo lanzo de esta manera:
Programa = PathAux & "\LanSmtp.exe"
Set WS = CreateObject("WScript.Shell")
MsgBox WS.Run(Programa & " " & Parametros, 1, True)
Mi intención era poder saber el resultado del envío desde el programa en que lo llamo.
O sea, si tengo manera en delphi de devolver un valor con el resultado de la ejecución del programa. NO si el programa se ejecutó o no, sino saber concretamente si el envío se pudo realizar o por contrario hubo algún tipo de error.
O no tengo más remedio que tirar de un fichero auxiliar tipo log donde almacenar el resultado.
Ahora mismo siempre me devuelve 0, ya que el programa se ejecuta. Pero no me entero si hubo o no error en la entrega.
Gracias y un saludo.
Estoy lanzando un programa hecho en delphi desde un .vbs para enviar correos electrónicos.
Lo lanzo de esta manera:
Programa = PathAux & "\LanSmtp.exe"
Set WS = CreateObject("WScript.Shell")
MsgBox WS.Run(Programa & " " & Parametros, 1, True)
Mi intención era poder saber el resultado del envío desde el programa en que lo llamo.
O sea, si tengo manera en delphi de devolver un valor con el resultado de la ejecución del programa. NO si el programa se ejecutó o no, sino saber concretamente si el envío se pudo realizar o por contrario hubo algún tipo de error.
O no tengo más remedio que tirar de un fichero auxiliar tipo log donde almacenar el resultado.
Ahora mismo siempre me devuelve 0, ya que el programa se ejecuta. Pero no me entero si hubo o no error en la entrega.
Gracias y un saludo.