Mail Göndermede türkçe KArekter Sorunu

I

ismailayan

Katılım
17 Ocak 2006
Mesajlar
241
Excel Vers. ve Dili
excel xp türkçe
Merhaba aarkadaşlar

vb6 projesi üzerinden outlook express ile mail gönderme işlemi yapıyorum. Mail atmasına atıyor ama türkçe karekterleri tanımıyor. "İ,ğ,ş,ı karekterler yerine anlamsız simgeler çıkartıyor. Bu sorunu ne şekilde nasıl aşabilirim. Bu konuda bir çözümü olan arkadaşlar lütfen cvp yazsın.


Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim Hata_Kontrol
Dim iii As Byte, j As Byte

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

strHTML = ""

strHTML = strHTML & " <html>"
strHTML = strHTML & " <head>"
strHTML = strHTML & " <style>"
strHTML = strHTML & " <!--table"
strHTML = strHTML & " {mso-displayed-decimal-separator:'\.';"
strHTML = strHTML & " mso-displayed-thousand-separator:'\,';}"
strHTML = strHTML & " @page"
strHTML = strHTML & " {margin:1.0in .75in 1.0in .75in;"
strHTML = strHTML & " mso-header-margin:.5in;"
strHTML = strHTML & " mso-footer-margin:.5in;}"
strHTML = strHTML & " tr"
strHTML = strHTML & " {mso-height-source:auto;}"
strHTML = strHTML & " Col"
strHTML = strHTML & " {mso-width-source:auto;}"
strHTML = strHTML & " br"
strHTML = strHTML & " {mso-data-placement:same-cell;}"
strHTML = strHTML & " .style0"
strHTML = strHTML & " {mso-number-format:General;"
strHTML = strHTML & " text-align:general;"
strHTML = strHTML & " vertical-align:bottom;"
strHTML = strHTML & " white-space:nowrap;"
strHTML = strHTML & " mso-rotate:0;"
strHTML = strHTML & " mso-background-source:auto;"
strHTML = strHTML & " mso-pattern:auto;"
strHTML = strHTML & " color:windowtext;"
strHTML = strHTML & " font-size:10.0pt;"
strHTML = strHTML & " font-weight:400;"
strHTML = strHTML & " font-style:normal;"
strHTML = strHTML & " text-decoration:none;"
strHTML = strHTML & " font-family:'Arial Tur';"
strHTML = strHTML & " mso-generic-font-family:auto;"
strHTML = strHTML & " mso-font-charset:162;"
strHTML = strHTML & " border:none;"
strHTML = strHTML & " mso-protection:locked visible;"
strHTML = strHTML & " mso-style-name:Normal;"
strHTML = strHTML & " mso-style-id:0;}"
strHTML = strHTML & " td"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " padding-top:1px;"
strHTML = strHTML & " padding-right:1px;"
strHTML = strHTML & " padding-left:1px;"
strHTML = strHTML & " mso-ignore:padding;"
strHTML = strHTML & " color:windowtext;"
strHTML = strHTML & " font-size:10.0pt;"
strHTML = strHTML & " font-weight:400;"
strHTML = strHTML & " font-style:normal;"
strHTML = strHTML & " text-decoration:none;"
strHTML = strHTML & " font-family:'Arial Tur';"
strHTML = strHTML & " mso-generic-font-family:auto;"
strHTML = strHTML & " mso-font-charset:162;"
strHTML = strHTML & " mso-number-format:General;"
strHTML = strHTML & " text-align:general;"
strHTML = strHTML & " vertical-align:bottom;"
strHTML = strHTML & " border:none;"
strHTML = strHTML & " mso-background-source:auto;"
strHTML = strHTML & " mso-pattern:auto;"
strHTML = strHTML & " mso-protection:locked visible;"
strHTML = strHTML & " white-space:nowrap;"
strHTML = strHTML & " mso-rotate:0;}"
strHTML = strHTML & " .xl24"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " mso-number-format:'\#\,\#\#\#\.00';}"
strHTML = strHTML & " .xl25"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " mso-number-format:'mm\/dd\/yyyy';}"
strHTML = strHTML & " .xl26"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " font-size:8.0pt;"
strHTML = strHTML & " font-weight:700;"
strHTML = strHTML & " font-family:Arial, sans-serif;"
strHTML = strHTML & " mso-font-charset:162;"
strHTML = strHTML & " border:.5pt solid windowtext;}"
strHTML = strHTML & " .xl27"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " font-size:8.0pt;"
strHTML = strHTML & " font-weight:700;"
strHTML = strHTML & " font-family:Arial, sans-serif;"
strHTML = strHTML & " mso-font-charset:162;"
strHTML = strHTML & " mso-number-format:'\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#';"
strHTML = strHTML & " border:.5pt solid windowtext;}"
strHTML = strHTML & " .xl28"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " font-size:8.0pt;"
strHTML = strHTML & " font-family:Arial, sans-serif;"
strHTML = strHTML & " mso-font-charset:162;"
strHTML = strHTML & " border:.5pt solid windowtext;}"
strHTML = strHTML & " .xl29"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " font-size:8.0pt;"
strHTML = strHTML & " font-family:Arial, sans-serif;"
strHTML = strHTML & " mso-font-charset:162;"
strHTML = strHTML & " mso-number-format:'\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#\#';"
strHTML = strHTML & " border:.5pt solid windowtext;}"
strHTML = strHTML & " .xl30"
strHTML = strHTML & " {mso-style-parent:style0;"
strHTML = strHTML & " font-size:8.0pt;"
strHTML = strHTML & " font-family:Arial, sans-serif;"
strHTML = strHTML & " mso-font-charset:162;"
strHTML = strHTML & " mso-number-format:Standard;"
strHTML = strHTML & " border:.5pt solid windowtext;}"
strHTML = strHTML & " -->"
strHTML = strHTML & " </style>"
strHTML = strHTML & " <!--[if gte mso 9]><xml>"
strHTML = strHTML & " <x:ExcelWorkbook>"
strHTML = strHTML & " <x:ExcelWorksheets>"
strHTML = strHTML & " <x:ExcelWorksheet>"
strHTML = strHTML & " <x:Name>Sayfa1</x:Name>"
strHTML = strHTML & " <x:WorksheetOptions>"
strHTML = strHTML & " <x:print>"
strHTML = strHTML & " <x:ValidPrinterInfo/>"
strHTML = strHTML & " <x:paperSizeIndex>9</x:paperSizeIndex>"
strHTML = strHTML & " <x:HorizontalResolution>600</x:HorizontalResolution>"
strHTML = strHTML & " <x:VerticalResolution>0</x:VerticalResolution>"
strHTML = strHTML & " </x:print>"
strHTML = strHTML & " <x:Selected/>"
strHTML = strHTML & " <x:TopRowVisible>36</x:TopRowVisible>"
strHTML = strHTML & " <x:panes>"
strHTML = strHTML & " <x:pane>"
strHTML = strHTML & " <x:Number>3</x:Number>"
strHTML = strHTML & " <x:ActiveRow>10</x:ActiveRow>"
strHTML = strHTML & " <x:ActiveCol>5</x:ActiveCol>"
strHTML = strHTML & " </x:pane>"
strHTML = strHTML & " </x:panes>"
strHTML = strHTML & " <x:protectContents>False</x:protectContents>"
strHTML = strHTML & " <x:protectObjects>False</x:protectObjects>"
strHTML = strHTML & " <x:protectScenarios>False</x:protectScenarios>"
strHTML = strHTML & " </x:WorksheetOptions>"
strHTML = strHTML & " </x:ExcelWorksheet>"
strHTML = strHTML & " <x:ExcelWorksheet>"
strHTML = strHTML & " <x:Name>Sayfa2</x:Name>"
strHTML = strHTML & " <x:WorksheetOptions>"
strHTML = strHTML & " <x:protectContents>False</x:protectContents>"
strHTML = strHTML & " <x:protectObjects>False</x:protectObjects>"
strHTML = strHTML & " <x:protectScenarios>False</x:protectScenarios>"
strHTML = strHTML & " </x:WorksheetOptions>"
strHTML = strHTML & " </x:ExcelWorksheet>"
strHTML = strHTML & " <x:ExcelWorksheet>"
strHTML = strHTML & " <x:Name>Sayfa3</x:Name>"
strHTML = strHTML & " <x:WorksheetOptions>"
strHTML = strHTML & " <x:protectContents>False</x:protectContents>"
strHTML = strHTML & " <x:protectObjects>False</x:protectObjects>"
strHTML = strHTML & " <x:protectScenarios>False</x:protectScenarios>"
strHTML = strHTML & " </x:WorksheetOptions>"
strHTML = strHTML & "</x:ExcelWorksheet>"
strHTML = strHTML & " </x:ExcelWorksheets>"
strHTML = strHTML & " <x:WindowHeight>9975</x:WindowHeight>"
strHTML = strHTML & " <x:WindowWidth>15195</x:WindowWidth>"
strHTML = strHTML & " <x:WindowTopX>0</x:WindowTopX>"
strHTML = strHTML & " <x:WindowTopY>45</x:WindowTopY>"
strHTML = strHTML & " <x:protectStructure>False</x:protectStructure>"
strHTML = strHTML & " <x:protectWindows>False</x:protectWindows>"
strHTML = strHTML & " </x:ExcelWorkbook>"
strHTML = strHTML & " </xml><![endif]-->"
strHTML = strHTML & " </head>"
strHTML = strHTML & " <body link=blue vlink=purple>"
strHTML = strHTML & " <table x:str border=0 cellpadding=0 cellspacing=0 width=694 style='border-collapse:"
strHTML = strHTML & " collapse;table-layout:fixed;width:521pt'>"
strHTML = strHTML & " <col width=61 style='mso-width-source:userset;mso-width-alt:2230;width:46pt'>"
strHTML = strHTML & " <col width=189 style='mso-width-source:userset;mso-width-alt:6912;width:142pt'>"
strHTML = strHTML & " <col width=63 style='mso-width-source:userset;mso-width-alt:2304;width:47pt'>"
strHTML = strHTML & " <col width=61 style='mso-width-source:userset;mso-width-alt:2230;width:46pt'>"
strHTML = strHTML & " <col width=64 span=5 style='width:48pt'>"
strHTML = strHTML & " <tr height=17 style='height:12.75pt'>"

