FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Adjuntos en un correo
Buenos días a todos. Tengo un problema con el envío de correos desde una aplicación hecha en BCB 6 con la inclusión de adjuntos. Estoy usando este código para montar el mensaje:
Código:
fMenu->MenCor->MessageParts->Clear(); fMenu->MenCor->Recipients->Clear(); fMenu->MenCor->CCList->Clear(); fMenu->MenCor->BccList->Clear(); fMenu->MenCor->ClearBody(); fMenu->MenCor->Subject = fDatCor->Asunto->Text; fMenu->MenCor->Body->Text = fDatCor->Texto->Text; if (fDatCor->Firma->Lines->Count > 0) fMenu->MenCor->Body->Text = fMenu->MenCor->Body->Text + "\n-----" + fDatCor->Firma->Text; if (fDatCor->Adjuntos->Items->Count > 0) for (nItem = 0; nItem < fDatCor->Adjuntos->Items->Count; nItem ++) if (FileExists(fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0])) TIdAttachment *Adjunto = new TIdAttachmentFile(fMenu->MenCor->MessageParts, fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0]); |
#2
|
||||
|
||||
Después de dare muchas vueltas, encontré la solución. Dejo aquí el código por si a alguien le viene bien.
Código:
TIdAttachment *Adjunto; // Añdo esta línea fMenu->MenCor->MessageParts->Clear(); fMenu->MenCor->Recipients->Clear(); fMenu->MenCor->CCList->Clear(); fMenu->MenCor->BccList->Clear(); fMenu->MenCor->ClearBody(); fMenu->MenCor->Subject = fDatCor->Asunto->Text; fMenu->MenCor->Body->Text = fDatCor->Texto->Text; if (fDatCor->Firma->Lines->Count > 0) fMenu->MenCor->Body->Text = fMenu->MenCor->Body->Text + "\n-----" + fDatCor->Firma->Text; if (fDatCor->Adjuntos->Items->Count > 0) for (nItem = 0; nItem < fDatCor->Adjuntos->Items->Count; nItem ++) if (FileExists(fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0])) { Adjunto = new TIdAttachmentFile(fMenu->MenCor->MessageParts, fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0]); Adjunto->ContentDisposition = "attachment"; Adjunto->ExtraHeaders->Values["content-id"] = (ExtractFileName(fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0])); Adjunto->Name = ExtractFileName(fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0]); Adjunto->DisplayName = ExtractFileName(fDatCor->Adjuntos->Items->Item[nItem]->SubItems->Strings[0]); } |
#3
|
||||
|
||||
Hola.
Gracias por compartir la solución. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#4
|
||||
|
||||
Pues sigo con problemas que no acierto a resolver. Usando el código de mi mensaje anterior, si envío un correo con un adjunto PDF me envía, por ejemplo, esto:
Cita:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Enviar correo con adjuntos (email con attachments) en Mac | psantaana | Varios | 3 | 01-07-2015 22:09:10 |
recibir correo con adjuntos | smessina | Internet | 4 | 05-06-2006 07:39:21 |
Como envio un correo con archivos adjuntos | Alejandro73 | Internet | 4 | 08-04-2006 01:09:49 |
Descargar ficheros adjuntos del correo Gmail | D@byt | Internet | 1 | 11-01-2006 23:59:27 |
Aplicación que se conecte a cuenta de correo y lea los archivos adjuntos | JamesBond_Mx | Internet | 4 | 06-12-2005 23:47:43 |
|