Category: Tech

1. Copy the .Dll and .Lex file for the language you want to add to c:Program FilesCommon FilesMicrosoft SharedProof

2. Add a registry hive pointing to the cossrect engine and lexicon for a specific language code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINESOFTWAREMicrosoftShared ToolsProofing ToolsSpelling2068]

[HKEY_LOCAL_MACHINESOFTWAREMicrosoftShared ToolsProofing ToolsSpelling2068Normal]
“Dictionary”=”C:\PROGRA~1\COMMON~1\MICROS~1\Proof\NAME.LEX”
“Engine”=”C:\PROGRA~1\COMMON~1\MICROS~1\Proof\NAME.DLL”

[HKEY_LOCAL_MACHINESOFTWAREMicrosoftShared ToolsProofing ToolsSpelling2068NormalClients]
@=”C:\PROGRA~1\COMMON~1\MICROS~1\Proof\NAME.DLL”

 

Here is a list of all Microsoft Language codes

Are you confused by RAID levels? Here is an explanation 🙂

If you copy a CAB file to your PocketPC and double-click on it, it will install and then remove itself. Some files are nice to keep on your Pocket PC or Storage Card in case you need to reinstall.

The easiest way to keep the files from deleting is marking them read-only.

The Microsoft Outlook 2000 VBA macro, which can be used to change the Outlook default folder names.
Open the VBA macro with notepad and copy the code into the clipboard.

Open Outlook 2000 and select ‘Tools’, ‘Macros’, ‘Visual Basic Editor’ to open the Outlook 2000 VBA editor.
Expand the ‘ThisOutlookSession’ in the left-hand project window and paste the code into empty the right-hand window.

Select ‘Tools’, ‘References’ in the Outlook 2000 VBA editor and make sure ‘Microsoft CDO 1.21’ is selected.
Note that Outlook 2000 does not install CDO 1.21 by default. If you don’t see it in the Outlook VBA references
dialog CDO 1.21 might not be installed on your machine. If so, you have to run the Office 2000/Outlook 2000 setup
from CDO-ROM again and make sure CDO 1.21 is selected.

Close the Outlook 2000 VBA editor to save the changes.

To run the Outlook 2000 VBA macro open Outlook and chose ‘Tools’, ‘Macro’, ‘Macros’, select the desired macro and hit ‘Run’

---

Option Explicit

‘THIS CODE AND INFORMATION IS PROVIDED “AS IS” WITHOUT
‘WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
‘INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
‘OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
‘PURPOSE

‘——————————————————————————
‘ FILE DESCRIPTION: The macro ChangeFolder changes the name of all Outlook
‘ Default Folders to the language of your choice.
‘ AUTHOR: Siegfried Weber, http://www.cdolive.com
‘ VERSION INFO: Ver 1.0, 14 Jan 2000
‘
‘ Copyright (c) 2000, free public use permitted with attribution
‘——————————————————————————

Sub ChangeFolder()

‘ Initialize error handling
On Error Resume Next

‘ MAPI property to access Drafts folder
Const CdoPR_Drafts = &H36D70102

‘Tyska
‘Const FOLDER_CALENDAR = “Kalender”
‘Const FOLDER_CONTACTS = “Kontakte”
‘Const FOLDER_DELETEDITEMS = “Gelöschte Objekte”
‘Const FOLDER_INBOX = “Posteingang”
‘Const FOLDER_JOURNAL = “Journal”
‘Const FOLDER_NOTES = “Notizen”
‘Const FOLDER_OUTBOX = “Postausgang”
‘Const FOLDER_SENTITEMS = “Gesendete Objekte”
‘Const FOLDER_TASKS = “Aufgaben”
‘Const FOLDER_DRAFTS = “Entwürfe”

‘Svenska
Const FOLDER_CALENDAR = “Kalender”
Const FOLDER_CONTACTS = “Kontakter”
Const FOLDER_DELETEDITEMS = “Borttaget”
Const FOLDER_INBOX = “Inkorgen”
Const FOLDER_JOURNAL = “Journal”
Const FOLDER_NOTES = “Anteckningar”
Const FOLDER_OUTBOX = “Utkorgen”
Const FOLDER_SENTITEMS = “Skickat”
Const FOLDER_TASKS = “Uppgifter”
Const FOLDER_DRAFTS = “Utkast”

