wysyłanie maila z załącznikiem

0

Przeszukałem już pół internetu i nigdzie nie znalazłem takiego przypadku.
Wszyscy piszą, że załączniki wysyła się tak :

TidAttachmentFile.Create(IdMessage1.MessageParts,ExtractFilePath(Application.ExeName)+nazwa_pliku_log);

Ale zamiast załącznika w wiadomości jest całe mnóstwo jakich dziwnych krzaczków (a w załączniku miał być zwykly plik tekstowy).

Wysyłam tak:

  with IdSMTP1 do
      begin
         ReadTimeout := 10000;
         Host := INI.ReadString('Email', 'host', ''); //'smtp.wp.pl';
         // AuthType := atDefault;
        Username := INI.ReadString('Email', 'login','');
        Password := INI.ReadString('Email', 'haslo','');
      end;
      INI.Free;
      try
        IdSMTP1.Connect;
        temp:= ExtractFilePath(Application.ExeName)+nazwa_pliku_log;
        TidAttachmentFile.Create(IdMessage1.MessageParts,ExtractFilePath(Application.ExeName)+nazwa_pliku_log);

        try
          IdSMTP1.Send(IdMessage1);
        finally
          IdSMTP1.Disconnect;
        end;
      except
        on e: Exception do
        begin

        end;
      end;

Gdzie jest błąd ?
I jeszcze jedno pytanie. Załącznik dodaje się przed wykonaniem instrukcji Connect czy po ?

P.S. Używam Delphi 6 i Indy 10</u>

0

Nie wiem czy autor posta powyżej przeczyła w czym jest problem.
Pytałem, nie jak dodać załącznik tylko dlaczego zamiast dodanego pliku mam w treści wiadomości całe mnóstwo śmieci !
A linki na google traktują a dodawaniu załącznika. Nigdzie nie znalazłem nic o możliwych problemach z załącznikami

1 użytkowników online, w tym zalogowanych: 0, gości: 1