Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Delphi mail yollama  (Okunma sayısı 368 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı metin_ay

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +0/-0
Delphi mail yollama
« : 18 Ocak 2012 11:28:16 »
Delphi mail yollamak istiyorum. internette araştırma yatım ama hep delphi 7 ye göre kodlar. Ben delphi XE kullanıyorum. Yardımcı olursanız sevinirim.
Kayıtlı

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Delphi mail yollama
« Yanıtla #1 : 18 Ocak 2012 11:49:50 »
kullandığın delphi sürümü farketmez :) idSMTP ile yollarsın idPOP3 ile alırsın :)
Kayıtlı
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı metin_ay

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +0/-0
Ynt: Delphi mail yollama
« Yanıtla #2 : 18 Ocak 2012 19:03:22 »
süpersin :D. Bide nasıl kullanıldığını söylersen sevinirim :D. Bende 2 compeneti eklemedim ama ...
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
 form1.IdSMTP1.Host     :=edit1.Text; // pop3 posta adresin olması lazım
  form1.IdSMTP1.Username   :=edit2.Text;
  form1.IdSMTP1.Password :=edit3.Text;
  form1.IdSMTP1.AuthenticationType:=atLogin;
   form1.idsmtp1.Port:= 25;
  try
  form1.IdSMTP1.Connect;
  except

  end;
  form1.IdMessage1.From.Address             :=edit2.Text; // gelen mail adresi
  form1.IdMessage1.Recipients.EMailAddresses:=edit2.Text;// gideceği mail adresi
  form1.IdMessage1.Subject                  :=edit4.Text; // mail başlığı
  form1.IdMessage1.Body.add(memo1.Text);// edit1 deki yazı
  form1.IdSMTP1.Send(form1.IdMessage1);
  form1.IdSMTP1.Disconnect;
  form1.IdMessage1.Clear;
  label3.Caption:='Mail Gönderildi';
  end;
end;

ışıldayan yazı olan kasmı delphi 7 de var ama delphi xe yok, yani bu eksiklikten dolay mail yollanmıyo :D.



Kayıtlı

Çevrimdışı BenYeniyimGaliba

  • Delphi 1 Level 4
  • ****
  • İleti: 34
  • Rep: +0/-0
Ynt: Delphi mail yollama
« Yanıtla #3 : 18 Ocak 2012 20:35:21 »
Kod: [Seç]
      IdSMTP1.Host:='sitewebadam.com'; // Web sitenin adresi
      IdSMTP1.Username:='asdasd@addsd.sitewebadam.com'; //Bu adresten sana gelcek
      IdSMTP1.Password:='123'; // Mail adresinin şifresi işi garantiye alalım gitmiyor bazen amonyous olarak :S
      IdSMTP1.Port:=587; // Port
      IdSMTP1.Connect; // Bağlan...
      IdMessage1.From.Name:='manamanaaaa';
      IdMessage1.From.Address:='düd düüü dü düü düüt@gmail.com'; // Mail Bu adrese gelcek...
      IdMessage1.Subject:='manamanaa'; // Konu Olarak bu yazcak
      IdMessage1.Body.text:=('yaz bişiler'); // Mesaj Bu olcak
      IdMessage1.Recipients.EMailAddresses:='düd düüü dü düü düüt@gmail.com';
      IdSMTP1.Send(IdMessage1); //yolla
      IdSMTP1.Disconnect;// bağlantıyı kes..

xe kullanıyorum çalışıyor
Kayıtlı