‘Norska
‘Const FOLDER_CALENDAR = “Kalender”
‘Const FOLDER_CONTACTS = “Kontakter”
‘Const FOLDER_DELETEDITEMS = “Slettede Elementer”
‘Const FOLDER_INBOX = “Innboks”
‘Const FOLDER_JOURNAL = “Logg”
‘Const FOLDER_NOTES = “Notater”
‘Const FOLDER_OUTBOX = “Utboks”
‘Const FOLDER_SENTITEMS = “Sendte Elementer”
‘Const FOLDER_TASKS = “Oppgaver”
‘Const FOLDER_DRAFTS = “Kladd”

‘Danska
‘Const FOLDER_CALENDAR = “Kalender”
‘Const FOLDER_CONTACTS = “Kontakter”
‘Const FOLDER_DELETEDITEMS = “Borttaget”
‘Const FOLDER_INBOX = “Inkorgen”
‘Const FOLDER_JOURNAL = “Journal”
‘Const FOLDER_NOTES = “Anteckningar”
‘Const FOLDER_OUTBOX = “Utkorgen”
‘Const FOLDER_SENTITEMS = “Skickat”
‘Const FOLDER_TASKS = “Uppgifter”
‘Const FOLDER_DRAFTS = “Utkast”

‘Engelska
‘Const FOLDER_CALENDAR = “Calendar”
‘Const FOLDER_CONTACTS = “Contacts”
‘Const FOLDER_DELETEDITEMS = “Deleted Items”
‘Const FOLDER_INBOX = “Inbox”
‘Const FOLDER_JOURNAL = “Journal”
‘Const FOLDER_NOTES = “Notes”
‘Const FOLDER_OUTBOX = “Outbox”
‘Const FOLDER_SENTITEMS = “Sent Items”
‘Const FOLDER_TASKS = “Tasks”
‘Const FOLDER_DRAFTS = “Drafts”

‘ Declare variables
Dim objSession As MAPI.Session
Dim objFolder As MAPI.Folder
Dim objInboxFolder As MAPI.Folder
Dim objFields As MAPI.Fields
Dim strEntryID As String

‘ Initialize variables
Set objSession = Nothing
Set objFolder = Nothing
Set objInboxFolder = Nothing
Set objFields = Nothing

‘ Create CDO session and logon
Set objSession = New MAPI.Session

‘ Check if CDO session created
If Not objSession Is Nothing Then

‘ CDO session logon
Err.Clear
objSession.Logon “”, “”, ShowDialog:=False, NewSession:=False

‘ Check if CDO session logon successful
If Err.Number = 0 Then

‘ Get default calendar folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderCalendar)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_CALENDAR

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default contact folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderContacts)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_CONTACTS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default deleted items folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderDeletedItems)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_DELETEDITEMS

‘ Save change
s
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default inbox folder
Err.Clear
Set objFolder = objSession.Inbox

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_INBOX

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default journal folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderJournal)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_JOURNAL

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default notes folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderNotes)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_NOTES

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default outbox folder
Err.Clear
Set objFolder = objSession.Outbox

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_OUTBOX

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default sent items folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderSentItems)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_SENTITEMS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default tasks folder
Err.Clear
Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderTasks)

‘ Check if folder found
If Err.Number = 0 Then

‘ Rename folder
objFolder.Name = FOLDER_TASKS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Get default inbox folder
Set objInboxFolder = objSession.Inbox

‘ Get fields collection of inbox folder
Set objFields = objInboxFolder.Fields

‘ Get drafts folder entry ID
strEntryID = objFields.Item(CdoPR_Drafts).Value

‘ Check if entry ID found
Set objFolder = Nothing
If Trim(strEntryID) <> “” Then

‘ Get default drafts folder
Set objFolder = objSession.GetFolder(strEntryID, objInboxFolder.StoreID)
End If

‘ Check if folder found
If Not objFolder Is Nothing Then

‘ Rename folder
objFolder.Name = FOLDER_DRAFTS

‘ Save changes
Err.Clear
objFolder.Update MakePermanent:=True, RefreshObject:=True

‘ Check for possible errors
If Err.Number <> 0 Then

‘ Cannot change folder name, display error message
MsgBox “Could not change Outlook default folder name for: “ & objFolder.Name _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
End If

‘ Logoff
objSession.Logoff
MsgBox “Finished changing Outlook default folder names.”, vbInformation
Else

‘ Cannot logon to CDO session, display error message
MsgBox “Could not create CDO Session. Please check if CDO 1.x is installed on this computer.” _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If
Else

‘ Cannot create CDO session, display error message
MsgBox “Could not create CDO Session. Please check if CDO 1.x is installed on this computer.” _
& Chr(13) & Err.Number & Chr(13) & Err.Description, vbCritical
End If

