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:

  //////////////////////////////////////////
  function IsConnectedToInternet: Boolean;
  begin
    Result := (InternetGetConnectedState(nil, 0))
  end;
  //////////////////////////////////////////

  .......................................

    if not (ISConnectedToInternet) then
        InternetAutodial(internet_autodial_force_online,handle);
    /// Öffnen des Anschlusses


    if ISConnectedToInternet then
      begin
        if (...) then
           begin
             SmtpServerName:='....';
             SmtpServerPort:=25;
             SmtpServerUser:='.....';
             SmtpServerPassword:='...';
             UserEMail:='...';


             with IdMessage1 do
               begin
                 From.Text :=UserEMail;
                 //Von wem ist die Nachricht?
                 ReplyTo.EMailAddresses :=trim(form6.edit1.text);   
                 // Antwortadresse
                 Recipients.EMailAddresses := '....';   
                 //Wem soll ich die Msg senden?
                 Subject := '....';
                 //Wie lautet der Betreff?
                 ReceiptRecipient.Text := From.Text;                     
                 // von wem


                TIdAttachment.Create(IdMessage1.MessageParts,
                                       trim(form1.Table1.fieldbyname
                                  ('filename').asstring));
             IdMessage1.Body.Assign(Form6.Memo1.Lines);
             //Was soll ich  senden?
             IdSMTP1.Username := SmtpServerUser;//Welcher Benutzer?
             IdSMTP1.Password := SmtpServerPassword;//Welches Passwort??

             //Generelles Setup
             IdSMTP1.Host := SmtpServerName;//Welchen Host soll ich benutzen?
             IdSMTP1.Port := SmtpServerPort;//Welchen Port soll ich enutzen?

             //Hier wird die Nachricht gesendet und die Verbindung
             aufgebaut!
             IdSMTP1.Connect;//Stelle Verbindung her


             try
               IdSMTP1.Send(IdMessage1);//Versuche die Nachricht zu senden
             finally
               IdSMTP1.Disconnect;//Wenn du es geschafft hast, dann trenne die Verbindung

             InternetAutodialHangup(0);
..............