Mail Gönderme Programı :oops:
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: Mail Gönderme Programı :oops:
Kod: Tümünü seç
procedure TForm8.GonderClick(Sender: TObject);
begin
if (Edit1.text = '') then
begin
Edit1.SetFocus;
Edit1.Color := RGB(255, 182, 193);
Application.MessageBox('Lütfen Ad Soyad Bölümünü Boş Bırakmayınız!',
'Uyarı!', MB_Ok or MB_ICONQUESTION);
end
else
begin
if (Edit2.text = '') then
begin
Edit2.SetFocus;
Edit2.Color := RGB(255, 182, 193);
Application.MessageBox('Lütfen Mail Adres Bölümünü Boş Bırakmayınız!',
'Uyarı!', MB_Ok or MB_ICONQUESTION);
end
else
begin
if (Edit3.text = '') then
begin
Edit3.SetFocus;
Edit3.Color := RGB(255, 182, 193);
Application.MessageBox('Lütfen Konu Bölümünü Boş Bırakmayınız!',
'Uyarı!', MB_Ok or MB_ICONQUESTION);
end
else
begin
if (Memo1.text <= '0') then
begin
Memo1.SetFocus;
Memo1.Color := RGB(255, 182, 193);
Application.MessageBox('Lütfen Açıklama Bölümünü Boş Bırakmayınız!',
'Uyarı!', MB_Ok or MB_ICONQUESTION);
end
else
begin
try
with Form4.FDQueryeposta do // Gönderilen mail kaydet
begin
Close;
SQL.Clear;
SQL.add('Insert into eposta (ADISOYADI, KULANICIADI, MAIL, TELEFON, KONU, ACIKLAMA, GONDERMETARIHI)');
SQL.add(' Values (:AdSoyad, :Kadi, :Mail, :Tel, :Konu, :Aciklama, :GonTarihi)');
ParamByName('AdSoyad').AsString := Edit1.text;
ParamByName('Kadi').AsString := Form4.User.Caption;
ParamByName('Mail').AsString := Edit2.text;
ParamByName('Tel').AsString := MaskEdit1.text;
ParamByName('Konu').AsString := Edit3.text;
ParamByName('Aciklama').AsString := Memo1.text;
ParamByName('GonTarihi').AsString :=
FormatDateTime('d mmmm yyyy dddd hh:nn:ss', Now);
ExecSQL;
end;
begin
with Form4.FDQueryiletisim do // Host bilgileri al
begin
Connection := Form4.FDConnection1;
Close;
SQL.Clear;
SQL.add('SELECT * FROM iletisim');
Active := True;
Idsmtp1.Host := FieldByName('HOST').AsString; // Gönderen Host
Idsmtp1.Username := FieldByName('USERNAME').AsString;
// Gönderen
Idsmtp1.Password := FieldByName('PASSWORD').AsString; // Şifre
Idsmtp1.Port := FieldByName('PORT').Asinteger; // Port
Idsmtp1.AuthType := SatDefault;
Idsmtp1.ConnectTimeout := 1000;
IdMessage.From.Address := FieldByName('GONDERENADDRESS')
.AsString; // Gönderen adres
IdMessage.Recipients.EMailAddresses :=
FieldByName('GIDENEMAILADDRESSES').AsString;
// Alıcı mail adres
IdMessage.From.Name := Form4.User.Caption; // Kim Gönderdi
IdMessage.Subject := Edit3.text; // Konu
IdMessage.Body.add(Memo1.text); // Açıklama
Memo1.Lines.add('<html>');
Memo1.Lines.add('<head>');
Memo1.Lines.add
('<meta http-equiv="Content-Language" content="tr">');
Memo1.Lines.add
('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />');
Memo1.Lines.add('</head>');
Memo1.Lines.add('<body>');
Memo1.Lines.add('<br>');
Memo1.Lines.add('<br>');
Memo1.Lines.add
('=====================================================');
Memo1.Lines.add('<br>');
Memo1.Lines.add('<STRONG>Kulanıcı Adı:</STRONG> ' +
Form4.User.Caption);
Memo1.Lines.add('<br>');
Memo1.Lines.add('<STRONG>Adı Soyadı:</STRONG> ' + Edit1.text);
Memo1.Lines.add('<br>');
Memo1.Lines.add('<STRONG>Mail Adresi:</STRONG> ' + Edit2.text);
Memo1.Lines.add('<br>');
Memo1.Lines.add('<STRONG>Tel Numarası:</STRONG> ' +
MaskEdit1.text);
Memo1.Lines.add('<br>');
Memo1.Lines.add
('=====================================================');
Memo1.Lines.add('<br>');
Memo1.Lines.add
('<a href="http://xxxxxx.com">xxxxx</a>');
Memo1.Lines.add('</body>');
Memo1.Lines.add('</html>');
IdMessage.Body.Assign(Memo1.Lines);
// Memoya yazılan mesajları düzeltir
IdMessage.ContentType := 'Text/Html; charset=UTF-8';
IdMessage.ContentTransferEncoding := '8bit';
Idsmtp1.Connect;
Idsmtp1.Send(idmessage);
IdMessage.Clear;
Close;
Active := False;
Form4.FDConnection1.Connected := False;
Edit2.Clear;
Edit3.Clear;
MaskEdit1.Clear;
Memo1.Clear;
Label1.Caption := 'Mail Gönderme İşlemi Başarıyla Tamamlandı!';
if Idsmtp1.Connected then
Idsmtp1.Disconnect;
end;
end;
except
Application.MessageBox
('Bir Hata Oluştu, Lütfen Daha Sonra Tekrar Deneyiniz', 'Uyarı!',
MB_Ok or MB_ICONQUESTION);
end;
end;
end;
end;
end;
end;İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...