Chilkat ActiveXleri güzel ama bence çok basit fazla önemsememişler gibi geliyor. Catalyst firmasının componentleri güzel. Delphi. NET kullananlar için ideal...

OO trigger usta, 1st classın Teşekkürler

Enterasan ve Uzak bir yaklaşım olmuş; Form Üzerine Birtane IdSMTP ve bir tanede IdMessage Ekle Yine form üzerine mail bilgilerini yazmak için 3 Tane edit nesnesi koy. Edit1--> Kime Edit2--> Konu Edit3--> Mesaj Birde GÖnder butonu Ekle Button1. Click Eventine Kod: procedure TForm2. Button1Click ; begin IdSMTP1. Host:=mailhostunuyaz ; IdSMTP1. Username:=kullanıcıadın ; IdSMTP1. Password:=Parolanıyaz; IdSMTP1. AuthenticationType:=atLogin; try IdSMTP1. Connect; except ShowMessage ; end; IdMessage1. From. Address :='Göderen ADresi'; IdMessage1. Recipients. EMailAddresses:=Edi1. Text; IdMessage1. Subject :=Edit2. Text; IdMessage1. Body. Assign(Edit3. Text); try IdSMTP1. Send(IdMessage1); ShowMessage ; finally IdSMTP1. Disconnect; end; end;

Bu konuyu buradan çalıp kendi forumunda hiç bir alıntı ibaresi eklemeden kendi emeği gibi satmaya çalışan o meşhur hacker a selam olsun

Teşekkürler...

guzel vevkaladenın fevkınde XD yarın denıcem

Bu konuda Delphi ile mail gönderebilmek üzere hazırlanmış bir ActiveX in kurulumu ve kullanılmasını anlatacağım. İlgili ActiveX i buradan indirebilirsiniz. 1. Aşama Chilkat Mail ActiveX İndirilmesi ve Kurulumu A. Delphi 7 yi başlatıyoruz ve yeni bir proje dosyası açıyoruz. Aşağıda görüldüğü üzere menüden "Component-->Import ActiveX Control.." yolunu izliyoruz. B. "Chilkat Mail" ActiveX componentini seçiyoruz ve "Install..." diyoruz. C. OK' e tıklayarak bunu dclusr. dpk içine kuruyoruz. D. Paketin kurulumuna YES diyoruz. E. Bu paketin kurulumu sonucu componet paletinizin güncellediğini ve yeni componentinizin palette yerini aldığını öğreniyoruz. F. dclusr projesinden çıkıyoruz ve çıkışta sorulan değişiklikleri kaydet sorusuna Yes cevabı veriyoruz. ActiveX component paletine tıklayarak Chilkat MailMan ikonunu görebilirsiniz. Bu componenti formunuz üzerine bırakarak programlarınız içerisinde kullanabilirsiniz. Artık Chilkat Mail ActiveX kullanarak programlama yapmaya hazırız. 2. Aşama Chilkat Mail ile programlama Bu örnek iki nesneye ihtiyaç duyar: Mail gönderebilmek üzere bir ChilkatMailMan2 componenti ve maiin gönderilebilmesini sağlayacak olan ChilkatEmail2 nesnesi. ChilkatMailMan2 componenti paletten forma bırakılarak alınır. ChilkatEmail2 nesnesi ise ChilkatMailMan2. NewEmail. yolunun çağırılması ile dinamik olarak oluşturulur. Ve elbette bir de kodu onclick olayına yazacağımız"Mail Gönder" butonumuz. 3. Aşama Mail Gönder butonunu kodlama Kodumuz aşağıdaki gibi olacaktır. Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, CHILKATMAILLib2_TLB; type TForm1 = class ChilkatMailMan21: TChilkatMailMan2; Button1: TButton; procedure Button1Click ; private public end; var Form1: TForm1; implementation procedure TForm1. Button1Click ; var email: IChilkatEmail2; ok: Integer; begin ChilkatMailMan21. UnlockComponent('Anything for 30-day trial'); ChilkatMailMan21. SmtpHost := 'smtp.comcast. net'; // Smtp Host' umuzun adresini veriyoruz. email := ChilkatMailMan21. NewEmail ; // Yeni bir e-mail oluşturuyoruz. email. Subject := 'This is a test'; // Mail başlığı email. From := 'Chilkat Support <support@chilkatsoft.com>'; // Maili gönderen adres. email. AddTo ; // Mailin gönderileceği adres. email. Body := 'This is the body...'; // Mail gövdesi, yani içeriğinde yazacaklarımız. ok := ChilkatMailMan21. SendEmail ; // Maili gönderiyoruz. if (ok = 0) then // Eğer mail gönderilemedi ise bunu integer değişkenimizin sıfır değeri almasından anlarız. ChilkatMailMan21. SaveLastError ; // Mail gönderilemedi ise error loglarımıza kaydediyoruz. end; end. Orjinal üreticisinin kaynağından çevrilmiş derlemedir.trigger