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. |
La franja horaria es GMT +2. Ahora son las 20:37:30. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi