Mega Code Archive

Indy ile msg gonderme

//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" <admin@datakent.com>'; //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 :?