//TIdMessage kontrolü ve TIdSMTP kontrolü kullanılarak mesaj göndermek.
IdMessage1.Sender.Address :='admin@datakent.com';
IdMessage1.From.Name :='Murat Turan';//gönderenin adı
IdMessage1.From.Address :='admin@datakent.com';//gönderen mail adresi
//üsteki 2 satırı tek satırda şu şekildede yazabiliriz.
//IdMessage1.From.Text := '"Murat Turan" ';
//mail kime gidecek. ; ile çoğaltılabilir
IdMessage1.Recipients.EMailAddresses :='murat@datakent.com';
IdMessage1.Priority := mpNormal;//mesaj önceliği
//mesajın bir kopyasını gönder;
IdMessage1.CCList.EMailAddresses :='info@datakent.com;murat@dunyabilgisayar.com.tr';
//mailin bir kopyası bu maillerede gider. ama üstekinden tek farkı sanki
//herkese ayrı ayrı girmiş veya sadece kendilerine gönderilmiş gibi olur. :) iyi fikir
IdMessage1.BccList.EMailAddresses:='info@datakent.com;murat@dunyabilgisayar.com.tr';
//eğer geri dönüş adresi farklı olacaksa bu alana geri dönüşüm adresini girin.
//şayet geri dönüşüm adresi ile giden adres aynı olacak ise bu bölümü kullanmayın
IdMessage1.ReplyTo.EMailAddresses :='murat80@msn.com';
//mesajın gönderme tarihini bu özellikle ayarlayabilirsiniz. zorunlu değil.
IdMessage1.Date :=now;
//bu bölüm true olursa tarih olarak o anki sistem tarihi kullanılır.
IdMessage1.UseNowForDate := true;
TIdAttachment.Create(IdMessage1.MessageParts,'c:\deneme.txt');
//IdMessage1.MessageParts.Count mesaja ekli dosya sayısı bu şekilde öğrenilebilir.
//mesela şu tür bir kod ile ekli dosyalardan mesela 3. sıradaki dosyanın adını bulabilirsiniz
//TIdAttachment(IdMessage1.MessageParts.Items[3]).FileName;
//veya 3. dosyayı bilgisayarda başka bir yerede kaydedebiliriz tabi
//TIdAttachment(IdMessage1.MessageParts.Items[3]).SaveToFile('C:\xx.txt');
IdMessage1.ContentType :='text/plain';
//sadece düz metin ise text/plain
//mesajda dosya eki varsa multipart/*
//mesaj rtf ise text/rtf
//hem rtf hemde dosya eki var ise multipart/mixed
//eğer html fomatında ise text/html
//hem dosya var hemde html ise multipart/related
IdMessage1.Body.Append('merhaba dostum');
IdMessage1.Body.Append('nasısın dostum');
IdMessage1.Body.Append('ben iyiyim');
//gönderilecek metin eklemek için aşağıdaki tekniklerde kullanılabilir.
//IdMessage1.Body.Add('');
//IdMessage1.Body.Assign(Memo1.Lines);
IdMessage1.Subject :='Deneme maili';
IdSMTP1.Password :='xxxxxxxx';
IdSMTP1.Username :='xxxxxxxx';
//eğer server kullanıcı adı ve şifre istemiyorsa atNone yapılmalı varsayılan olarak zaten atNone dir.
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
//basit bir mail atılacak ise sadece IdSMTP1 bileşenide kullanılabilir IdSMTP1.QuickSend(.....)
//tabi bu özellik TIdMessage bileşeninin sundukları ile kıyaslanamaz :?