Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Andrey Fedorov
-
- Член-корреспондент академии VBStreets
-
-
- Сообщения: 3287
- Зарегистрирован: 21.05.2004 (Пт) 9:28
- Откуда: Москва
Andrey Fedorov » 20.10.2005 (Чт) 13:24
Что-то я запутался - есть следующий код:
- Код: Выделить всё
Set oA = CreateObject("Outlook.Application")
Set NameSpace = oA.GetNamespace("MAPI")
NameSpace.Logon
Set oItem = oA.CreateItem(0)
v = Split(oA.Version, ".")
If 11 <= CLng(v(0)) Then oItem.InternetCodepage = 1251
oItem.Subject = Subject
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = MyBody
В итоге получаем:
- Код: Выделить всё
?Len(MyBody)
27761
?Len(oItem.HTMLBody)
27446
Самое интересное что если сделать
- Код: Выделить всё
Clipboard.SetText MyBody
То тоже получится:
- Код: Выделить всё
?Len(clipboard.GetText)
27446
В чем дело - строка режется как при помещении в HTMLBody, так и в Clipboard...
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...
-
alibek
-
- Большой Человек
-
-
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 20.10.2005 (Чт) 13:28
Может там vbNullChar есть?
Lasciate ogni speranza, voi ch'entrate.
-
Andrey Fedorov
-
- Член-корреспондент академии VBStreets
-
-
- Сообщения: 3287
- Зарегистрирован: 21.05.2004 (Пт) 9:28
- Откуда: Москва
Andrey Fedorov » 20.10.2005 (Чт) 13:34
alibek писал(а):Может там vbNullChar есть?
Нету. Да и чего ради тогда в Clipboard-e бы резалось?
Но вроде заработало... Непонятно... Погоняю еще.
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: SemrushBot и гости: 20