2 respuestas en este tema

[egostar]

Pues eso amigos,
 
Tengo un código muy simple pero que no funciona por nada, la intención es enviar adjuntos en un correo, estoy utilizando Indy 10.6
 
 

delphi

var
  IdSMTP1: TIdSMTP;
  Mens: TIdMessage;
  Att := TIdAttachmentFile;
begin
  if FileExists(Attachment) then
  begin
    Att := TIdAttachmentFile.Create(Mens.MessageParts, 'C:\Temp\Test.jpg');
    //-------------------------------------------------------------------------
    // Líneas opcionales
    //-------------------------------------------------------------------------
    Att.ContentTransfer := 'base64';
    Att.ContentType := 'image/jpeg';
    Att.ContentDisposition := 'inline';
    Att.ParentPart := 0;
    //-------------------------------------------------------------------------
    Mens.MessageParts.Add;
    Att.Free;
  end
  IdSMTP1.Connect;
  IdSMTP1.Send(Mens);
  IdSMTP1.Disconnect();
end;

 
Me llega el correo correctamente pero sin adjunto
 
¿Hay algo que no estoy contemplando?
 
Saludos

[egostar]

Vaya, me respondo solo viendo un hilo aquí mismo....
 

delphi

var
  IdSMTP1: TIdSMTP;
  Mens: TIdMessage;
begin
  if FileExists(Attachment) then
    TIdAttachmentFile.Create(Mens.MessageParts, 'C:\Temp\Test.jpg');
  IdSMTP1.Connect;
  IdSMTP1.Send(Mens);
  IdSMTP1.Disconnect();
end;

Quité toda la "basura" que afectaba el proceso y así de simple quedó.

Saludos

[porfi.dev]

Gracias hermano, ahora que veo este código se parece mucho a objetive-C