Kod: Tümünü seç
//asp.net 1'in aksine asp.net 2 "System.Net.Mail" ad uzayını kullanır.
//Diğer değişiklikleri uygulamalı olarak görelim
var
eMail: MailMessage;
Alici, Gonderici: MailAddress;
Sunucu: SmtpClient;
begin
//SMTP Sunucusunu belirlemek amacıyla ilgili nesneyi oluştur.
Sunucu := SmtpClient.Create;
//Oluşturulan nesneye sunucuyu belirle. Bunun için Host özelliği kullanılır.
//Host dışında Port, Encoding (karakter Kodlaması) gibi özellikleri de belirleyebilirsiniz
Sunucu.Host := 'mail.delphiturkiye.com';
//Gonderici ve Alıcı için ilgili nesneyi oluşturuyoruz
//Atama Sırasında Encoding ve diğer özelliklerde belirlenebilir.
//Değerler oluşturma sırasında da belirlenebilir.
Alici := MailAddress.Create('adresimyok@delphiturkiye.com', 'Oktay KOCAMANTÜRK');
Gonderici := MailAddress.Create('spamsevmem@delphiturkiye.com', 'Akrep');
//E-Posta nesnesini oluştur
//BodyEncoding mesajın karakter kodlaması
//SubjectEncoding konu başlığının karakter kodlaması
//IsbodyHtml mesajın html formatında gönderilip gönderilmeyeceğini belirler
eMail := MailMessage.Create;
eMail.IsBodyHtml := True;
eMail.From := Gonderici; //kimden
eMail.&To.Insert(0,Alici); //kime
eMail.Subject := 'konumuz eposta'; //konu
eMail.Body := 'Eposta göndermeyi öğrendik.'; //mesaj
//Epostayı gönderiyoruz. Eposta nesnesi olmadan sunucu nesnesine değerleri atayabilirsiniz.
Sunucu.Send(eMail);
end;