Delphi -- e-mail Göndermek

Delphi Dünyası Facebook'ta

Duyurular

Kodbank Ä°ndir

! CODEBANK 2012 !

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

« önceki sonraki »
Sayfa: [1] 2  Hepsi   AÅŸağı git

Gönderen Konu: e-mail Göndermek  (Okunma sayısı 6369 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • Ä°leti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
e-mail Göndermek
« : 13 Ekim 2005 20:01:06 »
Kod:  (Unknown Language)
  1. Procedure TForm1.Button1Click(Sender: TObject);
  2.  
  3. Begin
  4.  
  5.   NMSMTP1.Host:= 'smtp.mailserver.com';
  6.  
  7.   NMSMTP1.UserID:= 'Kullanici ID';
  8.  
  9.   NMSMTP1.Connect;
  10.  
  11.  
  12.  
  13.   NMSMTP1.PostMessage.FromAddress:= 'Gönderenin e-mail adresi';
  14.  
  15.   NMSMTP1.PostMessage.ToAddress.Text:= 'Gönderilecek e-mail adresi';
  16.  
  17.   NMSMTP1.PostMessage.Body.Text:= 'Örnek mesaj';
  18.  
  19.   NMSMTP1.PostMessage.Subject:= 'Konuyu Buraya Yaz ';
  20.  
  21.   NMSMTP1.SendMail;
  22.  
  23. End;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

muderless

  • Ziyaretçi
Indy bileşenleri kulanılarak mail gönderme......
« Yanıtla #1 : 29 Kasım 2005 13:32:51 »
Kod: [Seç]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    IdSMTP1: TIdSMTP; // Delphi 7 de indy Client sekmesinde
    OpenDialog1: TOpenDialog; // Tüm Delphilerde Dialog sekmesinde
    IdMessage1: TIdMessage;// Delphi 7 de indy Misc sekmesinde
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit3.Text:=OpenDialog1.FileName; // dosya eklemek için

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdMessage1.Clear;
IdMessage1.From.Text :=Edit1.Text;  // kimden geldiği
IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text; // gönderenin mail adresi
IdMessage1.Recipients.EMailAddresses:=Edit2.Text; // gönderilecek adres
IdMessage1.Date:=Date;  //günün tarihi
IdMessage1.Subject:=Edit4.Text;  // konu su
IdMessage1.Body.Text := memo1.Text; // mesajınız buraya
IdMessage1.Priority:=mpNormal;
// eklenecek dosyalar
if not (Edit3.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Edit3.Text);
IdMessage1.Body.Assign(Memo1.Lines);
//smtp ile server a bağlanma
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='mail.isim.comt';  // mail server adı
IdSMTP1.Port:=25;
IdSMTP1.UserName:=' isim@isim.com '; //hesap adı
IdSMTP1.Password:=' şifre buraya';  // hesap şifresi
IdSMTP1.Connect;   // bağlan
try
IdSMTP1.Send(IdMessage1);  // bağlı mesajların gönderimi
finally
IdSMTP1.Disconnect; // bağlantını kesilmesi
end;
end;

end.
böle olursa daha iyi anlaşılır gibi geldi bana karar sizin
« Son Düzenleme: 29 Kasım 2005 13:36:10 by muderless »
Kayıtlı

muderless

  • Ziyaretçi
Indy Bileşenleri Kullanılarak Mail Gönderme
« Yanıtla #2 : 01 Ocak 2006 16:13:14 »
örnekler ekte mevcut olup açıklamaları code arasında belirtilmiştir.

iyi çalışmalar..

Kayıtlı

Çevrimdışı mrblackman

  • Delphi 1 Level 1
  • *
  • Ä°leti: 8
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: e-mail Göndermek
« Yanıtla #3 : 18 Temmuz 2006 00:27:23 »
muderless teşekkürler güzel örnekler yollamışsın ama bir türlü baglantı kuramıyorum. hata veriyor, acaba yanlış bilgiler mi yazıyorum? bilgi olarak yazılması gerekenleri yazabilir misin acık olarak? simdiden teşekkürler...
Kayıtlı
#Mr Black Man#

Çevrimdışı teknolok

  • Global Moderatör
  • *****
  • Ä°leti: 155
  • Rep: +3/-1
  • Cinsiyet: Bay
Ynt: e-mail Göndermek
« Yanıtla #4 : 19 Temmuz 2006 13:46:09 »
smtp servisi olrak hangi servisi kullanıyorsun ?
Kayıtlı
Bizim gerçek kıldıklarımıza Onların hayalleri yetişemedi ....FATİH SULTAN MEHMET HAN

Çevrimdışı Zeynep_87

  • Delphi 1 Level 4
  • ****
  • Ä°leti: 38
  • Rep: +0/-2
Ynt: e-mail Göndermek
« Yanıtla #5 : 01 Haziran 2007 12:38:00 »
Bu örnekler güzel ama ben de bağlantı kuramadım. hata veriyor... Çok önce eklenen bi mesaj ama belki bilen vardır...
Kayıtlı

kamberozinan

  • Ziyaretçi
Ynt: e-mail Göndermek
« Yanıtla #6 : 03 Haziran 2007 15:14:19 »
arkadaşlar elinde takip programı olan var mı lütfen yardım edin bana otel takip prg lazım yardım edin kot satırlarıu olan varsa yada yardım ede bilecek biri varsa kamberozinan1@hotmail.com email adresim lütfen yardım edin  çooooooook acil ALLAH rızası için
Kayıtlı

Çevrimdışı Zeynep_87

  • Delphi 1 Level 4
  • ****
  • Ä°leti: 38
  • Rep: +0/-2
Ynt: e-mail Göndermek
« Yanıtla #7 : 03 Haziran 2007 15:29:17 »
hangi kod satırları söyle yardım edelim....
Kayıtlı

kamberozinan

  • Ziyaretçi
Ynt: e-mail Göndermek
« Yanıtla #8 : 03 Haziran 2007 16:36:01 »
ya ben formunu yapa bildim yarım yamalak oda kot satırları yapılacak yaptığım kadarını göndereyim  istersen yardım edersen büyük ii lik etmiş olursun ya
Kayıtlı

Çevrimdışı sanalboq

  • Delphi 2 Level 3
  • ***
  • Ä°leti: 73
  • Rep: +0/-0
Ynt: e-mail Göndermek
« Yanıtla #9 : 06 Haziran 2007 11:53:04 »
şimdi çok guzel kodlarda hemen hemen her sitede var ben bunları hotmail e gmail yahoo ya uyarladım oda yetmedi bedava smtp veren siteleri kullandım yine olmadı siz bunu nasıl başarıyorusunuz
Kayıtlı

Çevrimdışı argeibrahim

  • Delphi 2 Level 2
  • **
  • Ä°leti: 61
  • Rep: +0/-0
Ynt: e-mail Göndermek
« Yanıtla #10 : 14 AÄŸustos 2007 07:52:52 »
dostum www.gmx.net bu siteden al mail atarsın ben öyle çözdüm gmail, yahoo, hotmail atmıo burdan denedim burdan aldım hemen anında attı kolaygelsın
Kayıtlı

Çevrimdışı karakas

  • Delphi 1 Level 1
  • *
  • Ä°leti: 6
  • Rep: +0/-0
Ynt: e-mail Göndermek
« Yanıtla #11 : 19 Eylül 2007 16:12:32 »
Arkadaşlar yaklaşık 1 sene öncesinde bir arkadaşımız yazmış olduğu bir program vardı programdan smtp falan seçmiyorduk kendi adresine ne yazarsan yaz altına adını yaz gidecek adresi yaz bir ne yazmak istersen yaz ve yolla böyle bir program vardı dediğim gibi smtp server kullanmadan nasıl yapılır bu iş
Kayıtlı

Çevrimdışı akrep

  • Global Moderatör
  • *****
  • Ä°leti: 1.242
  • Rep: +27/-13
  • Cinsiyet: Bay
Ynt: e-mail Göndermek
« Yanıtla #12 : 19 Eylül 2007 17:23:09 »
Lokal smtp server kurularak yapılmış olabilir yada sabit bir smtp server kullanıyordur program ama kullanıcı bunu değiştiremiyor ve görmüyordur.
Kayıtlı
Tomurcuk derdinde olmayan ağaç, odundur - Necip Fazıl Kısakürek

Çevrimdışı ZoRan

  • Delphi 3 Level 2
  • **
  • Ä°leti: 115
  • Rep: +1/-0
  • Cinsiyet: Bay
    • Proton Yazılım
Ynt: e-mail Göndermek
« Yanıtla #13 : 22 Eylül 2008 16:17:50 »
Ben Delphi 2005 kullanıyorum ve bu örnekteki ( Galiba gezegen de bir tek ben varım 2005 kullanan )
bu satır
TIdAttachment.Create(IdMessage1.MessageParts,Edit3.Text);
Delphi 2005 ile uyumlu deÄŸil daha doÄŸrusu Indy 10 ile uyumlu deÄŸil.
Maile Ataç eklemek için Delphi 2005 deki Indy 10 ile uyumlu kod nedir.

Kayıtlı
İmza Atmaya fırsat Bulmadım. En yakın zamanda atarız bir imza.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • Ä°leti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: e-mail Göndermek
« Yanıtla #14 : 22 Eylül 2008 19:43:06 »
Muhtemelen aşağıdaki linkte vardır.

http://www.diyezon.com/
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.
Sayfa: [1] 2  Hepsi   Yukarı git
« önceki sonraki »