Çevrimdışı metin_ay

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +0/-0
Ynt: Delphi mail yollama
« Yanıtla #4 : 18 Ocak 2012 21:54:39 »
Bir konuda yardım ederseniz sevinirim. Kod çalışıyor allah razıolsun. Ama mailler önemsiz maillere düşüyor. Bunu normale gönderebiliriz.?
Kayıtlı

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Delphi mail yollama
« Yanıtla #5 : 18 Ocak 2012 23:15:16 »
hah o olayı çözersen bize de haber ver :) bir dönem mail gönderme ile baya uğraştım ancak php ile gönderdiğim mailler inbox'a düşerken delphi ile yolladıklarım Junk kutusuna düşüyordu, Exchange,ISA,Kerio,Xysus gibi bir çok sunucu ile denedim hepsinde aynı.
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı metin_ay

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +0/-0
Ynt: Delphi mail yollama
« Yanıtla #6 : 18 Ocak 2012 23:43:43 »
Yolladığı mailde Türkçe karakter sorunu da var? Ne zor işmiş bu mail işi :D
Kayıtlı

Çevrimdışı Ali İbrahim

  • Delphi 1 Level 4
  • ****
  • İleti: 36
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Delphi mail yollama
« Yanıtla #7 : 19 Ocak 2012 08:42:22 »
Türkçe Dil Sorunu için" IdMessage1 Charset i     Latin5  " yap ve dene.Ayrıca gönderdiğin servis sağlayıcısı hangisi ben gmaile gönderiyorum ve normal gelen kutusuna düşüyor.Hotmailde hiç denemedim.
« Son Düzenleme: 19 Ocak 2012 08:44:07 by Ali İbrahim »
Kayıtlı
Ne Mutlu Türküm Diyene !!!

Çevrimdışı metin_ay

  • Delphi 1 Level 2
  • **
  • İleti: 13
  • Rep: +0/-0
Ynt: Delphi mail yollama
« Yanıtla #8 : 19 Ocak 2012 14:29:36 »
 IdMessage1 Charset i     Latin5 yaptım ama sonuç yine aynı, mailde Türkçe karakterler yine göstermiyo  ::( . Önemsiz mail olayı da hotmailde oluyor.
Kayıtlı

Çevrimdışı PCkoManyak

  • Delphi 1 Level 1
  • *
  • İleti: 5
  • Rep: +0/-0
  • Cinsiyet: Bay
  • Delphi Sürümü: Delphi XE2
Ynt: Delphi mail yollama
« Yanıtla #9 : 24 Ocak 2012 10:04:52 »
Selam dostum, eğer outlook üzerinden göndermek işine gelirse, aşağıdaki kodlarla bunu yapabilirsin.
Kodu bu şekilde kullanırsan attach vs. ekler ve outlook gönderim penceresi açar.
// kısımlarını düzenlersen eğer istediğin adrese outlook penceresi hiç açılmadan gönderebiliyorsun.

Kod: [Seç]
const olMailItem = 0;
 var Outlook,NmSpace, Folder: OLEVariant;
      MailItem: Variant;
 begin
   try
    Outlook:=GetActiveOleObject('Outlook.Application') ;
   except
    Outlook:=CreateOleObject('Outlook.Application') ;
   end;


   MailItem:=Outlook.CreateItem(olMailItem);
  // MailItem.Recipients.Add('delphi@delphidunyasi.net') ;
   MailItem.Subject := 'Delphi Outlook Email';
   MailItem.Body := 'Welcome to my homepage:http://delphidunyasi.net';
   MailItem.Attachments.Add('C:\deneme.txt') ;
   MailItem.display();
  // MailItem.send;
   //Outlook:=Unassigned;
 end;


bende bikaç gün önce buldum bu kodları. daha ayrıntılı bişeylere ihtiyacın olursa kaynak linkleri gönderebilirim.

Umarım işine yarar.
Kayıtlı

Çevrimdışı greenegitim

  • Delphi 1 Level 1
  • *
  • İleti: 5
  • Rep: +0/-0
Ynt: Delphi mail yollama
« Yanıtla #10 : 24 Ocak 2012 15:32:11 »
Jvmail kullanabilirsin örnekte var jvcl de tam hatırlamıyorum ama libeay32.dll ssleay32.dll kullanarak güzel bir mail gönderimi yapmış bir arkadaş vardı.
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »