- Код: Выделить всё
Set oA = CreateObject("Outlook.Application")
Set NameSpace = oA.GetNamespace("MAPI")
NameSpace.Logon
Set oItem = oA.CreateItem(0)
oItem.InternetCodepage = 1251
oItem.HTMLBody = Body
....
Этот код позволяет нормально передать письмо при установленном Outlook-2003. Но если на машине установлена более старая версия Outlook, то у нее нет свойства InternetCodepage, и письмо отправленное с этой машины не содержит информации о кодовой странице и, как результат, может неправильно распознаваться...
Соответственно и вопрос - как можно при отправке письма в Outlook-2000 указать его кодовую страницу???