Zaslal/a blowd 26.6.2018 18:20
Zdravím.
Mám kód na převod listu do HTML a následné kopírování do těla mailu. Funguje správně, až na to, že zobrazuje špatně diakritiku. Celý list je naformátovaný jako text.
Prosím o radu, jak to opravit.
Dim strCestaSoubor As String
Dim strObsahHTML As String
strCestaSoubor = ActiveWorkbook.Path & "\temp.htm"
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
strCestaSoubor, ActiveSheet.Name).Publish (True)
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.GetFile(strCestaSoubor).OpenAsTextStream(1, -2)
strObsahHTML = txt.ReadAll
txt.Close
.HTMLBody = strObsahHTML
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.