1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  SMTP.Host := esmhost.text;
  SMTP.Port := 25;
  SMTP.UserID := eusername.text;
  SMTP.Connect;        

  SMTP.PostMessage.FromAddress := eusername.text;
  SMTP.PostMessage.FromName    := eusername.text;
  SMTP.PostMessage.ToAddress.Add(eempfaenger.text);
  SMTP.PostMessage.Body.Assign(nachricht);
  SMTP.PostMessage.Subject := ebetreff.text;
  SMTP.SendMail;
  SMTP.Disconnect;					

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:

procedure TSendmail.BitBtn1Click(Sender: TObject);
var I:Integer;
begin
  Mailer.Host:= Host;
  Mailer.UserID:= User;
  for I:=0 to Empfaenger.Items.Count-1 do
    Mailer.PostMessage.ToAddress.Add(Empfaenger.Items[i]);
  Mailer.PostMessage.FromAddress:= From;
  Mailer.PostMessage.FromName:='MeinName';
  Mailer.PostMessage.Subject:= Subjekt;
  Mailer.PostMessage.Date:=DateToStr(now);
  Mailer.PostMessage.ReplyTo:= from;
  for I:=0 to Content.Lines.Count-1 do
    Mailer.PostMessage.Body.Add(Content.Lines[i]);
  Mailer.Connect;
end;

procedure TSendmail.MailerConnect(Sender: TObject);
begin
  Mailer.SendMail;
end;

procedure TSendmail.MailerSuccess(Sender: TObject);
begin
  Mailer.Disconnect;
end;					

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:
37:
38:
39:
40:
41:
42:

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
 meldungen.lines.add('Try to connect');
 pop3.UserID := eusername.text;
 pop3.Password := epass.text;
 pop3.AttachFilePath := 'attach/';
 pop3.Host := ehost.text;
 pop3.TimeOut := 200000;
 pop3.connect;
if sende = true then begin
 meldungen.lines.add('Try to connect');
  SMTP.Host := esmhost.text;
  SMTP.Port := 25;
  SMTP.UserID := eusername.text;

 // SMTP.Port := 25;
 // SMTP.Connect;
  SMTP.PostMessage.Date:=DateToStr(now);
  SMTP.PostMessage.FromAddress := eusername.text;
  SMTP.PostMessage.FromName    := eusername.text;
  SMTP.PostMessage.ReplyTo     := eusername.text;
  SMTP.PostMessage.ToAddress.Add(eempfaenger.text);
  SMTP.PostMessage.Body.Assign(nachricht.lines);
  SMTP.PostMessage.Subject := ebetreff.text;
  SMTP.Connect;
  sende := false;
end;
end;


procedure TForm1.SMTPConnect(Sender: TObject);
begin
SMTP.SendMail;
meldungen.lines.add('Connected');
end;


procedure TForm1.SMTPSuccess(Sender: TObject);
begin
smtp.disconnect;
meldungen.lines.add('Nachrich(en) erfolgreich versandt.');
end;