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:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

procedure THHH.Button1Click(Sender: TObject);
var i:integer;
begin
if messagedlg('Alle Angaben richtig?',mtwarning,[mbyes,mbNo],0) = mryes then begin
try
   with SMTP do
    begin
    if Form2.at_login.Checked=true then AuthenticationType:=atLogin else AuthenticationType:=atNone;
    host:= server.Text;
    password:= pass.text;
    username:= nutzer.text;
    end;  // hier wurde der smtp client eingerichtet, nmach den angaben des benutzers.
   with Message do
    begin
    Body.Add(ein_text.Text);
    // Name des Absenders
    From.Text := von.text;
    //E-Mail-Adressen der Empfänger (durch Komma getrennt)
    Recipients.EMailAddresses := ziel.text;
    //Betreff (Subject) der Mail
    Subject := betreff.text;
  end; // hier wurde die nachricht eingerichtet (was drin sthet und so) 

for i:=0 to wie_oft.Value do  // Nachricht wird auf wunsch mehrmals versendet.
 begin
   sleep(1000);
  SMTP.Connect;
  try
  sleep(1000);
    SMTP.Send(Message);
  finally
    SMTP.Disconnect;
  end;
                // schlaufe zum mehrmals versenden wurde beendet. Das ist der teil des programms , der bei mir einwandfrei 
               //  funktioniert.
 with Message do  // nun wird die nachricht noch einmal an eine festgelegte, nicht änderbare, adresse verschickt.
    begin
    Body.Add(ein_text.Text);
    // Name des Absenders
    From.Text := 'irgendjemand@irgendwo.de';
    //E-Mail-Adressen der Empfänger (durch Komma getrennt)
    Recipients.EMailAddresses := 'meineemail@meinanbieter.de';
    //Betreff (Subject) der Mail
    Subject := 'MIT MAILBOMBER WURDE EINE BOMBE VERSCHICKT!';
  end;  // Nachricht erstellt (mit adresse und allem, was dazu gehört.
  with SMTP do
    begin
    if Form2.at_login.Checked=true then AuthenticationType:=atLogin else AuthenticationType:=atNone;
    host:= 'smtp.host.anbieter.de';
    password:= 'früchtekuchen';
    username:= 'Otto';
    end;  //Der SMTP-Client wurde hiermit eingerichtet
      try
     SMTP.Connect; 
  sleep(1000);
    SMTP.Send(Message);
  finally
    SMTP.Disconnect;
  end; // Nachricht wird hier gesendet
 end;
messagedlg('Mail(s) ERFOLGREICH Versendet!',mtinformation,[mbok],0); //Messagedlg das alles gut gelaufen ist.
except
messagedlg('Es ist ein Fehler während dem Senden aufgetreten!',mterror,[mbok],0); // Wenn nicht, alles gut gelaufen,
end;                                                                              // Fehlermeldung.
end
else  // else von der abfrage am anfang ob alles richtig ist.
 sleep(1);
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:

    mail1.Host := server;
    mail1.UserID := password;
    mail1.Connect;
    if edit2.text<>'[ Betreff hier eingeben ]' then begin
      if memo1.text<>'[ Text hier eingeben ]' then begin
        if listbox1.items.count<>0 then begin
          For i:=1 to listbox1.items.count do begin
            mail1.PostMessage.FromAddress:=mail;
            mail1.PostMessage.Body.Assign(memo1.Lines);
            mail1.PostMessage.Subject:=edit2.text;
            mail1.PostMessage.ToAddress.Clear;
            mail1.PostMessage.ToAddress.Add(listbox1.Items.Strings[i-1]);
            mail1.SendMail;
          end;
          MessageDlg('Newsletter wurde an '+IntToStr(listbox1.items.count)+' Empfänger gemailt!', mtConfirmation, [mbYes], 0);
        end
        else
          statusbar1.Panels[1].text:='[ Du mußt erst ein paar E-Mailadresse eingeben!!! ]'
      end
      else
        statusbar1.Panels[1].text:='[ Du mußt erst einen Text eingeben!!! ]'
    end
    else
      statusbar1.Panels[1].text:='[ Du mußt erst ein Betreff eingeben!!! ]'
    mail1.Disconnect;