Замечание к документу "можно конвертнуть строку функцией OSTranslate и посмотреть ее длину"   >>>

Тема: Ага! На станции сработало... Сейчас бум пробовать на сервере (+)

Публикую, что я наваял (как кусок доработки)... Хотя все это в форуме есть... Ну мало ли

Declarations
Declare Function OSTranslate Lib "nnotes.dll" Alias "OSTranslate" (Byval TranslateMode As Integer, Byval InString As String, Byval InLength As Integer, Byval OutString As String, Byval OutLength As Integer) As Integer
Const OS_TRANSLATE_NATIVE_TO_LMBCS = 0 ' Translate platform-specific to LMBCS
Const OS_TRANSLATE_LMBCS_TO_NATIVE = 1 ' Translate LMBCS to platform-specific

Function LMBCSLength(s As String) As Integer
Dim reslength As Integer
Dim status As Integer
Dim tmpstr As String
Dim Source As String

reslength = Lenb(s)
tmpstr = Space$(reslength) + Chr(0)
Source = s + Chr(0)
reslength=reslength + 1
status = OSTranslate(OS_TRANSLATE_NATIVE_TO_LMBCS, Source, Len(Source) - 1, tmpstr, reslength)
If status = 0 Then
LMBCSLength = 0
Else
LMBCSLength = Len(Strleft(tmpstr, Chr(0)))
End If
End Function

Ну, и собственно в Function MakeHTMLItem
...
len_html = LMBCSLength(html)
If len_html > 0 Then
MakeHTMLItem=W32_NSFItemAppendS(doc.Handle,ITEM_NOFLAG,itemName,Len(itemName),Cint(TYPE_HTML), html, len_html)
End If
.....

Дим, еще раз балшое человеческое... спасибо!