android ve smtp mail

[mustafasoy]

merhabalar danışacağım konu email gönderimi
Email gönderimi yapabiliyorum ancak
1. sorun : birden fazla kişiye mail posta kutusu kurulu ise hangisiyle göndereceksin diye soru soruyor
hele döngü içinde bu fonksyionu kullanıyorsam ve birden fazla mail gönderilecekse sıra ile teker teker soruyor
çözüm: mailadreslerini ; ile arka arkaya yazabilirim ancak herkes birbirinin mailini görebilir
cözüm2:bilmiyorum ama default şu postakutusunu kullan diyerek belki çözülebilir
2.sorun:telefonda posta kutusu kurulmamış olablir.
çözüm: php mail yada başka şekilde parametreleri kodun içerisine gömerek yada ayarlar diye bir alandan bilgileri alarak
kullanıcı adı,parola,host ,port bu bilgileri kullanarak kullanıcıdan sadece başlık ve mesaj şeklinde bilgiyi alarak gönder denildiğinde
mail bilgilerini kullanarak kişi yada kişilere kullanıcıya soru sormadan mail gönderebilir
bununla ilgili daha önceden çalışması olan yada araştıran var mıdır? teşekkürler

[gaus]

Aklıma ilk gelen bir sqlite 'da tablo yapın emailler kaydolsun;
Daha sonra tablonuzdaki recordcount kadar for döngüsüne sokun işlemlerinizi yapın buradan;
örnek kod;

Kod: Tümünü seç

myqery.sql.add('select * from emailtablosu');
myquery.first;
for i=0 to myqery.recordcount-1 do
 begin
 emailişlemleri;
  emailadresi:=myquery.fieldbyname('EMAILADRESI').asstring;
emailişlemleridevam; 
myquery.next;
end;

gibi bir kodla halledebilirsiniz ve hiç bir kullanıcıda bunu görmez

[mustafasoy]

oralarda sorun yok zaten web servis kullanarak alıyorum bu bilgileri
benim sorduğum soru android içerisinden SMTP kullanarak mail göndermek
telefonda bir posta kutusu kullanmadan telefonun mailini kullanmadan uygulama üzerinden mail gönderen varmıdır diye merak ettim

[mustafasoy]

form üzerine TldMessage ve TldSMTP ekledim ve aşağıdaki kodlar ile işim çözüldü ilgilenen herkese teşekkürler

Kod: Tümünü seç

procedure TForm1.btn_gonderClick(Sender: TObject);
begin
  smtp.Username:=edt_username.Text;
  smtp.Password:=edt_parola.Text;
  smtp.Host:=edt_host.Text;
  smtp.Port:=strtoint(edt_port.Text);
  ///////////////////
  mailmessage.Sender.Address:='mustafa.soy@korgun.com.tr';
  mailmessage.Sender.domain:='korgun.com.tr';
  mailmessage.Sender.name:='Androidden Gelen mail';
  mailmessage.Sender.text:='mustafa soy - delphi <mustafa.soy@korgun.com.tr>';
  mailmessage.Sender.User:='mustafa.soy';

  mailmessage.Recipients.EMailAddresses:=edt_to.Text;
  mailmessage.Subject:=edt_konu.Text;
  mailmessage.Body.Text := mm_aciklama.Text;
  try
    SMTP.Connect;
    SMTP.Send(MailMessage);
    finally
    if SMTP.Connected then SMTP.Disconnect;
    end;
    showmessage('Mailiniz gönderilmiştir');
end;