Mam problem (wcześniej go nie było) z wysłaniem poczty na serwer o2.pl
Prawdopodobnie jest to spowodowane wprowadzeniem zabezpieczeń do wysyłania poczty przed spamem.
Oto kod:
procedure TSearchForm.Wyslij_WynikiClick(Sender: TObject);
var
f : integer;
//idMessage : TIdMessage;
begin
if Edit_Email.Text = '' then Edit_Email.Color := clRed
else
begin
Label104.Caption := 'Łączenie z serwerem poczty o2.pl ...';
Application.ProcessMessages;
ListBox_Zalaczniki.Items.Add(ExtractFilePath(Application.ExeName) + 'plik.txt');
idMessage := TIdMessage.Create(self);
idMessage.Body.Add(ListBox_Raport.Items.Text);
idMessage.From.Text := 'aaa@o2.pl'; // od adresata
idMessage.Recipients.EMailAddresses := 'franmo@o2.pl'; // do
idMessage.Subject := 'Temat listu';
for f := 0 to ListBox_Zalaczniki.Items.Count - 1 do
begin
try
TIdAttachmentFile.Create(idMessage.MessageParts, ListBox_Zalaczniki.Items[f]);
except on Exception do end;
end;
{ Użycie autoryzacji także nic nie pomaga przy wysłaniu tego listu}
// Poczta.Authenticate;
// Poczta.Username := 'login';
// Poczta.Password := 'haslo';
Poczta.Host := 'smtp.o2.pl';
Poczta.Port := 25;
Label104.Caption := 'Trwa wysyłanie raportu';
try
try
Poczta.Connect;
Poczta.Send(idMessage);
finally
Poczta.Disconnect;
Label104.Caption := 'Raport został wysłany';
idMessage.Free;
end
except
begin
Label104.Caption := 'Błąd połączenia z serwerem poczty o2.pl'+#10+
'Spróbuj wysłać raport w innym terminie';
end;
end;
end;
end;
Kompilator wskazuje wyjątek w pliku idReplySMTP.pas
procedure TIdReplySMTP.RaiseReplyError;
begin
raise EIdSMTPReplyError.CreateError(NumericCode,FEnhancedCode,Text.Text);
end;
A u mnie pojawia się po prostu mój wyjątek:
Label104.Caption := 'Błąd połączenia z serwerem poczty o2.pl'+#10+'Spróbuj wysłać raport w innym terminie';
Do tej pory wszystko było dobrze (email wysyłał się idealnie i szybko dochodził)
A teraz od około miesiąca nie można wysłać. To samo na wp.pl
Czy jest jakaś możliwość aby poprawnie wysłać email Z załącznikiem ?
Używam INDY 10 na Delphi 7