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]);
Todo el mensaje se monta bien pero si el usuario quiere enviar más de un adjunto, el mensaje llega sólo con el texto sin ningún adjunto; sin embargo si selecciona un único adjunto entonces si se envía bien. ¿Podéis guiarme un poco? Porque no sé que estoy haciendo mal