Mail Göndermede html formatda gönderme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
freett
Üye
Mesajlar: 29
Kayıt: 01 Mar 2004 05:18
Konum: ANTALYA

Mail Göndermede html formatda gönderme

Mesaj gönderen freett »

Arkadaşlar ben bi mail gönderim programı yapıyorumda gönderimde IDmessage ve IdSMtp compenentlarini kullanyorum html formatta gönderim yapıyor onda sorun yok fakat yaptığım biçimlendirmelerde html taglarını eklemem gerekiyor (yani kalın,italik vb..) mesala ben textimi yazıcam yazdığım alanı seçip biçimlendirme yapıcam program html taglarını oluşturacak bir nevi frontpage gibi cevaplarınız için şimdiden teşekkür ederim ......
talip türkmen
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Forumda arama yaparsanız daha önce bir çok defa konuşuldu..

Ref : viewtopic.php?t=17403#100058
Resim
Resim ....Resim
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Bu problemi Bende Yaşıyorum arkadaşlar

viewtopic.php?t=17403#100058
Bu linki inceledim Sayın @mrmarman anlatmış lakin.
Karakter problemim var anlamadım ISO-8859-9 kullanıyorum olmuyo..
Memo kullanarak yapıyorum işlemi.

Kod: Tümünü seç

   With mailMemo.Lines do begin
    Clear;
    mailMemo.Lines.Add('<html>');
    mailMemo.Lines.Add('<body>');
    mailMemo.Lines.add(''+OYQueryFISNO.Value+''' nolu Satınalma Siparişiniz') ;
    mailMemo.Lines.add('<h2> '+datetostr(DATE2.date) +  ' Tarihinde</h2>' );
    mailMemo.Lines.add('<h2>Onaylanmıştır.</h2>') ;
    mailMemo.Lines.add('Takip ediniz!!') ;
    mailMemo.Lines.Add('</body>');
    mailMemo.Lines.Add('</html>');
  end;
  MailMessage.Body.Add(mailmemo.Lines.Text);
  MailMessage.ContentType:= 'text/html';
  MailMessage.ContentTransferEncoding := 'ISO-8859-9';

   try
      try
         SMTP.Connect(1000);
         SMTP.Authenticate;
         SMTP.Send(MailMessage);
         MailMessage.Free;
         SMTP.Free;
      except on E:Exception do
         showmessage('DİKKAT!: Bir hata oluştu...');
      end;
   finally
Bu şekilde dönüyor.

Kod: Tümünü seç

000000000002824' nolu Sat�nalma Sipari�iniz 
30.05.2007 Tarihinde
Onaylanm��t�r.
Takip ediniz!! 
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

HTML gönderiyorsun..

Kod: Tümünü seç

    mailMemo.Lines.Add('<html>'); 
    mailMemo.Lines.Add('<body>'); 
satılarının arasına yeni bir satır olarak aşağıdaki Meta tagını ekleyip dener misin.

Kod: Tümünü seç

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
Resim
Resim ....Resim
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Hoca çok hızlısın

Kod: Tümünü seç

   mailMemo.Lines.Add('<html>');
    mailMemo.Lines.Add('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />');
    mailMemo.Lines.Add('<body>');
    mailMemo.Lines.add(''+OYQueryFISNO.Value+''' nolu Satınalma Siparişiniz') ;
    mailMemo.Lines.add('<h2> '+datetostr(DATE2.date) +  ' Tarihinde</h2>' );
    mailMemo.Lines.add('<h2>Onaylanmıştır.</h2>') ;
    mailMemo.Lines.add('Takip ediniz!!') ;
    mailMemo.Lines.Add('</body>');
    mailMemo.Lines.Add('</html>');
Olarak ekledim..
Dönen Aynı şekilde

000000000002832' nolu Sat�nalma Sipari�iniz
30.05.2007 Tarihinde
Onaylanm��t�r.
Takip ediniz!!

aşagıdaki iki tagın arasına da ekledim sonra ama aynı şekilde geliyor.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

bir tane da bana yollar mısın ? divxturk@gmail.com adresine bakayım..

Belki olay daha basittir. Sadece mail görüntüleme ayarlarında UTF8 vb. hani var ya o tip ayarlardan olabilir..
Resim
Resim ....Resim
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

gönderiyim problem değil hocada.
Exchange üzerinden gönderiyorum sana gönderemeyebilir ayarlarım

Bu arada Gelen mailin Kaynağına baktığımda
araya eklediğimiz o satırı göremiyorum Hoca diğerlerinin hepsi gözüküyor.
O satır boş geliyor.

Kod: Tümünü seç

<html>

<body>
000000000002824' nolu Satınalma Siparişiniz
<h2> 30.05.2007 Tarihinde</h2>
<h2>Onaylanmıştır.</h2>
Takip ediniz!!
</body>
</html>
Şeklinde gözüküyor Kaynak
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Hoca kendi hotmailime gönderdim düzgün.
Sanada gönderdim.

Kolay gelsin.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
Hancet
Üye
Mesajlar: 107
Kayıt: 08 May 2005 01:18
Konum: Burdan...
İletişim:

Mesaj gönderen Hancet »

S.A.

Arkadaşlar e-posta gönderirken hotmail, gmail, yahoo gibi adreslere göndermek istersem ne yapmamız gerekiyor? Sitede aradım ama bi sonuca ulaşamadım. Hotmail'de junk'a bile düşmüyor gönderdiğim mailler. Google'de aradım biraz, kendinizi tanıtan verilerden ne kadar çok girerseniz inbox'a düşme oranı o kadar artar diyor ama oda olmadı.

siz bunun için ne gibi bir yol deniyorsunuz?

Kolay Gelsin...
Varmı Beni İçinizde Tanıyan?
Yaşanmadan Çözülmeyen Sır Benim
Kalmasada Şöhretimi Duymayan,
Kimliğimi Tarif etmek zor Benim.
Kimsesizim hısmım da çok, hasmım da,
Görünmezim cismim de yok, resmim de,
Dil üzmezim, tek hece var ismimde,
Barınağım Delphi denen yer Benim..!
Cevapla