İndy ile mail gönderme

[AliRiza]

Arkadaşlar Delphi 7 kullanmaktayım.Benim yapmak istediğim programı alan kullanıcıların benim programımdan mail göndermesi.Bunun için forumda araştırdım.Delphi 7'de Indy componentlerinde Idsmtp ile bunun yapabileceğim belirtiliyor.
Şimdi ben kullanıclara smtp host olarak kendi mail sunucunumu hostunu programdan kullandıttıracağım.
Biraz baktım Idmstp'nin kullanımını anladım.
Yalnız ben kullanıcıların forumdan gireceği verileri göndermek istiyorum.
idsmtp'ye nasıl edit veya liste kutusundaki bilgileri eklerim.
idmessage nasıl kullanılıyor.
Bana bu konuda bilgi verirseniz çoksevinirim.

[mege]

idmessage
sonucunda bu hariç 4 mesaj var ve bunlardan iki tanesi makale.
diğer ikisi ise karşılaşılmış problem ve çözümleri

kolay gelsin

[hbahadir]

http://www.nevrona.com/indy

adresinde indy ' nin demoları var.

Kolay gelsin
Hüseyin BAHADIR

[AliRiza]

Arkadaşlar olayı anladım.Fahrettin abinin yazdığı fonksiyonu aldım.Yalnız
mail göndermeme rağmen mail e-kolay.net'teki hesabıma mail gitmiyor.Sizce nedeni ne olabilir?
hotpop smtp desteğine sahip olduğu için oradan hesap açtım.
Bağlanıyor hata da vermiyor.

Kod: Tümünü seç

 
procedure Tform4.baglan();
var
  SMTP:TIdSMTP;
  MSS_SMTP:TIdMessage;
  Sender:Tcomponent;
  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('Deneme');
    Body.Assign(VAR_BODY);
    From.Text := 'Müşteri';
    ReplyTo.EMailAddresses := 'yumert@hotpop.com';
    Recipients.EMailAddresses :='yumert2002@e-kolay.net';
     Subject :='Deneme içindir';
    SMTP.AuthenticationType := atlogin;
    SMTP.Username := 'yumert@hotpop.com';
    SMTP.Password := '********';
    SMTP.Host:='smtp.hotpop.com';
    SMTP.Port:=25;
    try
      SMTP.Connect;

      SMTP.Send(MSS_SMTP);
      SMTP.Disconnect;

    except
      SMTP.Disconnect;

    end;
  end;
  SMTP.Free;
  MSS_SMTP.Free;
end;

[gkimirti]

hotpop,gmx vs. gibi pop3 destegi veren yerler ile gonderemezsiniz...
bu bahis daha önceki yazısmalarda gecmisti

kurumsal bir email adresiniz varsa onda deneyin

[AliRiza]

Yardımınız için çok teşekkür ederim.Yalnız forumda yaptığım araştırmalarda hotpop 'ın smtp desteği olduğu idi.O nedenle orayı kullanmak istedim.E-kolay.net'ten hesabım var.Onu kullandığımda da
invalid replyadress hatası alıyorum.anlamadım.

[Misafir]

merhaba.
bazı kurumsal pop3 hesaplarında da problem çıkıyor (örneğin türk ticaret)..bu konuda sorunsuz çalışan tek sunucu ttnet olarak biliyorum.hesabınız varsa bir de ondan deneyin.
kolay gelsin.

[warder]

http://www.softstack.com adresinde free smtp server mevcut. localhost olarak hiç değilse makinenizdeki denemelerinizde kullanırsınız. Belki denemek istersiniz.

[bilbeyi]

aldığınız hata cevap yazılacak adresin geçersiz olduğudur
bu satırı yazarsanız sanırım düzelir
IdMessage1.ReplyTo.EMailAddresses:=' sizin email adresiniz'

[AliRiza]

Hocam dikkat ederseniz kodda aynı cümle var.
Yukarıda var bloğunda kod kısaltılmış durumda.Yani varda MSS_SMTP diye Idmesaj tipinde tanımlama var.
Buda with do ile kısaltılmış durumda..

[AliRiza]

Arkadaşlar tüm herşey doğru.
Authorization failed hatası alıyorum.
Ne yapmam gerekir...

[AliRiza]

Arkadaşlar yardımlarınız için çok teşekkür ederim.
Problem idsmtp.authontication ifadesini authonticationtype ifadesiniden önce eklememle çözüldü.

Kod: Tümünü seç

 procedure Tform4.baglan();
var
  SMTP:TIdSMTP;
  MSS_SMTP:TIdMessage;
  Sender:Tcomponent;
  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('Deneme');
    Body.Assign(VAR_BODY);
    From.Text := 'Müşteri';

  ReplyTo.EMailAddresses :='export@sirketim.com';
    Recipients.EMailAddresses :='export@sirketim.com';
     Subject :='Son deneme.Gitti ise çalışıyor';
    smtp.Authenticate;
    smtp.AuthenticationType :=atlogin;
    smtp.Username :='export@sirketim.com';
    smtp.Password:='*******';

    smtp.Host:='mail.nastechnic.com';
    smtp.Port:=25;
    try
      smtp.Connect;

      SMTP.Send(MSS_SMTP);

      SMTP.Disconnect;

    except
      SMTP.Disconnect;

    end;
  end;
  SMTP.Free;
  MSS_SMTP.Free;
end;

Yalnız arkadaşlar denedim bu şekilde çalışıyor.Ancak alıcı mailini değiştirdiğimde

Kod: Tümünü seç

Recipients.EMailAddresses :='yumert2002@yahoo.com';

aşağıdaki hatayı alıyorum.

Kod: Tümünü seç

eıdprotocolreply error sorry,that domain isn't in my list of allow rcpthost

Neden olabilir.
reply ile recipient farklı olmazmı.