Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook. vba. Положение курсора. / 6 сообщений из 6, страница 1 из 1
13.09.2007, 19:27
    #34799031
redsky
redsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook. vba. Положение курсора.
Как установить курсор для ввода на 10-й (к примеру) букве в теле активной задачи?
Во, как я закрутил :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2007, 22:29
    #34799289
Rubber
Rubber
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook. vba. Положение курсора.
redskyКак установить курсор для ввода на 10-й (к примеру) букве в теле активной задачи?
Во, как я закрутил :)

в Outlook.vba не испытывалось, но в EXCEL.VBA можно сделать так:

для поля <TextBox1>

TextBox1.SetFocus
SendKeys "{HOME}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"
SendKeys "{RIGHT}"

хотя это не самый лучший вариант...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2007, 20:06
    #34819003
redsky
redsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook. vba. Положение курсора.
Я почти так и делал, но этот вариант может глючить (если курсор перед запуском макроса находится не в теле задачи, а к примеру в Теме задачи; если за открытой задачей находится не список задач, а к примеру список Писем, то это вообще чревато испорченым письмом:( )
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Sub ghjj()
    Dim ert As String
    Dim textic As String
mySelection = Application.ActiveExplorer.Selection.Item( 1 ).Body
    Today = Date 'узнаем текущую системную дату
textic = InputBox(prompt:="Введите текст задачи:")

ert = Today & ": " & textic & " " & "[ ]" & vbCrLf & mySelection

Outlook.Application.ActiveExplorer.Selection.Item( 1 ).Body = ert

SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")
SendKeys ("{right}")

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2007, 14:45
    #34875181
Drema
Drema
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook. vba. Положение курсора.
Самый работающий (но очень сложный) вариант для Outlook 2003 и ниже - по HWND окна найти окно редактора, это будет RichEdit и послать нужную команду. Для Outlook 2007 будет немного по другому, т.к. там везде используется Word.. но тоже можно.

___________________
Шаблоны, подсветка и дополнительные возможности в Microsoft Outlook
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2007, 13:59
    #34877979
redsky
redsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook. vba. Положение курсора.
DremaСамый работающий (но очень сложный) вариант для Outlook 2003 и ниже - по HWND окна найти окно редактора, это будет RichEdit и послать нужную команду. Для Outlook 2007 будет немного по другому, т.к. там везде используется Word.. но тоже можно.

Спасибо. Попробую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
29.12.2015, 16:02
    #39140148
glgns
glgns
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook. vba. Положение курсора.
Application.SendKeys ("{DOWN}")

До нужного фрагмента делаем. Если нужно повторять - можно циклом. Кол-во строк высчитать письме вручную. Мне так подошло, может вам и не подойдет, но хотя бы работает. Excel VBA под Outlook 2010.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook. vba. Положение курсора. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]