Email versenden

[XeRo]

Eine gute Möglichkeit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  NMSMTP1.Host   := 'mail.host.com'; 
  NMSMTP1.UserID := 'Username'; 
  NMSMTP1.Connect; 
  NMSMTP1.PostMessage.FromAddress       := '[e-mail]'; 
  NMSMTP1.PostMessage.ToAddress.Text    := '[e-mail]'; 
  NMSMTP1.PostMessage.ToCarbonCopy.Text := '[e-mail]'; 
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := '[e-mail]'; 
  NMSMTP1.PostMessage.Body.Text         := 'This is the message'; 
  NMSMTP1.PostMessage.Attachments.Text  := 'c:\File.txt'; 
  NMSMTP1.PostMessage.Subject           := 'Mail subject'; 
  NMSMTP1.SendMail; 
  ShowMessage('Mail sent !'); 
  NMSMTP1.Disconnect; 
end;

Das Problem ist nur: Du benötigst die TNMSMTP Komponente von FastNet tools.
So viel ich weiß, ist die aber in alle Delphi`s ab Version 4 enthalten...
Versuchs mal...