[Avellas]

Código Delphi [-]
Procedure TFrmEnviar.EnviarCorreo;
var
  Password: String;
  ledAttachment: String;
Begin
  IdMessage.Clear;
  Password := TRIM(QryCorreoOrigenCLAVE.AsString);
  IdMessage.FromList.EMailAddresses := TRIM(QryCorreoOrigenEMAILORIGEN.AsString);   //correo desde el que envia
    IdMessage.Recipients.EMailAddresses := Trim(EdtDestino.Text); 

  IdMessage.Subject := Trim(EdtAsunto.Text);
  IdMessage.Body.AddStrings(Memo1.Lines);
  ledAttachment := (ExtractFilePath(ParamStr(0)) + 'BROCHURE' + '.PDF');
//  ledAttachment := Trim(EdtAdjunto.Text);
  if ledAttachment <> '' then
  Begin
     TIdAttachmentfile.Create(IdMessage.MessageParts, ledAttachment);
   end
   else
     ledAttachment := '';

  IdSMTP.Username := Trim(QryCorreoOrigenEMAILORIGEN.AsString); // ;
  IdSMTP.Password := Password;

  try
    if not IdSMTP.Connected then
      IdSMTP.Connect;


    Try
       IdSMTP.Send(IdMessage);

      except

       On E: Exception do
         ShowMessage(E.Message);
       End;

  finally
      IdSMTP.Disconnect(True);

  end;
End;