Hallo,
ich versuche über die Indy-SMTP-Komponente eine Mail an unseren firmeninternen Server zu versenden. Host, Username und Passwort sind identisch mit Outlook. Beim Connect bekomme ich "EIdSocketfehler. Meldung: Socket-Fehler #10053". Die Anmeldedaten sind aber korrekt. Hat jemand eine Ahnung, wo das Problem liegt.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
| procedure TfrmMain.Button1Click(Sender: TObject);
var
List: TStringList;
msg: TIdMessage;
smtp: TIdSMTP ;
begin
msg:=TidMessage.Create(self);
smtp:=TidSMTP.Create(nil);
list := TStringList.Create;
list.Add('Hallo');
try
msg.Clear;
msg.Body.AddStrings(list);
msg.From.Address := 'name@test.mail';
msg.Recipients.EMailAddresses := 'name@test.mail';
msg.Subject := 'Subject';
smtp.Host := '192.168.1.252';
smtp.Username := 'name';
smtp.Password := 'pass';
smtp.Port := 25;
smtp.Connect;
smtp.Send(idMsg);
finally
smtp.Free;
msg.Free;
end;
end; |
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
