07-05-2022, Saat: 18:15
(Son Düzenleme: 07-05-2022, Saat: 18:17, Düzenleyen: barissagir.)
Merhaba arkadaşlar,
Aşağıdaki kodla gmailden mail gönderebiliyorum.
Ancak hotmailde hata veriyor. Hata kodu : Socket Error 10060.
Nasıl çözebilirim yardımcı olabilir misiniz?
** Gmailde de aynı hatayı veriyordu
1- Güvenliği düşük uygulama erişimi ni AÇIK yaptım.
2- Google Hesabınıza erişim izni verme kısmında DEVAM a tıkladım
sorun çözüldü.
Hotmail içinde böyle bir ayar gerekiyor mu?
Aşağıdaki kodla gmailden mail gönderebiliyorum.
Ancak hotmailde hata veriyor. Hata kodu : Socket Error 10060.
Nasıl çözebilirim yardımcı olabilir misiniz?
** Gmailde de aynı hatayı veriyordu
1- Güvenliği düşük uygulama erişimi ni AÇIK yaptım.
2- Google Hesabınıza erişim izni verme kısmında DEVAM a tıkladım
sorun çözüldü.
Hotmail içinde böyle bir ayar gerekiyor mu?
procedure mailGonder(username, password, totarget, subject, body: string);
var
DATA: TIdMessage;
SMTP: TIdSMTP;
SSL: TIdSSLIOHandlerSocketOpenSSL;
Attachment: TIdAttachment;
begin
SMTP := TIdSMTP.Create(nil);
DATA := TIdMessage.Create(nil);
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.SSLOptions.Method := sslvTLSv1;
SSL.SSLOptions.SSLVersions := [sslvTLSv1];
SSL.SSLOptions.Mode := sslmUnassigned;
SSL.SSLOptions.VerifyMode := [];
SSL.SSLOptions.VerifyDepth := 0;
DATA.From.Address := username;
DATA.Recipients.EMailAddresses := totarget;
DATA.subject := subject;
DATA.body.text := body;
SMTP.IOHandler := SSL;
SMTP.Host :=trim(eMailF.SMTP.Text);// 'smtp.gmail.com';
SMTP.Port :=StrToInt(eMailF.Port.Text);// 587;
SMTP.username := username;
SMTP.password := password;
SMTP.UseTLS := utUseExplicitTLS;
SMTP.Connect;
SMTP.Send(DATA);
Showmessage('Mail Gönderildi');
SMTP.Disconnect;
Attachment.Free;
SMTP.Free;
DATA.Free;
SSL.Free;
eMailF.close;
end;

