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:

procedure TForm1.Button1Click(Sender: TObject);
var Msg:TIdMessage;  
var Addr:TIdEmailAddressItem;  
var Att:TIDAttachment;
var Text:TIDText;
var i: integer;
begin
  Msg:=TIDMessage.Create(Self);
  try
    Addr:=Msg.Recipients.Add;         //Einrichten der Mailaddressen und Nachricht
    Addr.Name:='Daniel';
    Addr.Address:='test@test.de';
    Msg.Subject:='TEST';
    Msg.From.Name:='TEST';
    Msg.From.Address:='test@test.de';

    Text:=TidText.Create(Msg.MessageParts);   //Als kleiner Versuch wird noch HTML-Test mit übertragen
    Text.ContentType:='text/plain;';
    Text.Body.Text:='TEST';


    Text:=TidText.Create(Msg.MessageParts);
    Text.ContentType:='text/html;';
   
    Text.Body.Text:='Hallo'
   

   IdSMTP1.Username := 'user';
   IdSMTP1.Password := 'password';

//Generelles Setup
   IdSMTP1.Host := 'smtp.provider.de';
   IdSMTP1.Port := 25;

   IdSSLIOHandlerSocket1.SSLOptions.CertFile:=start_path+'test2.cer';  //Cert-File dem Startverzeichnis
    
   idSMTP1.Connect(2000);  // An dieser Stelle hängt sich das Programm auf
    try
      idSMTP1.Send(Msg);
    finally
      idSMTP1.Disconnect;
     end;    

 showmessage('FERTIG');
  finally  
    Msg.Free;  
  end;  
end;