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>