smtp ile mail gonderimi tablette çalışıyor telefonda çalışmıyor

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

smtp ile mail gonderimi tablette çalışıyor telefonda çalışmıyor

Mesaj gönderen erdogan_ozkaya »

Arkadaşlar,

Aşağıdaki kod ile tabletten (android4.4) mail gönderebiliyorum aynı uygulama ile telefondan (android 6.0.1) gönder dediğimde durum bilgisi aktarmadan memo tex te kapanıyor.


2.soru,
tablette uygulama geliştirirken bir bir kodda hata varsa ekrana geliyor ama telefondan çıkmıyor geliştrici ayarlarından bir yermi kapalı acaba?


teşekkürler

Kod: Tümünü seç

procedure TANASAYFAPENCERE.BTN_MAIL_GONDERClick(Sender: TObject);
begin
inherited;
  Memo1.Lines.Add('');
  Application.ProcessMessages;
  Memo1.Lines.Add('Bağlantı Kuruluyor.');
  try
    if SMTP.Connected then SMTP.Disconnect;
    SMTP.Host := QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SUNUCU').Text;
    SMTP.AuthType := satDefault;
    SMTP.Username := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
    SMTP.Password := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_SIFRE').Text;
    SMTP.Port := 25;
    if StrToIntDef(QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SUNUCU_PORT').Text, -1) > 0
    then SMTP.Port :=  StrToInt(QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SUNUCU_PORT').Text);
 
    // SSL ayarları
    if QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SIFRE_TURU').Text='Yok' then
    begin
      SMTP.UseTLS := utNoTLSSupport;
      SMTP.IOHandler := nil;
      SMTP.ConnectTimeout := 3000;
    end else
    begin
      Memo1.Lines.Add('Bağlantı ayarları yapılıyor.');
      LHandler.Destination := SMTP.Host + ':' + IntToStr(SMTP.Port);
      LHandler.Host := SMTP.Host;
      LHandler.Port := SMTP.Port;
      LHandler.DefaultPort := 0;
      LHandler.SSLOptions.Method := sslvTLSv1;
      LHandler.SSLOptions.Mode := sslmUnassigned;
      LHandler.SSLOptions.VerifyMode := [];
      LHandler.SSLOptions.VerifyDepth := 0;
      SMTP.IOHandler := LHandler;
    end;
     if QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SIFRE_TURU').Text='SSL'
     then  SMTP.UseTLS := utUseImplicitTLS;

     if QRYMAIL_AYARLAR.Fieldbyname('GIDEN_SIFRE_TURU').Text='TSL'
     then  SMTP.UseTLS := utUseExplicitTLS;
      SMTP.ConnectTimeout := 10000;

    Memo1.Lines.Add('Sunucuya Bağlanılıyor.');
    SMTP.Connect;
    Memo1.Lines.Add('E-posta gönderiliyor.');

    EPostaMAIL.Clear;
    EPostaMAIL.From.Address := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;//EditUSER.Text;
    EPostaMAIL.From.Name := KULLANICIPENCERE.QRY_KULLANICI_DBADI.Text+' '+KULLANICIPENCERE.QRY_KULLANICI_DBSOYADI.Text + ' (Sistem Mesajidir.)';
    EPostaMAIL.ReplyTo.EMailAddresses := QRYMAIL_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
   // EPosta.CCList.EMailAddresses := 'erdoganozkaya@gmail.com';
    with EPostaMAIL.Recipients.Add do
    begin
      if QRYGENE_AYARLAR.Fieldbyname('HAREKET_MAIL').Text > '' then
      begin
        Name := QRYGENE_AYARLAR.Fieldbyname('HAREKET_MAIL').Text;
        Address := QRYGENE_AYARLAR.Fieldbyname('HAREKET_MAIL').Text;
      end else
      begin
        Name := QRYGENE_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
        Address := QRYGENE_AYARLAR.Fieldbyname('KULLANICI_ADI').Text;
      end;
    end;
 
    if EditBASLIK.Text=''
    then  EPostaMAIL.Subject := 'KONU YOK';


    if EditBILGI_MAIL.Text<>''
    then  EPostaMAIL.CCList.EMailAddresses  :=  EditBILGI_MAIL.Text;

    EPostaMAIL.Body.Text := MemoMESAJ.Lines.Text;
    SMTP.Send(EPostaMAIL);

       Memo1.Lines.Add('Bağlantı başarılı. adresine bir E-posta gönderilmiştir.');
   finally
    Memo1.Lines.Add('Bağlantı sonlandırılıyor.');
    if SMTP.Connected then SMTP.Disconnect;
  end;
end;
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: smtp ile mail gonderimi tablette çalışıyor telefonda çalışmıyor

Mesaj gönderen erdogan_ozkaya »

Tablette, smtp.Connect edince başlanıyor ama telefonda bağlanmıyor ?
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: smtp ile mail gonderimi tablette çalışıyor telefonda çalışmıyor

Mesaj gönderen erdogan_ozkaya »

arkadaşlar,

telefondan çalışma esnasında ne hatası verdiğini nasıl anlayabilirim ?
Cevapla