Hallo..ich habe hier jetzt schon die ganze zeit nach einer passenden Lösung gesucht und min. 5-6 lösungen durchprobiert...aber immer mit einer fehlermeldung...
Delphi-Quelltext
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:
| procedure TForm1.Button1Click(Sender: TObject);
var msg: TIdMessage;
smtp: TIdSMTP;
lstBody : TStringList;
begin
msg:=TidMessage.Create;
smtp:=TidSMTP.Create(nil);
try
msg.Clear;
lstBody := TStringList.Create;
lstBody.Add('Zeile1');
lstBody.Add('Zeile2');
lstBody.Add('Zeile3');
msg.From.Address := 'NaTTaC@mantis-media.de';
msg.Recipients.EMailAddresses := 'dannywitting@aol.com';
msg.Subject := 'egal';
smtp.Host := 'smtp.mantis-media.de';
smtp.Username := 'blabliblubb';
smtp.Password := 'bliblablum';
smtp.Port := 25;
idMessage.Body.Clear;
idMessage.Body := lstBody;
SMTP.Connect;
SMTP.Send(Msg);
finally
smtp.Free;
msg.Free;
end; |
idMessage und idSMTP sind drinne..ich kann die anwendung auch starten und komme nur bis zum connect...alles andere davor scheint zu funktionieren..mein webspace und emailserver sind bei bouncer4you gehostet...
Die anderen Lösungen sind wahrscheinlich zu alt...
ich benutze Delphi 2005 PE, Windows XP und die aktuellste Version von den Indy's
ich hoffe ihr könnt mir helfen
lg,
Mantis
"Ich find den Fehler nicht. Der Artist wird immer als "Syntax Error" gezeigt
"
