PDA

Ver la Versión Completa : enviar documento por mail


walace_soy
22-10-2004, 10:55:56
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.

Investment
22-10-2004, 11:14:04
Quizas este hilo del club (http://www.clubdelphi.com/foros/showthread.php?t=14707&highlight=enviar+mail) te sea de ayuda.

walace_soy
22-10-2004, 11:32:56
no se si me serviria pero lo veo demasiado complicado jejeje.

necesito hacerlo con el word, me estoy dando cuenta.

adebonis
22-10-2004, 12:51:57
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

walace_soy
22-10-2004, 14:12:54
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.