Здравствуйте, уважаемые форумчане.
Помогите пожалуйста, пишу макрос для отправки людям трек-номеров их заказов. Все работает, кроме кодировки. В сообщении вк, правильно выглядят только английские буквы и цифры, перепробовал уже кучу вариантов. чтобы изменить кодировку, но ничего рабочего не смог найти.
Вот сообщение, которое приходит вк:
Что и где нужно поменять или дописать, чтобы все работало?
Вот код макроса:
Помогите пожалуйста, пишу макрос для отправки людям трек-номеров их заказов. Все работает, кроме кодировки. В сообщении вк, правильно выглядят только английские буквы и цифры, перепробовал уже кучу вариантов. чтобы изменить кодировку, но ничего рабочего не смог найти.
Вот сообщение, которое приходит вк:
| Цитата |
|---|
?4??4??4??4??4??4??4??4??4??4??4??1?, ?4??4??4??5??4??4??1? ?4??4??4??4??4??4??4??4??4??1?, ?4??4??5? ?4??4??4??1? ?4??4??4??4??1? - 45407105992354? 4??4??4??4??4??4??4??4??4??5?: ?4??4??4??4??4??4??4??4??1? ?4??4??4??4??1? ?4??4??5??4??4??4??1? .?4??4??1? ?4??4??5??4??4??1? ?4??4??5? ?4??4??4??4??4??4??4??4??4??4??4??5? ?4??4??4??5??4??4??1?:.. ?4??4??5?  |
Что и где нужно поменять или дописать, чтобы все работало?
Вот код макроса:
| Код |
|---|
Sub Макрос7_копирование()
Dim out As string
track_from_box = ActiveCell.Text 'берем номер с листа
num_stroke = ActiveCell.Row 'смотрим с какой он строке для дальнейшей работы с этой строкой
stroke0 = "Здравствуйте, посылка отправлена, ваш трек номер - " + track_from_box '
fio = "Получатель: " + Cells(num_stroke, 9).Text + "." ' формируем части строки
site1 = "Вот ссылка для отслеживания посылки:" '
site2 = "https://www.pochta.ru/tracking#" + track_from_box '
out = stroke0 & Chr(10) & fio & Chr(10) & site1 & Chr(10) & site2 & Chr(10) & Chr(10) & "Хорошего дня " 'готовая строка
'ссылка для запроса к vk api
url = "https://api.vk.com/method/messages.send?user_id=" + "*тут id пользователя вк*" + "&message=" + out + "&access_token=*тут код доступа*"
'сам запрос
With CreateObject("MSXML2.XMLHTTP")
.Open "POST", url, False
.Send Null
Request = Null
End With
End Sub
|
Изменено: - 23.02.2017 20:46:19
