ekli mail göndermede TIdAttachment kullanımı

[kamuran48]

selam,
ekli mail göndermek istiyorum.bunun için TIdAttachment gerektiğini örnek kodlardan öğrendim. bende delphi2007 yüklü ve indy10 yüklü fakat bu component yok.neyapmam gerekli.yardımcı olursanız sevinirim.kolay gelsin.

[Delphi Kitabı]

[barutali]

bende indy10 u kurmustum onda TIdAttachment sorununu bende yaşamıstım bu yüzden 9 a dönmüştüm yeniden ...

(Acil olduğu için sorunu çözmeye uğrasmamıstım .. )

[akrep]

Kod

if srFileSR.Size>2000 then begin
IdMessage1.Clear;
IdMessage1.From.Text :=raporgonderen;
IdMessage1.ReplyTo.EMailAddresses:=raporgonderen;
IdMessage1.Recipients.EMailAddresses:=raporalici;
IdMessage1.Date:=Date;
IdMessage1.Subject:=konu;
IdMessage1.Priority:=mpNormal;
TIdAttachment.Create(IdMessage1.MessageParts,kayitdosyasi);
//server baglanti
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:=smtphost;
IdSMTP1.Port:=smtpport;
IdSMTP1.UserId:=smtpkullanici;
IdSMTP1.Password:=smtpsifre;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;

TIdAttachment kullanımına dikkat edin, çalışma zamanında oluşturdum. Böyle olmuyor mu, denediniz mi?

[barutali]

bende öyle yapmıstım runtime da create etmedi bulamıyordu uses kısmına elle girdim o sıra yine yapmadı .. Daha sonra bende 9 la yaptım yine runtime da oluşturdum ozaman oldu ... ilginç

[kamuran48]

s.a
indy9 u yükleyince sorun çözüldü.fakat şu smtp hakkında şifre kullanıcı adı vs. bilgilerini birazcık açıklarmısınız.kolay gelsin.

[barutali]

s.a
indy9 u yükleyince sorun çözüldü.fakat şu smtp hakkında şifre kullanıcı adı vs. bilgilerini birazcık açıklarmısınız.kolay gelsin.

@akrep hocam zaten yazmış...


//server baglanti
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:=smtphost;            // Örn : mail.yazilimist.com    |  mail sunucusu
IdSMTP1.Port:=smtpport;             // örn  : 25      |  port numarası
IdSMTP1.UserId:=smtpkullanici;   // Örn :  a.yesiloglu@yazilimist.com  | Kullanıcı adı
IdSMTP1.Password:=smtpsifre;   //  Örn :  123456789  | ÅŸifre
IdSMTP1.Connect;