Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 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):
Польз. соглашение
созд. / загр.: 130ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2173235]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 28ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 12ms
total:  130ms
x
x
Закрыть


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