INDY bileşenleri ile mail gönderme

[conari]

Arkadaşlar INDY bileşenleri ile mail göndermek için aşağıda ki kodu kullanıyorum.Prosedürü Sitede buldum.
IdDMTP ve IDMessage koydum ve aşağıdaki sekilde kullanıyorum.
Ama mail alamadım. Eksikliğim nerdedir.?
Teşekkürler..

Kod: Tümünü seç

procedure TSform.Mail1Click(Sender: TObject);

begin
   //setup mail message
   SMTP.Host := 'mail.serverlink.com';
   SMTP.Port := 25;
   MailMessage.From.Address :='gönderen@adres.com';
   MailMessage.Recipients.EMailAddresses := 'alici@adres.com' ;
   MailMessage.Subject := 'deneme';
   MailMessage.Body.Text := 'deneme text' ; // memoda eklenebilir...
   //send mail 
   try
      try
         SMTP.Connect(1000);
         SMTP.Send(MailMessage);
      except on E:Exception do
         showmessage('DİKKAT!: Bir hata oluştu, hata kodu : 12345 ');
      end;
   finally
      if SMTP.Connected
         then SMTP.Disconnect;
end;
    end;

[conari]

Pardon arkadaşlar Bu şekilde mail gidiyor. Fakat Local de ki bir Exchange Servere göndermede problem oluyor.Bunu nasıl giderebililiriz.

yani mail adresi eğer isim@server.local şeklinde ise v.s.