Delphi'de Yaptığınız Programlar İle Mail Gönderin

[bypit]

Delphi'de Yaptığınız Programlar İle Mail Gönderinunit Unit1;

interface

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

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
OpenDialog1: TOpenDialog;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit3.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdMessage1.Clear;
IdMessage1.From.Text :=Edit1.Text;
IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text;
IdMessage1.Recipients.EMailAddresses:=Edit2.Text;
IdMessage1.Date:=Date;
IdMessage1.Subject:=Edit4.Text;
IdMessage1.Priority:=mpNormal;
if not (Edit3.Text=") then TIdAttachment.Create(IdMessage1.MessageParts,Edit3 .Text); IdMessage1.Body.Assign(Memo1.Lines);
//Connexion au serveur smtp
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='xxxx';
IdSMTP1.Port:=25;
IdSMTP1.UserName:='xxxx';
IdSMTP1.Password:='xxxx';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
end;

end.

[ozan160]

dostum açıklarmısın biraz ben delphiye şimdi başladım email adresimi nereye yazıcam ?

[ozan160]

veya sen benim email adresimi eklermisin ozan_kalyon@hotmail.com

[Psikoloq]

Kardeşim oda bilmiyor zaten konu alıntı...

[bypit]

efet arkadasım konu alıntı ben delphiden anlamam valla

[Diq3N]

Ben aciklayayim arkadaslar Bilmeyen kalmasn

IdMessage1.Clear;
IdMessage1.From.Text :=Edit1.Text; // gonderen
IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text; // cevap maili yani kisi size hangi mailden cevap versin
IdMessage1.Recipients.EMailAddresses:=Edit2.Text; //onun adresi
IdMessage1.Date:=Date; // zaman
IdMessage1.Subject:=Edit4.Text; // konu
IdMessage1.Priority:=mpNormal; // onemlilik
if not (Edit3.Text=") then TIdAttachment.Create(IdMessage1.MessageParts,Edit3 .Text); IdMessage1.Body.Assign(Memo1.Lines);

Kodu Göndereceginiz mailin Alanlarini doldurur yani

 IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='xxxx'; // smtp hostu
IdSMTP1.Port:=25; // smtp portu
IdSMTP1.UserName:='xxxx'; // smpt kullanici adi
IdSMTP1.Password:='xxxx'; // smpt sifresi 
IdSMTP1.Connect; // baqlan 

ama ben sahsen bunu qullanmiyorum Neden derseniz hem programiniz bi virus olarak gözüküyor hemde cogu zaman hata verior örnek veriorm smtp yi hotmaile ayarladiysaniz gmaile göndermior Ben karamail kullanmanizi tavsiye ederim..

SeLametLe..