Enviar Excel con Indy 10

agustibaldo · #1 13-06-2011

Hola amigos de ClubDelphi, una vez mas recurro a uds para consultarles por un problema que estoy teniendo con una aplicación que tiene un proceso que arma un archivo Excel y luego lo envía por correo electrónico.

La forma de adjuntar el archivo al componente TIdMessage se realiza de la siguiente manera:

Código Delphi [-]if (AdjuntoEmail <> '') and (FileExists(AdjuntoEmail)) then
   TIdAttachmentFile.Create(MailMessage.MessageParts, AdjuntoEmail);

y las propiedades del componente TIdMessage son:

Código Delphi [-]    AttachmentEncoding = 'UUE' //Probé con MIME y XXE y sucede lo mismo.
    BccList = <>
    CharSet = 'utf-8'
    CCList = <>
    ContentType = 'text/plain'
    Encoding = meDefault
    FromList = <
      item
      end>
    Organization = 'Empresa SA'
    Recipients = <>
    ReplyTo = <>
    ConvertPreamble = True
    Left = 216
    Top = 232

El problema en cuestión es que llega el correo sin el adjunto y en el cuerpo un "chorizo" de caracteres sin sentido.

A alguien se le ocurre que puede estar sucediendo?
Desde ya, muchas gracias.

Casimiro Notevi · #2 13-06-2011

Cita:

Empezado por agustibaldo

El problema en cuestión es que llega el correo sin el adjunto y en el cuerpo un "chorizo" de caracteres sin sentido.

A alguien se le ocurre que puede estar sucediendo?
Desde ya, muchas gracias.

Aparentemente es porque no estás enviando el adjunto como adjunto, sino que estás enviando el adjunto como texto normal del mensaje.

agustibaldo · #3 13-06-2011

Casimiro, muchas gracias por tu respuesta..
Ahora te consulto, tenes idea de como puedo asignarlo o que propiedades setear para que esto no ocurra.

Nuevamente, muchas gracias.

Casimiro Notevi · #4 13-06-2011

Prueba a buscar "adjunto indy" en nuestro buscador, es un tema que se ha tratado varias veces. Avisa si no encuentras lo que necesitas.

Loviedo · #5 13-06-2011

En Diseño
-----------------------------------------
AttachmentEncoding = MIME
BccList = (TIdEMailAddressList)
CharSet
CCList = (TIdEMailAddressList)
ContentType
Encoding = meMIME
ExtraHeaders = (TIdHeaderList)
From = (TIdEMailAddressItem)
NoDecode = False
NoEncode = False
Organitation
Priority = mPNormal
ReceiptRecipient = (TIdEMailAddressItem)
Recipients = (TIdEMailAddressList)
ReplyTo = (TIdEMailAddressList)
Sender = (TIdEMailAddressItem)
UseNowForDate = true

En Ejecución
---------------------------------------
MailMessage.Clear;
MailMessage.From.Address := mEmail;
MailMessage.From.Name := mNombre;
MailMessage.Recipients.EMailAddresses := DM.Query12EMAIL.Text; {destino}
MailMessage.BCCList.add.Address := mEmail;
MailMessage.Subject := Edit10.text;
MailMessage.Body.Text := Memo1.Text;

f FileExists(Edit2.Text) then
TIdAttachment.Create(MailMessage.MessageParts,Edit2.text);

Con Indy9 me funciona.

Saludos

agustibaldo · #6 13-06-2011

Loviedo gracias por tu respuesta.
Con respecto a lo que comentas, te cuento que estoy usando Indy 10 sobre Delphi 2010 por eso la diferencia en la asignación del attach.

He detectado que si no le incluyo un texto en el cuerpo del mensaje el mismo se envia correctamente con el adjunto. Ahora si agrego el adjunto con el texto aparece lo que comentaba en el primer post. Les dejo una muestra de lo que aparece en el cuerpo del mensaje:

Cita:

This is a multi-part message in MIME format --CFZZay4ipk5FR4Bk6F2r8JcUJFbXggk=_b Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Prueba de env=EDo de correo- --CFZZay4ipk5FR4Bk6F2r8JcUJFbXggk=_b Content-Type: application/octet-stream; name="CelularesLimansky.xlsx" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="CelularesLimansky.xlsx" UEsDBBQABgAIAAAAIQCnlfmZhAEAABQGAAATAN0BW0NvbnRlbnRfVHlwZXNdLnhtbCCi2QEooAAC AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAMxUyW7CMBC9V+o/RL5WxEClqqoSOHQ5tkjQDzDxQCwS2/IMFP6+k1BQqdJI NBx6SZTFb5tnJ+NtWUQbCGicTcUg7osIbOa0sctUvM9eevciQlJWq8JZSMUOUIxH11fJbOcBI15t MRU5kX+QErMcSoWx82D5y8KFUhE/hqX0KlupJchhv38nM2cJLPWowhCj5AkWal1Q9Lzl13slc2NF 9Lj/r6JKhfK+MJkiFio3Vv8g6bnFwmSgXbYuGTpGH0BpzAGoLGIfDDOGKRCxMRRylLyx6WA0RBMV 6FWVzCC3hSR2APvrIGYPnUTUYDcVyu+ESLsCsDPVqd896IG5Id4ABZ5n7WuAMa+sZ4C58djC0J5d eyYfLqzmzq0unUrVhrhUxh50N5WAKzQJzqPkwnUWAFWjNeieZ0gIZOCYWRM3F7DyXtcWZX0bdtZw Wo0jflsGDTpu/4mO7rvyb3lgrgLoKfFJsrz4dv2O3TaXYzczF+D8gRz2cLW6oZGyPtNHnwAAAP// AwBQSwMEFAAGAAgAAAAhALVVMCP1AAAATAIAAAsAzgFfcmVscy8ucmVscyCiygEooAACAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIySz07DMAzG 70i8Q+T76m5ICKGlu0xIuyFUHsAk7h+1jaMkQPf2hAOCSmPb0fbnzz9b3u7maVQfHGIvTsO6KEGx M2J712p4rZ9WD6BiImdpFMcajhxhV93ebF94pJSbYtf7qLKLixq6lPwjYjQdTxQL8exypZEwUcph aNGTGahl3JTlPYa/HlAtPNXBaggHeweqPvo8+bK3NE1veC/mfWKXToxAnhM7y3blQ2YLqc/bqJpC y0mDFfOc0xHJ+yJjA54m2lxP9P+2OHEiS4nQSODzPN+Kc0Dr64Eun2ip+L3OPOKnhOFNZPhhwcUP VF8AAAD//wMAUEsDBBQABgAIAAAAIQDeCf0oAgEAANQDAAAaAAgBeGwvX3JlbHMvd29ya2Jvb2su eG1sLnJlbHMgogQBKKAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC8k89qwzAMxu+DvYPR fXGSbmWUOr2MQa9b9wAmUeLQxDaW9idvP5NDukDJLqEXgyT8fT/Qp/3hp+/EFwZqnVWQJSkItKWr Wtso+Di9PjyDINa20p2zqGBAgkNxf7d/w05z/ESm9SSiiiUFhtnvpKTSYK8pcR5tnNQu9JpjGRrp dXnWDco8Tbcy/NWAYqYpjpWCcKw2IE6Dj87/a7u6bkt8ceVnj5avWMhvF85kEDmK6tAgK5haJMfJ JonEIK/D5DeGyZdgshvDZEsw2zVhyOiA1TuHmEK6rGrWXoJ5WhWGhy6GfgoMjfWS/eOa9hxPCS/u YynHd9qHnN1i8QsAAP//AwBQSwMEFAAGAAgAAAAhADq+9IGdAQAA7gIAAA8AAAB4bC93b3JrYm9v ay54bWyMUtFOwyAUfTfxH5Ds1bVj69RlrYlOoy/GxOkeDZbbFaXQALPz7710dlbjg0/cczkczj0w P99WiryDddLolI6GMSWgcyOkXqf0cXl9fEqJ81wLroyGlH6Ao+fZ4cG8MfbtxZg3ggLapbT0vp5F kctLqLgbmho07hTGVtwjtOvI1Ra4cCWAr1TE4ngaVVxqulOY2f9omKKQOSxMvqlA+52IBcU92nel rB3N5oVU8LSbiPC6vuMV+t4qShR3/kpIDyKlE4SmgR8Nu6kvNlKF3SROaJTth7y3REDBN8ovcbxO HfNiE8amgRmieJLQuO9DAZLtSmphmpSyCUb70aEzBE27s5LCl6h0krB97wbkuvTYjOMkDupRT74N EK9pV6Lb6W7MKx/hQ4Vsb9E/1nYmsbC3YhQEfpNZj4z1nsz+Io97ZKz35HFrrfODAUkNIsSN7nro y+PzVulq+HwtlQe74J6/cAfhFXKuHjrjGEEphYDwF2nWjnU0uBiw2eBywOZRTxVD6SG8EWVyfKew tBGwSTI6ax12XzX7BAAA//8DAFBLAwQUAAYACAAAACEA7mzg6YUGAABVGwAAEwAAAHhsL3RoZW1l L3RoZW1lMS54bWzsWU1vG0UYviPxH0Z7b2MndhpHdarYsVto00axW9TjeD3enWZ2ZzUzTuobao9I SIiCuCBx44CASq3EpfyaQBEUqX+Bd2Z21zPxmiQlAgH1IfHOPu/3x7wzvnrtYcLQIRGS8rQd1C/X AkTSkI9pGrWDu8P+pY0ASYXTMWY8Je1gRmRwbevdd67iTRWThCCgT+UmbgexUtnmyooMYRnLyzwj KbybcJFgBY8iWhkLfAR8E7ayWqutrySYpgFKcQJsh0CDxgTdmUxoSIKtgn2PgYxUSb0QMjHQzElO 42DHB3WNkDPZZQIdYtYOQNKYHw3JQxUghqWCF+2gZj7BytbVFbyZEzG1hNah65tPTpcTjA9WjUwR jUqh9X6jdWWn5G8ATC3ier1et1cv+RkADkOw1Ori8mz0N+qdgqcDsl8XeXdrzVrDxzv81xZ0bnU6 nWYr18UyNSD7tbGA36itN7ZXPbwBWXxzAd/obHe76x7egCx+fQHfv9Jab/h4A4oZTQ8W0Dqg/X7O vYRMOLtRCd8A+EYth89RkA1ldmkRE56qZbmW4Adc9AGggQwrmiI1y8gEh5DHXZyMBMVaAN4k2Hlj l0K5sKRlIRkKmql28H6GoSbm/F6/+Pb1i2fo9Yunx4+eHz/64fjx4+NH31teHuENnEYu4auvP/n9 yw/Rb8++evXks2q8dPE/f/fRTz9+Wg2ECppr9PLzp788f/ryi49//eZJBXxb4JELH9KESHSbHKF9 noBtxjG+5mQkzkcxjDH1KHAMvCtY91TsAW/PMKvCdYjvvHsCmkcV8Pr0gafrIBZTRSsk34wTD7jL OetwUemAm1qW4+HhNI2qhYupi9vH+LBKdhenXmh70wy6ZpGUnu+7MfHU3GM4VTgiKVFIv+MHhFRY d59Sz6+7NBRc8olC9ynqYFrpkiEdeYk0J7pBE4jLrMpmCLXnm917qMNZldU75NBHQkFgVqH8kDDP jdfxVOGkiuUQJ8x1+C2s4iolBzMRurieVBDpiDCOemMiZRXNHQH2OkG/iaFfVYZ9l80SHykUPaji eQtz7iJ3+EE3xklWhR3QNHax78kDSFGM9riqgu9yv0L0M8QBp0vDfY8SL9ynN4K7NPJUmieIfjMV OpbQqL3+m9D0z5oxo9CNbQ68bcbtYBu2pqqSuHGiBS/D/Qsb7w6epnsEcn1x43nbd9/23eA/33eX 1fJZu+28wULv1cODnYvNlJwsHZInlLGBmjFyS5o5WcJmMe7DoqYzR0RSHpqyGL7mzd3DRQIbGiS4 +oCqeBDjDGbseqCZRDJnHUmUcQlnO7NcyVvjYU5X9mTY1GcG2w8kVrt8bJfX9HJxNCjZmC0nMufP QtCaZnBWYWtXcqZg9psIq2ulziytblQzrc6TVpoMMVw0DRZLb8IUgmB2AS+vwyFdi4azCWZkrP1u N+AiLCYKFxkiGWO4AjCn96a2ezFGdROkIlfMZQDkTkWM9DnvFK850lqa7V+QdpYgueIaS8QV0fsr USoyeB4lXbcnypGlbnGyFB21g1ZztRmgEGftYALHWviaZBB1qQc/zCK4HQqVsGl/ajGbKp9Hs1UY 5hdBHW4qrN8XDPb6QCak2sEytqlhXuUpwFItyeq/2gS3XpQBNtPfQIu1DUiGf0wL8KMfWjKZkFC5 wXZWtO/sY95K+VQRMYjHR2jEpmIfQ/h1qoI9YyrhdsJ0BP0AV2na2+aV35zzonMvsAzOrmOWxThv t7pEi0q2cFPHpQ7myVEPbKvU3Rh3flNMyV+QKW4a/89M0fsJXBesjXUEQrjLFRjpem0HXKiYQxfK Yhr2BQwOpndAtsB1LLyGpIIbZfNfkEP939ac5WHKGk59ap9GSFDYj1QsCNmDtmSy7xRm9XzvsixZ zshklKOuzKzaI3JI2FD3wHW9twcohlQ33SRvAwZ3Mv/857yCRpEectx683pIuffaGvi7Jx9bzGCU 34fNQFP4v1SxYle19Ia82HtdQ/SL+ZjVKKoChDlbQSsv+zdU4Zxbre1YCxavNgvlIIqLFsNiORBl cOmD9B/Y/6gImf1xQm+oQ74PvRXBbw2aGaQNZPUlO3gg3SDt4ggGJ7tok0mzsq7NRyfttWKzvuBJ t5R7wtlas7PE+5zOLoczX5xXixfp7NzDnq/t2lJXQ2RPligsTYqDjAmM+V3L/eGJjx5AoHfgin/K lDTJBD8rCQyj58DUARS/lWhIt/4AAAD//wMAUEsDBBQABgAIAAAAIQA7bTJLwQAAAEIBAAAjAAAA eGwvd29ya3NoZWV0cy9fcmVscy9zaGVldDEueG1sLnJlbHOEj8GKwjAURfcD/kN4e5PWhQxDUzci