‘ Tidy up
Set objSession = Nothing
Set objFolder = Nothing
Set objInboxFolder = Nothing
Set objFields = Nothing
End Sub

‘ RenFldr – Rename Outlook “Special Folders”
‘ (c) Neo (n…@mvps.org)
‘ 11.11.2000, v.1.0
‘ 11.06.2002, v.1.1

‘ Test System
‘ Windows Script Host v.
‘ VBScript v.
‘ Outlook 2000 (SR1a)
‘ Windows 2000 (SP1)

‘ Change Log
‘ 11.11.2000 – Creation Date
‘ 11.06.2002 – Added support drafts folder

Const olFolderDeletedItems = 3
Const olFolderOutbox = 4
Const olFolderSentItems = 5
Const olFolderInbox = 6
Const olFolderCalendar = 9
Const olFolderContacts = 10
Const olFolderJournal = 11
Const olFolderNotes = 12
Const olFolderTasks = 13
Const olFolderDrafts = 16

Dim Engine
Dim Outlook
Dim Folder

Select Case UCase(Right(WScript.FullName, 11))
Case “WSCRIPT.EXE”
Engine = “W”
Case “CSCRIPT.EXE”
Engine = “C”
End Select

Set Args = WScript.Arguments

If Args.Count = 0 Then
DisplayHelp()
WScript.Quit
End If

If Args.Item(0) = “-?” Or Args.Item(0) = “/?” Or Args.item(0) = “?” Then
DisplayHelp()
WScript.Quit
End If

If Args.Count <> 2 Then
DisplayHelp()
WScript.Quit
End If

Set Outlook = CreateObject(“Outlook.Application”)
Set Folder = Nothing

Select Case UCase(Args.Item(0))
Case “CALENDAR”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderCalendar)
Case “INBOX”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderInbox)
Case “OUTBOX”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderOutbox)
Case “SENTITEMS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderSentItems)
Case “DELETEDITEMS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderDeletedItems)
Case “CONTACTS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderContacts)
Case “JOURNAL”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderJournal)
Case “NOTES”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderNotes)
Case “TASKS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderTasks)
Case “DRAFTS”
Set Folder = Outlook.GetNameSpace(“MAPI”).GetDefaultFolder(olFolderDrafts)
Case Else
DisplayHelp()
End Select

If Folder Is Nothing Then
WScript.Quit
End If

Folder.Name = Args.Item(1)

Set Folder = Nothing
Set Outlook = Nothing

Sub DisplayHelp()
If Engine = “W” Then
MsgBox “RenFldr:” & vbCRLF &_
” Change Name of Default Folders” & vbCRLF & vbCRLF &_
“Usage: RenFldr Folder NewName” & vbCRLF & vbCRLF &_
” Supported values for Folder:” & vbCRLF &_
” Inbox” & vbCRLF &_
” Outbox” & vbCRLF &_
” Calendar” & vbCRLF &_
” SentItems” & vbCRLF &_
” DeletedItems” & vbCRLF &_
” Contacts” & vbCRLF &_
” Journal” & vbCRLF &_
” Notes” & vbCRLF &_
” Tasks” & vbCRLF &_
” Drafts”
Else
WScript.StdOut.WriteLine “RenFldr:”
WScript.StdOut.WriteLine ” Change Name of Default Folders” & vbCRLF
WScript.StdOut.WriteLine “Usage: RenFldr Folder NewName” & vbCRLF
WScript.StdOut.WriteLine ” Supported values for Folder:”
WScript.StdOut.WriteLine ” Inbox”
WScript.StdOut.WriteLine ” Outbox”
WScript.StdOut.WriteLine ” Calendar”
WScript.StdOut.WriteLine ” SentItems”
WScript.StdOut.WriteLine ” DeletedItems”
WScript.StdOut.WriteLine ” Contacts”
WScript.StdOut.WriteLine ” Journal”
WScript.StdOut.WriteLine ” Notes”
WScript.StdOut.WriteLine ” Tasks”
WScript.StdOut.WriteLine ” Drafts”
End If
End Sub

Sometimes some drives kannot be unmounted with USE Z: /DELETE. This Applies mostly to manyally mapped drives. You can then use USE Z: /DELETE /PERSISTENT instead.

Om du får meddelandet att det inte finns fler licenser kan detta dero på att licenser plockats för användare som inte finns längre. För att avhjälpa detta plocka bort wfl.dat som finns i Wordfinders katalog under Program.