FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Enviar correos con adjuntos (Indy 10)
Recuerdo a todos que uso BCB 6 e Indy 10.6.2.0
Sigo a vueltas con mis problemas con Indy 10. Si bien el problema que tenía de conexión para poder enviar los correos ya los he resuelto (creo) ahora tengo problemas a la hora de adjuntar ficheros al mensaje que creo, y el problema me lo da a la hora de compilar. Estoy tratando de usar este código de cunado utilizaba Indy 9: Código:
Correo->Subject = "Socio núm. " + FormatFloat("###,##0", Query->FieldByName("Socio")->AsInteger) + " - " + fCarSoc->QRLabel5->Caption; Correo->ClearBody(); Correo->MessageParts->Clear(); Correo->Recipients->Clear(); Correo->CCList->Clear(); Correo->BccList->Clear(); Correo->Recipients->Add(); Correo->Recipients->EMailAddresses = Query->FieldByName("Usuario")->AsString.Trim() + "@internautas.org"; if (!Query->FieldByName("Email")->AsString.IsEmpty()) { Correo->CCList->Add(); Correo->CCList->EMailAddresses = Query->FieldByName("Email")->AsString.Trim(); } Correo->BccList->Add(); Correo->BccList->EMailAddresses = Correo->From->Address; Correo->Body->Text = "El fichero adjunto " + ExtractFileName(cPdfFile) + " contiene información importante sobre tu cuenta como miembro de la " + cInstala[0] + ". Por " "favor: Leela con atención.\r\n\r\nAtentamente,\r\n\r\n\t" + cInstala[1] + "\r\n\tAdministración de Socios\r\n\t" + cInstala[0] + "\r\n\thttp://www.internautas.org"; Correo->MessageParts->Add(); TIdAttachment(Correo->MessageParts, cPdfFile); He estado mirando por foros y páginas y, al margen de que casi todo lo que he encontrado era para Delphi, no logro que me compile, ni bien ni mal:
TIdAttachment *Adjunto = new TIdAttachment(Correo) la creación de Adjunto no me da error pero entonces me da dos en la segunda línea: E2352 Cannot create instance of abstract class 'TIdAttachment' y E2353 Class 'TIdAttachment' is abstract because of 'TIdAttachment.OpenLoadStream()= 0'.¿Puede alguien ayudarme o darme una pista? |
#2
|
||||
|
||||
Yo en Delphi (Delphi7+Indy10) hago directamente esto (sin el Add); A ver si te sirve:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
Gracias Neftalí. Lo he probado tal cual lo pones y me da error al compilar; me temo que lo que en Delphi ponéis como .Create(... en Builder es ->Add(.... No obstante he encontrado en otra web un método que al menos al compilar no me da error:
Código:
TIdAttachment *Adjunto = new TIdAttachmentFile(Correo->MessageParts, cPdfFile); |
#4
|
||||
|
||||
Que tal Angel,
Te mando una funcion de como lo hago (solo que uso Indy 9.014), espero te ayude.
__________________
Ya tengo Firma! |
#5
|
||||
|
||||
SOLUCIONADO - Enviar correos con adjuntos (Indy 10)
Gracias por la respuesta juanelo. Ya logré solucionarlo. El código que me has mandado es, más o menos, como lo hacía yo con Indy 9; con Indy 10, como comentaba antes, es que hay que añadir un include en .h del formulario que no se hace de forma automática:
Código:
#include "IdAttachmentFile.hpp" Código:
TIdAttachment *Adjunto = new TIdAttachmentFile(IdMessage1->MessageParts, File); |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Obtener Correos de Exhange con Indy | ramflores | Internet | 3 | 02-06-2011 01:30:27 |
Ficheros adjuntos en Indy con IdMessage | RaulChemical | Internet | 2 | 05-03-2008 16:45:33 |
Problema con archivos adjuntos y cuerpo de mail en indy | razadi | Internet | 4 | 14-09-2006 09:56:37 |
Acuse de recibo en Correos con Indy | sostro | Internet | 4 | 08-03-2005 10:36:46 |
Problema al enviar Email con adjuntos usando el componente Idsmtp de las indy | Nbull | Internet | 2 | 22-11-2004 09:23:38 |
|