idSMTP Mail Gönderme

[aveysel]

Arkadaşlar ;

Şu aşağıdaki komutlar ın ve ayarların neresi yanlış ya, lütfen birisi bana akıl velsin yoksa kafayı yiyeceğim;

Kendi mail sunucumdan idSMTP nesnesini kullanarak hotmail hesabıma mail yollayamıyorum.


(idSMTP ayarlarımı aşağıdaki şekilde yapıyorum)
(Outlook programımı bu ayarlarla rahatlıkla kullanabiliyorum)

Host: mail.dijitalturk.com
password: xxxxxx
username: admin@dijitalturk.com (Sadece admin olarak da denedim)
----------------------------------------------------------------------
Komut satırım (Buton onclick olayına)

smtp.AuthenticationType :=atlogin; (atNone olarak da denedim)
smtp.Connect(10000);
smtp.QuickSend('mail.dijitalturk.com','Deneme','airveysel@hotmail.com','air@dijitalturk.com',watch.LocalIP +' '+ watch.LocalName +' '+ datetostr(date) +' '+ timetostr(time));
showmessage('yollandi');
-----------------------------------

Verdiği Hata Mesajı

EidProtocalReplyError withmessage'Not Local Host Hotmail.Com, Not a Gateway'


Lütfen Yardımcı Olun..

[mussimsek]

lütfen forum kurallarını okuyup, uyalım.

- Eğer sorduğunuz soruya verilen cevap tam olarak işiniz görmedi veya ekstra bilgiye ihtiyacınız varsa, ilgili başlığa devam edin. Yeni bir başlık açmayın. Açılması durumunda haber verilmeksizin kitlenecek veya silinecektir.

İyi günler.

[fahrettin]

Oncelikle forum kurallarına uyalım lutfen....

En iyisi kendi kullandıgım fonksiyonu gondereyim bari....

Kod: Tümünü seç

function SendMail(Sender:TComponent;VAR_KIMDEN:string;VAR_DONUS_ADRESI:string; VAR_ALICI_E_MAILLER:string;VAR_KONU:string;VAR_MESAJ:String):Boolean;
var
  SMTP:TIdSMTP;
  MSS_SMTP:TIdMessage;
  VAR_QUERY:TQuery;
  VAR_BODY:TStringList;
begin
  VAR_BODY:=TStringList.Create();
  SMTP:=TIdSMTP.Create(Sender);
  MSS_SMTP:=TIdMessage.Create(Sender);
  with MSS_SMTP do
  begin
    Clear;
    VAR_BODY.Add(VAR_MESAJ);
    Body.Assign(VAR_BODY);    // mesaj
    From.Text := VAR_KIMDEN; //kimden kısmında gorunecek text
    ReplyTo.EMailAddresses := VAR_DONUS_ADRESI; //e-mail adresim
    Recipients.EMailAddresses := VAR_ALICI_E_MAILLER;// fahrettin@rams.com.tr;fahrettin.aksakal@rams.com.tr..... seklinde ; ile ayrilmis e-mailler...
    Subject := VAR_KONU; // e-mail konusu
    SMTP.AuthenticationType := atLogin // Relay'e kapali SMTP serverlar icin....
    SMTP.Username := 'fahrettin';
    SMTP.Password := '*********';
    SMTP.Host:='mail.rams.com.tr';
    SMTP.Port:=25;
    try
      SMTP.Connect;
      SMTP.Send(MSS_SMTP);
      SMTP.Disconnect;
      SendMail:=True;
    except
      SMTP.Disconnect;
      SendMail:=False;
    end;
  end;
  SMTP.Free;
  MSS_SMTP.Free;
end;