кодировки

    Dim uiw As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim thysdoc As NotesDocument
Dim httpobj As Variant
Dim url As String

Set uidoc=uiw.CurrentDocument
Set thysdoc=uidoc.Document

url=thysdoc.URL(0)

Set httpobj=CreateObject("winhttp.winhttprequest.5.1")

Call httpobj.Open("GET", url, False)

это кодировка самой строки - урла (?)
httpobj.Option(2) = "Windows-1251"  WinHttpRequestOption_URLCodePage = 2

Call httpobj.SetRequestHeader ("Accept-Language", "ru")
httpobj.SetRequestHeader "Accept-Charset", "Windows-1251"
httpobj.setRequestHeader "Accept-Encoding", "gzip, deflate"

httpobj.setRequestHeader "Content-Language", "ru"
httpobj.setRequestHeader "Content-Charset", "Windows-1251"
httpobj.setRequestHeader "Content-Encoding", "gzip, deflate"
httpobj.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=Windows-1251"

httpobj.setRequestHeader "CACHE_CONTROL", "no-cache"
httpobj.setRequestHeader "CONNECTION", "Close"

Call httpobj.Send()

Call thysdoc.ReplaceItemValue("receivedText", httpobj.ResponseText)

Call uidoc.Refresh

Set httpobj=Nothyng