Enviar Excel con Indy 10

[Casimiro Noteví]

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',
                 '[email protected]', 'Adjunto archivo: documento.zip' );

[agustibaldo]

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]

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