Всем привет! Я хотел добавить значок вставки только текста, на панель Outlook сверху для использования с помощью горячих клавиш (Alt+#), но к сожалению, его нет в списке "Все команды"
Тогда я попытался адаптировать макрос из excel для outlook, но у меня так ничего и не вышло (пытался менять "ActiveSheet")
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Sub PasteAsText()
On Error Resume Next
Dim s$
s = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("Text")
Application.ActiveInspector.WordEditor.Windows(1).Selection.TypeText s
End Sub
Естественно, перед выполнением в буфере должно что-то быть.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
написал: Вставит из буфера в любой активный документ/программу?
нет, здесь конкретно в Outlook. А так вообще да, эта страшная штука может быть использована фактически в любой проге, т.к. это доступ к общему буферу обмена.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