eMail schreiben mit Hilfe von System.Web.Mail

[Alexander]

Moin,
Ein kleines und einfaches Beispiel wie man ohne Indys oder andere Komponenten unter .NET mit dem Namespace System.Web.Mail eine eMail schreibt.

Delphi-Quellcode:

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';
    // und los...
    SmtpMail.Send(Mail);
  except
    MessageBox.Show('Es trat ein Fehler beim Übertragen auf. Bitte überprüfen Sie ihre Eingaben');
  end;

Ich hänge noch mal ein kleines Beispiel (mit EXE) als ZIP an.

[edit=Chakotay1308]Klassifizierung, Code und Titel angepasst. Mfg, Chakotay1308[/edit]