Yandex SMTP Mail Gönderimi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 118
- Kayıt: 17 Ağu 2010 09:08
Yandex SMTP Mail Gönderimi
Arkadaşlar hepinize merhaba;
Bir kaç gündür girmediğim site denemediğim component kalmadı sanırım. SMTP özelliğiyle Yandex üzerinden mail gönderemiyorum. OSmtp diye ücretli bir komponent var onla çalışıyor ama o da süreli olduğu için süresi bitti. Ne yapacağımı bilemiyorum bir türlü yapamadım.
"Delphi 7" kullanıyorum. Yardımlarınızı bekliyorum. Teşekkürler
Bir kaç gündür girmediğim site denemediğim component kalmadı sanırım. SMTP özelliğiyle Yandex üzerinden mail gönderemiyorum. OSmtp diye ücretli bir komponent var onla çalışıyor ama o da süreli olduğu için süresi bitti. Ne yapacağımı bilemiyorum bir türlü yapamadım.
"Delphi 7" kullanıyorum. Yardımlarınızı bekliyorum. Teşekkürler
Re: Yandex SMTP Mail Gönderimi
Forum içinde arama yaptınız mı hiç? Ben denediğim zaman aşağıdaki sonuçlara ulaştım. Yüksek ihtimal ile birinden birisi sorununuzu çözecektir. Bu sebeple daha fazla bağlantı eklemiyorum.
viewtopic.php?f=19&t=36038
viewtopic.php?f=2&t=36034
Ayrıca Yandeks kendi sitesinde gerekli ayarları anlatmış.
https://yandex.com/support/mail-new/mail-clients.html
viewtopic.php?f=19&t=36038
viewtopic.php?f=2&t=36034
Ayrıca Yandeks kendi sitesinde gerekli ayarları anlatmış.
https://yandex.com/support/mail-new/mail-clients.html
Re: Yandex SMTP Mail Gönderimi
Nasıl bir kod yazdınız?
Bir hata mesajı alıyor musunuz?
Derleme yaparken mi hata alıyorsunuz?
Program çalışırken mi hata alıyorsunuz?
Bir hata mesajı almıyorsunuz ama mail gitmiyor mu?
Sorunuzu son kullanıcı gibi değil programcı gibi sorarsanız daha çok arkadaş yardımcı olacaktır.
C. Sunguray
csunguray at netbilisim.kom
Net Bilişim Hizmetleri
Sıradan her programcı bilgisayarın anlayabileceği kodlar yazabilir.
Sadece iyi programcılar insanların da anlayabileceği kodlar yazarlar.
Martin Fowler (http://martinfowler.com/)
csunguray at netbilisim.kom
Net Bilişim Hizmetleri
Sıradan her programcı bilgisayarın anlayabileceği kodlar yazabilir.
Sadece iyi programcılar insanların da anlayabileceği kodlar yazarlar.
Martin Fowler (http://martinfowler.com/)
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Re: Yandex SMTP Mail Gönderimi
Buradaki mesaja bir göz atın isterseniz ama aynı zamanda https için openssl güncel kütüphanesi de gerekmektedir. Bu da ssleay32.dll, libeay32.dll isimli iki dll dosyasını program .exe niz ile aynı klasöre koymanızı gerekebilir.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Re: Yandex SMTP Mail Gönderimi
Merhaba,
indy10 kurarsanız aşağıdaki kod ile sorunsuzca gönderim yapabilirsiniz.
indy10 kurarsanız aşağıdaki kod ile sorunsuzca gönderim yapabilirsiniz.
Kod: Tümünü seç
procedure TForm1.btnMAIL_GONDERClick(Sender: TObject);
begin
inherited;
mmoDURUM.Lines.Add('');
Application.ProcessMessages;
mmoDURUM.Lines.Add('Bağlantı Kuruluyor.');
try
if SMTP.Connected then SMTP.Disconnect;
SMTP.Host := MAIL_AYARLARI.edtGIDEN_SUNUCU.Text; //EditHOST.Text;
//SMTP.AuthType := satNone;
SMTP.AuthType := atDefault;
SMTP.Username := MAIL_AYARLARI.edtKULLANICI_ADI.Text;//EditUSER.Text;
SMTP.Password := MAIL_AYARLARI.edtKULLANICI_SIFRE.Text;//EditPASSWORD.Text;
SMTP.Port := 25;
if StrToIntDef(MAIL_AYARLARI.GIDEN_SUNUCU_PORT.Text, -1) > 0
then SMTP.Port := StrToInt(MAIL_AYARLARI.GIDEN_SUNUCU_PORT.Text);
// SSL ayarları
if MAIL_AYARLARI.edtGIDEN_SUNUCU_SIFRELEME.Text='Yok' then
begin
SMTP.UseTLS := utNoTLSSupport;
SMTP.IOHandler := nil;
SMTP.ConnectTimeout := 3000;
end else
begin
mmoDURUM.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; // sslmClient;
LHandler.SSLOptions.VerifyMode := [];
LHandler.SSLOptions.VerifyDepth := 0;
SMTP.IOHandler := LHandler;
end;
if MAIL_AYARLARI.edtGIDEN_SUNUCU_SIFRELEME.Text='SSL'
then SMTP.UseTLS := utUseImplicitTLS;
if MAIL_AYARLARI.edtGIDEN_SUNUCU_SIFRELEME.Text='TSL'
then SMTP.UseTLS := utUseExplicitTLS;
SMTP.ConnectTimeout := 10000;
mmoDURUM.Lines.Add('Sunucuya Bağlanılıyor.');
SMTP.Connect;
mmoDURUM.Lines.Add('E-posta gönderiliyor.');
EPosta.Clear;
EPosta.From.Address := MAIL_AYARLARI.edtHAREKET_MAIL_ADRESI.Text;//EditUSER.Text;
EPosta.From.Name := 'ARAC TAKIP RAPORU';
EPosta.ReplyTo.EMailAddresses := MAIL_AYARLARI.edtKULLANICI_ADI.Text;
//EPosta.ReplyTo.Name := EditUSER.Text;
with EPosta.Recipients.Add do
begin
if MAIL_AYARLARI.edtHAREKET_MAIL_ADRESI.Text > '' then
begin
Name := MAIL_AYARLARI.edtHAREKET_MAIL_ADRESI.Text ;
Address := MAIL_AYARLARI.edtHAREKET_MAIL_ADRESI.Text ;
end else
begin
Name :=MAIL_AYARLARI.edtHAREKET_MAIL_ADRESI.Text;
Address := MAIL_AYARLARI.edtHAREKET_MAIL_ADRESI.Text;
end;
end;
EPosta.Subject := DateToStr(dtpTARIH.Date)+ ' TARIH ARAC TAKIP RAPORLARI';
EPostaIcerikHazirla(Sender);
SMTP.Send(EPosta);
mmoDURUM.Lines.Add('Bağlantı başarılı. E-posta gönderilmiştir.');
finally
mmoDURUM.Lines.Add('Bağlantı sonlandırılıyor.');
if SMTP.Connected then SMTP.Disconnect;
end;
end;
-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
-
- Üye
- Mesajlar: 6
- Kayıt: 26 Haz 2021 08:29
Re: Yandex SMTP Mail Gönderimi
Aynı hata var ve hala çözemedim, siz bir çözüm bulabildiniz mi?akissoftware yazdı: ↑17 Kas 2017 03:57 Arkadaşlar hepinize merhaba;
Bir kaç gündür girmediğim site denemediğim component kalmadı sanırım. SMTP özelliğiyle Yandex üzerinden mail gönderemiyorum. OSmtp diye ücretli bir komponent var onla çalışıyor ama o da süreli olduğu için süresi bitti. Ne yapacağımı bilemiyorum bir türlü yapamadım.
"Delphi 7" kullanıyorum. Yardımlarınızı bekliyorum. Teşekkürler
Re: Yandex SMTP Mail Gönderimi
Merhaba, aldığınız hata ve ilgili kodunuzu paylaşabilir misiniz?atillademirci12 yazdı: ↑26 Haz 2021 08:30 Aynı hata var ve hala çözemedim, siz bir çözüm bulabildiniz mi?