Hallo!
Ich hoffe, dass ich kurz vorm Durchbruch bin...
Leider bekomme ich noch keine eMail versendet.
Vielleicht erkennt ihr einen Fehler:
In der folgenden Prozedur werden die erforderlichen Variablen beschrieben und an die SendTo Funktion übergeben....danach passiert aber nichts!!!
Aus Unit 1 werden Daten an Unit smtpsend übergeben
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.Alarm;
begin
body := TStringList.Create;
body.text := 'Trallaliundtrallala';
absender := Form2.Edit2.Text;
empfaenger := Form2.Edit1.Text;
server := Form2.Edit3.Text;
smtpsend.SendTo(absender, empfaenger, 'Betreff', server, body);
Timer1.Enabled:= true;
end; |
hier geht es in die Unit smtpsend
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string;
const MailData: TStrings): Boolean;
begin
Result := SendToEx(MailFrom, MailTo, Subject, SMTPHost, MailData, '', '');
end; |
...und nun warte ich auf eine Mail