Se les ocurre algo?

Casimiro Notevi · #7 13-06-2011

En principio y para salir del paso, que incluyas un texto en el mensaje. aunque sea un simple punto

agustibaldo · #8 13-06-2011

No entiendo

A que te refieres con incluir un texto en el mensaje, aunque sea un punto?

Si incluyo cualquier texto sucede lo que puse anteriormente.

Casimiro Notevi · #9 13-06-2011

Cita:

Empezado por agustibaldo

He detectado que si no le incluyo un texto en el cuerpo del mensaje el mismo se envia correctamente con el adjunto. Ahora si agrego el adjunto con el texto aparece lo que comentaba en el primer post.

Había entendido justo al contrario.

Casimiro Notevi · #10 13-06-2011

Mira esto, a ver si te sirve de ayuda:

Código Delphi [-]uses
  IdSMTP, IdMessage;
//Vamos con el procedimiento que envía un mensaje de correo electrónico:
procedure EnviarMensaje( sUsuario, sClave, sHost, sAdjunto, sAsunto, sDestino,
sMensaje: String );
var SMTP: TIdSMTP;
   Mensaje: TIdMessage;
   Adjunto: TIdAttachment;
begin
  // Creamos el componente de conexión con el servidor
  SMTP := TIdSMTP.Create( nil );
  SMTP.Username := sUsuario;
  SMTP.Password := sClave;
  SMTP.Host := sHost;
  SMTP.Port := 25;
  SMTP.AuthenticationType := atLogin;
  // Creamos el contenido del mensaje
  Mensaje := TIdMessage.Create( nil );
  Mensaje.Clear;
  Mensaje.From.Name := sDestino;
  Mensaje.From.Address := sDestino;
  Mensaje.Subject := sAsunto;
  Mensaje.Body.Text := sMensaje;
  Mensaje.Recipients.Add;
  Mensaje.Recipients.Items[0].Address := sDestino;
  // Si hay que meter un archivo adjunto lo creamos y lo asignamos al mensaje
  if sAdjunto <> '' then
  begin
     if FileExists( sAdjunto ) then
       Adjunto := TIdAttachment.Create( Mensaje.MessageParts, sAdjunto );
  end
  else
     Adjunto := nil;
  // Conectamos con el servidor SMTP
  try
     SMTP.Connect;
  except
     raise Exception.Create( 'Error al conectar con el servidor.' );
  end;
  // Si ha conectado enviamos el mensaje y desconectamos
  if SMTP.Connected then
  begin
     try
       SMTP.Send( Mensaje );
     except
       raise Exception.Create( 'Error al enviar el mensaje.' );
     end;
     try
        SMTP.Disconnect;
     except
        raise Exception.Create( 'Error al desconectar del servidor.' );
     end;
  end;
  // Liberamos los objetos creados
  if Adjunto <> nil then
     FreeAndNil( Adjunto );
  FreeAndNil( Mensaje );
  FreeAndNil( SMTP );
  Application.MessageBox( 'Mensaje enviado correctamente.',
     'Fin de proceso',MB_ICONINFORMATION );
