System.web.mail

[Lomanu4]

var
  Mail : MailMessage;
  MyAttachment : MailAttachment;
  i : Integer;
begin
  try
    Mail := MailMessage.Create;
    Mail.From := 'von';
    Mail.&To := 'to';
    Mail.Subject := 'betreff';
    Mail.Body := 'Nachricht';
    // Anhänge aus Listbox holen...
    for i:=0 to ListBox1.Items.Count -1 do
    begin
      MyAttachment := MailAttachment.Create(ListBox1.Items.Item[i].ToString);
      Mail.Attachments.Add(MyAttachment);
    end;
    SmtpMail.SmtpServer := 'SmtpServer';[/B]
[B]except
    MessageBox.Show ( ' Ошибка отправки. ');
  end ;