Código Delphi [-] ShellExec(frmInicial.Handle, 'open', 'mailto:'+Trim(edtMail0.Text)+ '?subject='+'Reporte de Servicio Diario'+ '&body='+Body+ CC+ '&Attach="'+Archivo+'"', '', '', SW_SHOW);
ShellExec(frmInicial.Handle, 'open', 'mailto:'+Trim(edtMail0.Text)+ '?subject='+'Reporte de Servicio Diario'+ '&body='+Body+ CC+ '&Attach="'+Archivo+'"', '', '', SW_SHOW);