Строка меню в форме Outlook - как ее можно убрать ?

[MItya]

Всем привет !!!
есть вопрос, может кто знает.
Как в форме Outlook убрать строку меню и разные панели тоже ?
форма у меня написана на VBscript/

[lord0n]

меню "Сервис" - "Макрос" - "Начать запись"
и делай что хочешь
останавливаешь запись
потом нажимаешь альт + f11 и смотришь что натворил

я так смотрю нароб работящий стал, аж жуть

проще 4 стороки написать чем 4 клика сделать

работает в аутглюк експрес

[MItya]

в MS Outlook нет возможности записи (реалтайм) макроса.

я попробовал сделать то же в Excel - там работает, но немного по другому, например:
Application.CommandBars("Standard").Visible = False - а если офис русский ?
Application.CommandBars("Worksheet Menu Bar").Visible = False - а это вообще никак не применить.

[alibek]

Имя не зависит от локализации. А узнать его, если ты не знаешь, можно так:

Код: Выделить всё

For Each cmd In Application.CommandBars
  Debug.Print cmd.Name
Next cmd

[MItya]

на VBs это не работает :о(

[lord0n]

в MS Outlook нет возможности записи (реалтайм) макроса.

я вроде написал что работает ТОЛЬКО в Outlook Express

[alibek]

я вроде написал что работает ТОЛЬКО в Outlook Express

В OE макросов вообще нет, как класса.

[MItya]

так как же всетаки на VBS это написать ?

[lord0n]

я вроде написал что работает ТОЛЬКО в Outlook Express

В OE макросов вообще нет, как класса.

пордон, перепутал названия

[MItya]

нашел как закрыть доступ к определенным командам (например печать):

Код: Выделить всё

Function Item_Open()
    Dim objInsp
    Dim colCB
    Dim objCBB
    On Error Resume Next
    Set objInsp = Item.GetInspector
    Set colCB = objInsp.CommandBars
      ' Print toolbar button
    Set objCBB = colCB.FindControl(, 2521)
    If Not objCBB Is Nothing Then
        objCBB.Enabled = False
    End If
    ' Print menu command
    Set objCBB = colCB.FindControl(, 4)
    If Not objCBB Is Nothing Then
        objCBB.Enabled = False
    End If
    Set objCBB = Nothing
    Set colCB = Nothing
    Set objInsp = Nothing
End Function


но как же скрыть командную строку целиком ?

[MItya]

неужели никто не сталкивался с тем, чтобы запретить функцию печати в Outlook. (например, если документ конфиденциальный).
Как же все таки убрать все строки меню ???

[alibek]

А нечего отправлять конфиденциальные документы таким способом, надо использовать соответствующие технологии. Хотя бы Lotus или MS Shared Server.

[MItya]

Легче всего отвертеться таким образом.
А решение подсказать жалко ?

[alibek]

А решения нет. Любой самопал грамотный пользователь обойдет за минуту. А в OE даже и самопала не сделать.

[MItya]

Хорошо, грамотный обойдет, но от чайников хотя бы защититься.
необходимо на VBs отключить:

1. строку меню (файл, правка и т.д.)
2. панеть меню (стандартная)
3. комбинацию клавиш Ctrl+P

[alibek]

В Outlook Express не сделаешь вообще ничего.
В Microsoft Outlook можно отключить панели и меню, возможно (хотя и есть сомнения) shortcut. Но никто не помешает пользователю сбросить их на стандартные.

[Al Khamid]

!?

[MItya]

мне и нужно отключить в Microsoft Outlook.
Подскажите, плиз, код на vbs.

Что они там сами включать будут - это отдельная тема
(может на это действие какую нить функцию навесить удастся)

возможность переслать тоже не нужна, т.к. шлется все само собой из формы.

поэтому мне бы хотелось (в идеальном варианте) чтобы осталась пустая рамка с формой и больше ничего.