MailMessage ( Delphi 7 )

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
mydestek
Üye
Mesajlar: 14
Kayıt: 10 Tem 2008 03:56

MailMessage ( Delphi 7 )

Mesaj gönderen mydestek »

MailMessage ( Delphi 7 )
Mail atmaya çalışıyorum. Mail atıyor, fakat mailde türkçe karakterleri bozuk görünüyor.
Acil fikri olan var mı ?
---
MailMessage.From.Address := ledFrom.Text;
MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text + ',' + ledFrom.Text;
MailMessage.ContentType := 'text/html';

MailMessage.Body.Add('<html>');
MailMessage.Body.Add('<head>');
MailMessage.Body.Add('<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">');
MailMessage.Body.Add('<meta http-equiv="Content-Language" content="tr">');
MailMessage.Body.Add('<title>'+ledSubject.Text+'</title>');
MailMessage.Body.Add('</head>');

MailMessage.Subject := ledSubject.Text;
MailMessage.Body.Add('<font face="Tahoma" style="font-size: 9pt">'+ledSubject.Text);

MailMessage.Body.Add('<table border="1" width="100%" bordercolor="#C0C0C0">');
MailMessage.Body.Add('<tr>');

MailMessage.Body.Add('<td width="95" align="right"><font face="Tahoma" style="font-size: 9pt">Teklif No :</td>');
MailMessage.Body.Add('<td><font face="Tahoma" style="font-size: 9pt">'+Edit2.Text+'</td>');
MailMessage.Body.Add('</tr> <tr>');

MailMessage.Body.Add('<td width="95" align="right"> <font face="Tahoma" style="font-size: 9pt">Müşteri:</td>');
MailMessage.Body.Add('<td><font face="Tahoma" style="font-size: 9pt">'+Edit1.Text+'</td>');
MailMessage.Body.Add('</TABLE>');

MailMessage.Body.Add('<p> <font face="Tahoma" style="font-size: 9pt">'+Body.Text+'</p>');
MailMessage.Body.Add('</font> </body> </html>');
----
mydestek
Üye
Mesajlar: 14
Kayıt: 10 Tem 2008 03:56

Re: MailMessage ( Delphi 7 )

Mesaj gönderen mydestek »

Bulduğum çözüm;

('</head>'); üst kısmına

MailMessage.CharSet := 'iso-8859-9'; ekledim oldu.
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Re: MailMessage ( Delphi 7 )

Mesaj gönderen Lost Soul »

mail göndermey hiç denemedim ama.

indy bileşen setinde
clients kısmında IDSmtp ile Indy Misc Kısmında IdMEssage ikilisini kullanırsanız türkçe karakter sorununu aşabileceğinizi düşünüyorum.

IdMessage de Charsett bölümü ile türkçe charset seçebilirsiniz. Mesajını biçimlendirebilirsiniz. ve son olarak
IdSmtp ile mesajınızı gönderebilirsiniz.
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Re: MailMessage ( Delphi 7 )

Mesaj gönderen Lost Soul »

diyordum ki olayı halletmişsinizz :)
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Re: MailMessage ( Delphi 7 )

Mesaj gönderen conari »

Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Cevapla