Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama C++ Builder Mail Programı (Mail Gönderme Programı)


Mail Programı (Mail Gönderme Programı)

AÇIKLAMA

C++ Builder 6 ile uyumludur. Bu programda uygun bir mail sunucusu üzerinden mail atılması sağlanmıştır.Programdaki mail servisine uygun url'yi girdikten sonra daha sonra mail servisinizin kullanıcı adını girecekseniz. Buradaki kullanıcı ismi bazı sunucularda genel herhangi bir ifade olabileceği gibi, bazı sunucularda kullandığınız mail adresidir. Sonrasında mailinizin şifresini ve mail sunucusu üzerindeki mail şifrenizi giriniz. Bu bilgiler mail sunucunuzda login olabilmeniz yani oturum açabilmeniz için gerekli olan verilerdir.
 
Bu ayarlamalı yaptıktan sonra mailin hangi adresten gideceğini yazınız, bu adres istediğiniz herhangi bir mail adresi olabilir mail kutusunda (örnek hotmaile maili açtığınızda) bu adres görünecektir. İsim kısmına girdiğiniz veri ana mail ekranında (örnek hotmaile girdiğinizde) görünecek isimdir. Kime ise mailin gönderileceği adrestir. Konu ve içeriğide yazdıktan sonra tüm ayarlar doğru şekilde yapılmışsa mail atılacaktır. Bu programda tek bir alıcıya mail gönderilmiş olup program toplu mail atılmalarını sağlamak mail listeleri oluşturmak ve sadece uygun kişileri mailler atmak amacıyla kolaylıkla geliştirilebilir.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt 

Program Kodu:

Unit1.cpp

  1.  
  2.  
  3. //---------------------------------------------------------------------------
  4.  
  5. #include <vcl.h>
  6. #pragma hdrstop
  7.  
  8. #include "Unit1.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma resource "*.dfm"
  12. TForm1 *Form1;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.         : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19.  
  20.  
  21. void __fastcall TForm1::Button1Click(TObject *Sender)
  22. {
  23. IdSMTP1->Port=587;
  24. IdSMTP1->Host=Edit5->Text;
  25. IdSMTP1->UserId=Edit6->Text;
  26. IdSMTP1->Password=Edit7->Text;
  27. IdMessage1->Sender->Address=Edit1->Text;
  28. IdMessage1->Sender->Name=Edit2->Text;
  29. IdMessage1->From->Name=Edit2->Text;
  30. IdMessage1->From->Address=Edit8->Text;
  31. IdMessage1->Recipients->EMailAddresses=Edit3->Text;
  32. IdMessage1->Subject=Edit4->Text;
  33. IdMessage1->Body->Assign(Memo1->Lines);
  34. try
  35. {
  36.     IdSMTP1->Connect();
  37.     try
  38.     {
  39.       IdSMTP1->Send(IdMessage1);
  40.       Application->MessageBox("Mail Gönderildi","BİLGİ",MB_ICONINFORMATION);
  41.       IdSMTP1->Disconnect();
  42.     }
  43.     catch (Exception &E)
  44.     {
  45.         ShowMessage("Failed: " + E.Message );
  46.         IdSMTP1->Disconnect();
  47.     }
  48. }
  49. catch (Exception &E)
  50. {
  51.   ShowMessage("Failed:" + E.Message );
  52.   IdSMTP1->Disconnect();
  53. }
  54. }
  55. //---------------------------------------------------------------------------
  56.  
  57.  
  58.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Pazar, 02 Eylül 2012 23:12 )