Dim Dongu_1

Dongu_1 = MSFlexGrid1.Rows
For iii = 1 To Dongu_1
strHTML = strHTML & vbCrLf & " <td height=17 class=xl26 width=61 style='height:12.75pt;width:46pt'> " & Application.Cells(iii, 1) & "</td>"
strHTML = strHTML & vbCrLf & " <td class=xl27 width=189 style='border-left:none;width:142pt'>" & Application.Cells(iii, 2) & "</td>"
strHTML = strHTML & vbCrLf & " <td class=xl26 width=63 style='border-left:none;width:47pt'>" & Application.Cells(iii, 3) & "</td>"
strHTML = strHTML & vbCrLf & " <td class=xl26 width=61 style='border-left:none;width:46pt'>" & Format$(Application.Cells(iii, 4), "#,##0.00") & "</td>"

strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td class=xl24 width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td class=xl25 width=64 style='width:48pt'></td>"
strHTML = strHTML & " </tr>"

Next iii


strHTML = strHTML & " <![if supportMisalignedColumns]>"
strHTML = strHTML & " <tr height=0 style='display:none'>"
strHTML = strHTML & " <td width=61 style='width:46pt'></td>"
strHTML = strHTML & " <td width=189 style='width:142pt'></td>"
strHTML = strHTML & " <td width=63 style='width:47pt'></td>"
strHTML = strHTML & " <td width=61 style='width:46pt'></td>"
strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " <td width=64 style='width:48pt'></td>"
strHTML = strHTML & " </tr>"
strHTML = strHTML & " <![endif]>"
strHTML = strHTML & " </table>"
strHTML = strHTML & " </body>"
strHTML = strHTML & " </html>"

With iMsg
Set .Configuration = iConf
.From = Trim(Text4.Text)
.To = Trim(Text1.Text)
.Subject = Trim(Text3.Text)
.HTMLBody = strHTML
.Send
End With
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst