enviar documento por mail
 

Hola gente, nuevo reto.

Alguien sabe como puedo enviar un documento de word por mail.

Tengo un objeto TWordApplication.

Quiero hacer una factura y una vez este hecha enviarla por mail a una dirección que tengo.

Alguien lo ha hecho antes con solo este objeto?

Si alguien lo ha hecho con otros objetos tambien me vale.

Gracias.

Quizas este hilo del club te sea de ayuda.

no se si me serviria
 

no se si me serviria pero lo veo demasiado complicado jejeje.

necesito hacerlo con el word, me estoy dando cuenta.

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

gracias pero....
 

Hola gracias, he cogido tu función la he tocado un poco y ahora me va de maravilla.

por cierto sabes como enviar una cita por el outlook??? es que es lo siguiente que tengo que hacer y veo la cosa chunga.