Ver Mensaje Individual
  #5  
Antiguo 11-08-2010
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.492
Reputación: 21
MAXIUM Va camino a la fama
OK, la cosa quedo así y funciona de momento:

En Delphi se copia en el portapapeles la dirección de correo (club@delphi.com) se crea el documento, se llena si es necesario, se muestra en pantalla y se llama a la Macro "Correo" (todo esto dentro de Delphi)

Código:
Sub Correo()
'
' Correo Macro
' Macro grabada el 10/08/2010 por MAXIUM
    
 Dim WshShell
 Set WshShell = CreateObject("WScript.Shell")

 WshShell.SendKeys "%avc"
 WshShell.SendKeys "^v"
    
End Sub
El documento queda listo para ser editado y enviado por el usuario
Responder Con Cita