Hallo,
so möchte über die Indykomponente TidSMTP Mails versenden. Es gibt ja viele Beispiele hier und das ganze ist ja auch völlig simpel, aber anscheinend nicht für mich.
Sobald ich einen Connect machen, erhalte ich Socket-Fehler 10053 !!!. Den Server erkennt er wohl, aber das wars dann auch.
Ich habe das ganze schon mit verschiedenen SMPT-Server versucht (firmenintern, GMX), aber ohne Erfolg. Gibt es noch Sachen zu beachten oder was mache ich falsch. So langsam gehen mir die Ideen aus.
In dem Beispiel versuche ich an den firmeninternen Server zu senden. Mit Outlook geht es ohne Probleme!!!
Gruß, Holger
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:
35:
36:
| procedure TfrmMain.Button1Click(Sender: TObject);
var
nAlarmnr : integer;
lstBody : TStringList;
begin
lstBody := TStringList.Create;
lstBody.Add('Zeile1');
lstBody.Add('Zeile2');
lstBody.Add('Zeile3');
idSMTP.Host := 'proteus2';
idSMTP.Username := 'holger';
idSMTP.Password := 'passwort';
idSMTP.Port := 25;
idMessage.From.text :='user@firma.de';
idMessage.Sender.text:=idMessage.From.text;
idMessage.Recipients.EMailAddresses:= 'empfaenger@firma.de';
idMessage.Subject:='testmail';
idMessage.Body.Clear;
idMessage.Body := lstBody;
try
idSMTP.Connect;
idSMTP.Send(idMessage);
idSMTP.Disconnect;
except on E : Exception do
begin
if idSMTP.connected then
try idSMTP.disconnect;
except
end;
end;
end;
end; |
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
