[Petrovich1984]

Код:

Наваял вот это дело:

procedure TForm1.GetBtnClick(Sender: TObject);

begin
  if POP.Connected then POP.Disconnect;
  POP.Host := 'host';
  POP.Port := StrToInt('110');
  POP.Username := 'user';
  POP.Password := 'pass2';
  POP.Connect(10000);
  if POP.Connected then ShowMessage('Подключено к POP');
  Memo3.Clear;

    Msg.Clear;
    POP.Retrieve(1,Msg);

    for i:=0 to (Msg.MessageParts.Count-1) do
      if Msg.MessageParts.Items[i] is TIdText then
      begin
        Memo3.Lines:= (Msg.MessageParts.Items[i] as TIdText).Body; //запоминаю тело письма в поле Memo
      end;

  POP.Disconnect;
end;
procedure TForm1.SendBtnClick(Sender: TObject);
begin
  SMTP.Host:= 'host';
  SMTP.Port:=25;   
  SMTP.Username:='progs';  
  SMTP.Password:='pass';     
  SMTP.AuthenticationType:=atLogin;
  Msg.Recipients.EMailAddresses := 'progs@domen.ru';
  Msg.From.Address := 'sendtest@domen.ru';
  Msg.Subject:= 'New letter';
  Msg.Body.Text:= Memo3.Lines.Text; //теперь обратно заливаю
   SMTP.Connect;
   try
   ShowMessage('Подключено к SMTP');
  SMTP.Send(Msg);
   finally
      SMTP.Disconnect;
   end;
end;

В итоге на ящик progs@domen.ru приходит письмо, но тела у него нет, а есть только вложение с именем "Часть.att". Хочу добиться, чтобы письмо приходило без вложения и с телом, заполненным содержимым Memo3. Прошу помощи.