Tema: Enviar email usando OUTLOOK 2003
Ver Mensaje Individual
  #14  
Antiguo 06-08-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
  
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 23
ContraVeneno Va por buen camino
 
Código Delphi [-]
  ShellExec(frmInicial.Handle,
  'open',
  'mailto:'+Trim(edtMail0.Text)+
  '?subject='+'Reporte de Servicio Diario'+
  '&body='+Body+
  CC+
  '&Attach="'+Archivo+'"',
  '',
  '',
  SW_SHOW);

STFW, RTFM
__________________

Responder Con Cita