end;

Y este es un ejemplo de envío de mensajes:

Código Delphi [-]EnviarMensaje( 'juanito33', 'djeuE21', 'smtp.terra.es',
                 'c:\documento.zip', 'Te envio mi documento',
                 'felipe8843@terra.es', 'Adjunto archivo: documento.zip' );

agustibaldo · #11 13-06-2011

SOLUCIONADO!!

Casimiro y Loviedo he solucionado mi problema seteando IdMessage1.ContentType := 'multipart/mixed';
Lo saque de la siguiente página: http://forums2.atozed.com/viewtopic.php?f=7&t=18308

Desde ya, muchas gracias por su ayuda!!!

gustavosv · #12 28-07-2011

muchas gracias.

lo probé y me funcionó, sin embargo enviaba el archivo pero me salía un error de 'Read time up' y mirando la documentación el método TIdAttachmentFile necesita crear en caché unos archivos, por ello puse el ejecutable de mi aplicación con privilegios de Administrador(win 7) (botón derecho, Propiedades, Compatibilidad, Ejecutar este programa como Administrador ...) y listo, p'a la foto

de nuevo gracias por tu pronta respuesta.

saludos,

GustavoSV

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Enviar Email con Indy 10 y GMail ssl	camino	Internet	7	01-10-2012 21:58:25
Error al enviar e-mail con Indy	Iuconlas	Internet	0	02-03-2011 18:56:57
Enviar archivos Indy 10	maurici0	Internet	6	26-02-2009 20:07:01
enviar memorystream no indy 9 tcp	Mike Deet	Internet	2	13-12-2007 21:19:05
Enviar email con copia y adjunto con indy	cmena	Internet	4	01-10-2005 01:14:00