FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
Quizas este hilo del club te sea de ayuda.
__________________
Saludos, Peter Investment |
#3
|
|||
|
|||
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. |
#4
|
||||
|
||||
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 |
#5
|
|||
|
|||
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. |
|
|
|