- Katılım
- 17 Ocak 2006
- Mesajlar
- 241
- Excel Vers. ve Dili
- excel xp türkçe
merhaba arkadaşlar
sorunu çözdüm allaha şükür. ama maile atarken türkçe karekter bozukluğu var. ş,ğ.ı,İ gibi karekterlere anlamsız karekterler çıkartıyor.
bu sorunu nasıl çözebilirim.
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim iii As Byte, j As Byte
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<TABLE BORDER>"
For iii = 1 To MSFlexGrid1.Rows - 2
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To MSFlexGrid1.Cols
strHTML = strHTML & "<TD bgcolor='white'align='Left'> <FONT NAME='Arial Tur'> <FONT COLOR='black' SIZE=4>" & Application.Cells(iii, j) & "</FONT></TD>"
Next j
strHTML = strHTML & "</TR>"
Next iii
strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
With iMsg
Set .Configuration = iConf
.To = Trim(Text1.Text)
'.From = "youralias@yourdomain.com"
.Subject = Trim(Text3.Text)
.HTMLBody = strHTML
.Send
End With
sorunu çözdüm allaha şükür. ama maile atarken türkçe karekter bozukluğu var. ş,ğ.ı,İ gibi karekterlere anlamsız karekterler çıkartıyor.
bu sorunu nasıl çözebilirim.
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim iii As Byte, j As Byte
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<TABLE BORDER>"
For iii = 1 To MSFlexGrid1.Rows - 2
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To MSFlexGrid1.Cols
strHTML = strHTML & "<TD bgcolor='white'align='Left'> <FONT NAME='Arial Tur'> <FONT COLOR='black' SIZE=4>" & Application.Cells(iii, j) & "</FONT></TD>"
Next j
strHTML = strHTML & "</TR>"
Next iii
strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
With iMsg
Set .Configuration = iConf
.To = Trim(Text1.Text)
'.From = "youralias@yourdomain.com"
.Subject = Trim(Text3.Text)
.HTMLBody = strHTML
.Send
End With