Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
toplu mail gönderimi
#1
Arkadaşlar, aşağıdaki kod ile mail gönderebiliyorum ama birden fazla ekleyince hata veriyor

nerde yanlış yapıyor olabilirim ?

mmoE_MAIL_ADRESI_TEXT.Text

xxx@gmail.com;
xxx@hotmail.com
vs...

teşekkürler


procedure TANA_SAYFA.btnMAIL_GONDERClick(Sender: TObject);
begin
  if QRYAYARLAR.RecordCount=0
  then ShowMessage('Mail hesabı bulunmadı lütfen ayarları kontrol ediniz.') else
  begin
  inherited;
  Application.ProcessMessages;
  try
    if SMTP.Connected then SMTP.Disconnect;
    SMTP.Host := QRYAYARLAR.Fieldbyname('GIDEN_SUNUCU').Text;
    //SMTP.AuthType := satNone;
    SMTP.AuthType := atDefault;
    SMTP.Username := QRYAYARLAR.Fieldbyname('KULLANICI_ADI').Text;
    SMTP.Password := QRYAYARLAR.Fieldbyname('SIFRE').Text;

    SMTP.Port := 25;
      if StrToIntDef(QRYAYARLAR.Fieldbyname('GIDEN_SUNUCU_PORT').Text, -1) > 0
      then SMTP.Port :=  StrToInt(QRYAYARLAR.Fieldbyname('GIDEN_SUNUCU_PORT').Text);



    // SSL ayarları
    if QRYAYARLAR.Fieldbyname('GIDEN_PORT_TURU').Text='Yok' then
    begin
      SMTP.UseTLS := utNoTLSSupport;
      SMTP.IOHandler := nil;
      SMTP.ConnectTimeout := 3000;
    end else


    begin
      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; // sslmClient;
      LHandler.SSLOptions.VerifyMode := [];
      LHandler.SSLOptions.VerifyDepth := 0;
      SMTP.IOHandler := LHandler;
    end;

     if QRYAYARLAR.Fieldbyname('GIDEN_PORT_TURU').Text='SSL'
     then  SMTP.UseTLS := utUseImplicitTLS;

     if QRYAYARLAR.Fieldbyname('GIDEN_PORT_TURU').Text='TSL'
     then  SMTP.UseTLS := utUseExplicitTLS;

      SMTP.ConnectTimeout := 10000;
    SMTP.Connect;
    EPosta.Clear;
    EPosta.From.Address := QRYAYARLAR.Fieldbyname('E_MAIL').Text;
    EPosta.From.Name :=  QRYAYARLAR.fieldbyname('GONDEREN_AD').Text + ' (Sistem Mesajidir.)';
    EPosta.ReplyTo.EMailAddresses := QRYAYARLAR.Fieldbyname('E_MAIL').Text;
    //EPosta.ReplyTo.Name := EditUSER.Text;

    with EPosta.Recipients.Add do
    begin
      if mmoE_MAIL_ADRESI_TEXT.Text > '' then
      begin
        Name := mmoE_MAIL_ADRESI_TEXT.Text;
        Address := mmoE_MAIL_ADRESI_TEXT.Text;
      end else
      begin
        Name := QRYAYARLAR.Fieldbyname('KULLANICI_ADI').Text;
        Address := QRYAYARLAR.Fieldbyname('KULLANICI_ADI').Text;
      end;
    end;
    EPosta.CCList.EMailAddresses:=QRYAYARLAR.Fieldbyname('BILGI_MAIL').Text;
    EPosta.Subject :=  edtE_MAIL_KONU.Text;
    EPostaIcerikHazirla(Sender);
    SMTP.Send(EPosta);
   finally
    if SMTP.Connected then SMTP.Disconnect;
  end;
 end;
end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  HHBMailComponent - Kolay Mail Gönderim Bileşeni [Delphi] hyperxman 0 16 1 saat önce
Son Yorum: hyperxman
Information Delphi Mail Gönderme İçin Alternatif hyperxman 4 758 27-12-2017, Saat: 21:14
Son Yorum: hyperxman
  Oto toplu db oluşturma hido 6 674 09-03-2017, Saat: 18:53
Son Yorum: hido
  toplu sms gönderme Kamuran Alpkaya 6 664 13-02-2017, Saat: 16:14
Son Yorum: engerex
  E-mail gönderimde türkçe karakter sorunu erdogan 8 876 19-01-2017, Saat: 15:12
Son Yorum: erdogan



Konuyu Okuyanlar: 1 Ziyaretçi