SMTP1.Host :=Data.SubeDosyasiMAILSERVER.Value;
smtp1.Username:=Data.SubeDosyasiMAILUSER.Value;
smtp1.Password:=Data.SubeDosyasiMAILPASSWORD.Value;
SMTP1.Port :=Data.SubeDosyasiMAILPORTU.Value;

// öncekileri temizle ve html destekli yap

Message1.Body.Clear;
Message1.MessageParts.Clear;

// ataç varsa bunu kullanacak
Message1.ContentType:='multipart/mixed';
message1.CharSet:='iso-8859-9';

Message1.From.Address:= Data.SubeDosyasiMAILADRESI.Value;
Message1.From.Name:=Data.SubeDosyasiDERNEKADI.Value;
Message1.Sender.Address:= Data.SubeDosyasiMAILADRESI.Value;
Message1.Sender.Name:=Data.SubeDosyasiDERNEKKISAADI.Value;

// mesaj tanımları
Message1.Recipients.EMailAddresses:=alici;
Message1.Subject:=konu;
Message1.ReplyTo.EMailAddresses:=Data.SubeDosyasiMAILADRESI.Value;
Message1.Body.Text :=mesaj;

// dosya atach kısmı
if dosya <>'' then begin
   with TIdAttachmentFile.Create(Message1.MessageParts, dosya) do begin
        ContentID := '12345';
   end;
end;


try
  // gitti
  smtp1.Connect;
  SMTP1.Send(Message1);
  SMTP1.Disconnect;
  result:=1;
except
  // hata oluştu
  SMTP1.Disconnect;
  result:=0;
end;