ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook. vba. Положение курсора.
6 сообщений из 6, страница 1 из 1
Outlook. vba. Положение курсора.
    #34799031
redsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
redsky
Участник
Как установить курсор для ввода на 10-й (к примеру) букве в теле активной задачи?
Во, как я закрутил :)
...
Рейтинг: 0 / 0
13.09.2007, 19:27
| Ответить | Цитировать | Написать  
Outlook. vba. Положение курсора.
    #34799289
Rubber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rubber
Гость
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
13.09.2007, 22:29
| Ответить | Цитировать | Написать  
Outlook. vba. Положение курсора.
    #34819003
redsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
redsky
Участник
Я почти так и делал, но этот вариант может глючить (если курсор перед запуском макроса находится не в теле задачи, а к примеру в Теме задачи; если за открытой задачей находится не список задач, а к примеру список Писем, то это вообще чревато испорченым письмом:( )
Код: 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
21.09.2007, 20:06
| Ответить | Цитировать | Написать  
Outlook. vba. Положение курсора.
    #34875181
Фотография Drema
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Drema
Участник
Самый работающий (но очень сложный) вариант для Outlook 2003 и ниже - по HWND окна найти окно редактора, это будет RichEdit и послать нужную команду. Для Outlook 2007 будет немного по другому, т.к. там везде используется Word.. но тоже можно.

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

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

До нужного фрагмента делаем. Если нужно повторять - можно циклом. Кол-во строк высчитать письме вручную. Мне так подошло, может вам и не подойдет, но хотя бы работает. Excel VBA под Outlook 2010.
...
Рейтинг: 0 / 0
29.12.2015, 16:02
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook. vba. Положение курсора.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=39&tid=2173235]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 57ms
get topic data:
 12ms
get forum data:
 4ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 284ms
total:  431ms
созд. / загр.: 431ms
x
x
Закрыть


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