Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Enviar Adjuntos por correo

Started by egostar , Oct 03 2019 11:14 AM

Please log in to reply

2 replies to this topic

#1 egostar

missing my father, I love my mother.

Administrador
14448 posts

LocationMéxico

Posted 03 October 2019 - 11:14 AM

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

0

Back to top

#2 egostar

missing my father, I love my mother.

Administrador
14448 posts

LocationMéxico

Posted 03 October 2019 - 11:23 AM

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;