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.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.