İndy'den SMTPReply Hatası Alıyorum Neden;

[nuran]

var
ekm:Tinifile;
begin

IdSMTP := TIdSMTP.Create(nil);
ekm:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'mail.ini');
try

IdSMTP.host:=ekm.Readstring('Form','host','');

IdSMTP.username:=ekm.Readstring('Form','username','');
IdSMTP.Password:=ekm.Readstring('Form','Password','');
IdSMTP.port:=ekm.ReadInteger('Form','Port',1);
IdSMTP.AuthType := atDefault;
finally
ekm.Free;
end;

IdMessage:=TIdMessage.Create(nil);
IdMessage.From.address := 'n.s@aa.com';
IdMESSAGE.Recipients.EMailAddresses:= 'n.s@aa.com';
IdMESSAGE.CClist.EMailAddresses:= 'n.s@aa.com';
IdMessage.Subject:= '111';
IdMessage.Body.text:='2222';
IdSMTP.Connect;
IdSMTP.Authenticate;
try
IdSMTP.Send(IdMessage);
ShowMessage('Mail Gönderildi.');

finally
IdSMTP.Disconnect;
end;

Küçük Çerçeve içinde

X

tamam

İfadesi çıkıyor karşıma

[csunguray]

Aşağıdaki kodlar bende sorunsuz şekilde çalıştı ve e-postaları gönderdi.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Ekm: Tinifile;
begin
  IdSMTP := TIdSMTP.Create(nil);
  Ekm := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'mail.ini');
  try
    IdSMTP.host := 'mail.aaa.com'; // Ekm.Readstring('Form', 'host', '');
    IdSMTP.username := 'info@aaa.com'; //Ekm.Readstring('Form', 'username', '');
    IdSMTP.Password := 'ppp'; //Ekm.Readstring('Form', 'Password', '');
    IdSMTP.port := 2500; // Ekm.ReadInteger('Form', 'Port', 1);
    IdSMTP.AuthType := satDefault;
  finally
    Ekm.Free;
  end;

  // IdMessage := TIdMessage.Create(nil);
  IdMessage.From.address := 'info@aaa.com';
  IdMESSAGE.Recipients.EMailAddresses := 'bilgi@xxx.com';
  IdMESSAGE.CClist.EMailAddresses := 'bilgi@yyy.com';
  IdMessage.Subject := 'Delphi IdSMTP Test';
  IdMessage.Body.text := 'Delphi ile IdSMTP Testi';
  IdSMTP.Connect;
  // IdSMTP.Authenticate;
  try
    IdSMTP.Send(IdMessage);
    ShowMessage('Mail Gönderildi.');
  finally
    IdSMTP.Disconnect;
  end;
end;

Form kodu (Bu kodu form görüntüleniyorken Alt-F12 tuşuna basarak görüntüleyebilirsiniz.)

Kod: Tümünü seç

object Form1: TForm1
  Left = 192
  Top = 133
  Width = 924
  Height = 479
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 424
    Top = 192
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object IdSMTP: TIdSMTP
    SASLMechanisms = <>
    Left = 560
    Top = 104
  end
  object IdMessage: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    Encoding = meDefault
    FromList = <
      item
      end>
    Recipients = <>
    ReplyTo = <>
    ConvertPreamble = True
    Left = 560
    Top = 144
  end
end

Sizden farklı olarak ben de Indy 10 yüklü ama çok da önemli değil. Aşağıdaki hatalardan birini yapıyor olabilirsiniz:

1. Virüs koruyucu programınız, uygulamanızın mail göndermesine engel oluyor oabilir.

2. Port numarasını yanlış yazıyor olabilirsiniz.

3. SMTP host adresi, username ve şifre den birini yanlış yazıyor olabilirsiniz. E-Posta gönderirken kullandığınız e-posta adresi MS Office Outlook veya Windows Live Mail gibi bir e-posta istemcisi programaya yüklü ve sorunsuz şekilde çalışıyor mu? Ayarlarınızı bu programlardan birinde deneyebilirsiniz.

4. Eğer normal bir SMTP sunucu değil de GMail kullanıyorsanız, GMail ssl kullandığı için bir takım ek işlemler yapmanız gerekecektir. Bulduğum örnek:

Send mail to GMail using Indy
http://www.marcocantu.com/tips/oct06_gmail.html

Kolay gelsin.

[nuran]

SMTPReply error hatası alıyorum.

[csunguray]

Hata mesajını tam olarak yazar mısınız?

[nuran]

Bend elphi 2006 kullanıyorum.
Programın 4 yıldır sorunsuz çalışıyordu.
Server üzerinde çalışma yaptılar. Banada programlara SSL kullan dediler.
SSL kullanmak istediğimde

EIdOSSLcouldnotload with messages SSLLibrary could not load SSL

mesajı alıyorum.

bende delphide tool paletde- indy I/O handler altında, SSL ile ilgili
IdSSLIOHandlerSocketOpenSSL1
IdServerIOHandlerSSLOpenSSL1

sadece bunlar var.

SSL IOhandler yok.


İlgilendiğiniz için çok teşekkür ederim.
Bu sorunu çözmem lazım