|
Hola.
A ver si esto te es más fácil.
Rutina prra enviar correo mediante Microsoft Outlook:
function TfMensaje.EnviaEmilio(QueMail, QueArch, Texto: String): Boolean;
const
olMailItem = $00000000;
olByValue = $00000001;
var
OutlookApp,
OutlookMail : Variant;
begin
Result := True;
try
OutlookApp := GetActiveOleObject('OutLook.Application');
except
OutlookApp := CreateOleObject('OutLook.Application');
Result := False;
end;
OutlookMail := OutlookApp.CreateItem(olMailitem);
OutlookMail.Recipients.add(QueMail);
if Asunto > 0 then begin
LeeCampos;
OutlookMail.Body := Texto;
end;
if QueArch <> '' then
OutlookMail.Attachments.add(QueArch);
OutlookMail.Display;
OutlookApp := Unassigned;
except
Result := False;
end;
end;
Un saludo.
Adolfo de Bonis Mora
|