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:

procedure TFormSendMail.BitBtn1Click(Sender: TObject);  
var msg: TIdMessage;  
begin  
  msg := TIdMessage.Create(Self);  
  with msg do begin  
    Sender.Text := 'sender@domain.com';  
    Sender.Name := 'Sender';  
    Sender.DisplayName := 'Ich bin der Sender';  
    Recipients.EMailAddresses := 'empfaenger@destination.de';  
    Body.Add('Text der Mail');  
    Subject := 'Test';  
    end;  

 
  with IdSMTP1 do begin  
    Host := 'mail.provider.de';  
    Username := 'meinuser';  
    Password := 'meinpasswort';  
    Connect();  
    try  
      Send(msg);  
      except  
          ShowMessage(IdSMTP1.LastCmdResult.Code+' - '+IdSMTP1.LastCmdResult.Text.Text);  
        end;  
    Disconnect;  
    end;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button2Click(Sender: TObject);
var
  IdMsg: TIdMessage;
begin
  IdMsg := TIdMessage.Create(nil);
  try

    idpop3.connect;
    messagedlg('Sie haben '+Inttostr(IDpop3.CheckMessages+1)+' Nachrichten auf dem Server, die zusammen '+InttoStr(IDpop3.RetrieveMailBoxSize div 1024)+ ' kb groß sind',mtinformation,[mbok],0);

    IdSMTP.Connect;

    IdMsg.From.Address := 'h.ehrens@prodigit-online.de';
    IdMsg.Recipients.EMailAddresses := 'h.ehrens@prodigit-online.de';
    IdMsg.Subject := 'Test';

    IdSMTP.Send(IdMsg);
  finally
    FreeAndNil(IdMsg);
  end;
end;