NIE dla Edytowania wiadomości w Word [VBA]

Pytania, problemy, uwagi związane ze starszymi wersjami Microsoft Outlook 2003, 2002 (XP), 2000, 98

Moderator: Moderatorzy

NIE dla Edytowania wiadomości w Word [VBA]

Postprzez Shon Oskar » Cz 18.01.2007 16:29

Jak z poziomy VBA
Wyłączyć "Domyślnie zaznaczonego" dla Outlooka edytowania wiadomości w MSWord

Opcje/Format poczty
O'Shon
Shon Oskar
 
Posty: 182
Dołączył(a): Pn 16.10.2006 09:05
Lokalizacja: Veracomp S.A.

Postprzez michu » Cz 18.01.2007 17:11

Możesz zablokować użytkownikowi możliwość używania Word'a, ale opcja ta jest powiązana z ustawieniem mu również na stałe formatu w jakim może wysyłać wiadomości: HTML albo zwykły tekst. Więc nie będzie mógł sam wybrać w jakim formacie chce wysłać wiadomość.

Musisz w rejestrze utworzyć specjalny wpis.
Najpier utwórz klucz:
Kod: Zaznacz cały
HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\11.0\Outlook\Options\Mail

A potem utwórz wpis o nazwie EditorPreference i typie REG_DWORD. Nadaj mu wartość dziesiętną:
131072 - nie jest używany Word, format wiadomości HTML
131073 - jest używany Word, format wiadomości HTML
196610 - nie jest używany Word, fromat wiadomości RTF
196609 - jest używany Word, format wiadomości RTF
65536 - nie jest używany Word, format wiadomości zwykły tekst
65537 - jest używany Word, format wiadomości zwykły tekst

Po utworzeniu wpisu musisz ponownie uruchomić Outlook'a. To samo możesz osiągnąć poprzez zasady grup GPO po zainstalowaniu wzorca administracyjnego Outlk11.adm, znajdziesz go w dodatku Office Resource Kit.

Być może opcja używania Word'a jest też przechowywana w innym miejscu rejestru albo gdzieś w ustawieniach konfiguracyjnych Outlook'a, ale nie wiem gdzie.
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Postprzez OShon » Śr 03.10.2007 20:40

Dzięki działa perfect.
Podaje dla potomnych - może ktoś będzie chciał sie uwolnić od Worda.
Oczywiście można rozbudować o przypadki (select case..)
W uproszczeniu:

Kod: Zaznacz cały
Private Sub Ustawienia_NoWord()
On Error Resume Next
Dim OShell
  Set OShell = CreateObject("WScript.Shell")
    OShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Val(Application.Version) & ".0" & "\Outlook\Options\Mail\EditorPreference", 131072, "REG_DWORD"
  Set OShell = Nothing
End Sub
Obrazek
Oskar Shon - MVP Office Dev. 11/20, 3x MCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 10348
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl


Powrót do Microsoft Outlook

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 2 gości