What a mess I am having. Outlook 2007 was working perfectly on Xp SP2.
Unfortunately, a Trojan crippled me and I decided to install Vista RC2 64 bit
and installed 2007 onto RC2 and installed the technical refresh to Office
Proferssional. Outlook will not open; it just freezes. It gives me errors
about the pst file or, since I use a remotely hosted Exchange, the ost file.
I have tried the repairing the installation and the data file repair tool and
there is no change. This occured after I ran the following VBS file
'-----------------------------------------------------------------------------
' file: RPCHTP2007.vbs
'
' THIS CODE AND INFORMATION IS PROVIDED TO YOU FOR YOUR REFERENTIAL PURPOSES
' ONLY, AND 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, AND MAY NOT
' BE REDISTRIBUTED IN ANY MANNER.
'
' Copyright (C) 2003 Microsoft Corporation. All rights reserved.
'
'Disclaimer
'
'The sample scripts are not supported under any Microsoft standard support
program or service.
'The sample scripts are provided AS IS without warranty of any kind.
Microsoft further disclaims
'all implied warranties including, without limitation, any implied
warranties of merchantability
'or of fitness for a particular purpose. The entire risk arising out of the
use or performance of
'the sample scripts and documentation remains with you. In no event shall
Microsoft, its authors,
'or anyone else involved in the creation, production, or delivery of the
scripts be liable for any
'damages whatsoever (including, without limitation, damages for loss of
business profits, business
'interruption, loss of business information, or other pecuniary loss)
arising out of the use of or
'inability to use the sample scripts 'or documentation, even if Microsoft
has been advised of the
'possibility of such damages.
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'History: RL - 7/1/03: modified for deployment.
' RL- 7/14/03: modified the servercheck function.
' JG - 11/16/07: modified for Outlook 12 ( 2007 )
'-----------------------------------------------------------------------------
Option Explicit
On Error Resume Next
'-----------------------------
' Constants
'-----------------------------
Const cLogFile = "RPCHTTP.log"
Const ForAppending = 8
Const TemporaryFolder = 2
Const cTitle = "RPC over HTTP"
Const Off11FamilyCode = "{????????-6000-11D3-8CFE-0?50048383C9}"
'-----------------------------
' Objects
'-----------------------------
Dim WshShell : Set WshShell = CreateObject("Wscript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim msi : Set msi = CreateObject("WindowsInstaller.Installer")
'-----------------------------
' Path Variables
'-----------------------------
Dim root : root = fso.GetParentFolderName(Wscript.ScriptFullName)
Dim sUserProfile : sUserProfile =
wshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Dim sTemp : sTemp = fso.GetSpecialFolder(TemporaryFolder)
Dim sLogFile : sLogFile = fso.BuildPath(sTemp,cLogFile)
Dim srcPRFFile : srcPRFFile = ""
Dim dstPRFFile : dstPRFFile = ""
Dim sPRFFile : sPRFFile = ""
Dim output : output = ""
Dim sExgSrvr : sExgSrvr = ""
Dim errors : errors = ""
'-----------------------------
' Booleans
'-----------------------------
Dim bNeedsReboot : bNeedsReboot = FALSE
Dim bDebug : bDebug = FALSE
Dim bManual : bManual = FALSE
Dim bOffice11Installed : bOffice11Installed = FALSE
'-----------------------------
' Operating System Variables
'-----------------------------
Dim osVer,osCSDVer,osBuild,osSPMaj,osSPMin,osLanguage
'-----------------------------
' Exchange Servers-PRF Files
' History: RL - 7/10/03: preparing this file for deployment.
' Commented out MS servers, and added "mail.prf"
'-----------------------------
sPRFFile = "mail.prf"
CreateLog
WriteLog "Root: " & root
WriteLog "Temporary Directory: " & sTemp
WriteLog "UserProfile: " & sUserProfile
'Make sure we can run the script on this machine
'bOffice11Installed = IsOffice11Installed()
'If Not bOffice11Installed then
' WriteLog "Outlook 2003 is not Installed."'
' wshShell.Popup "RPC over HTTP requires Outlook 2003 to be
installed.",0,cTitle
' EndScript 1050
'End If
DetectOS
If (osVer < "5.1") OR ( (osVer = "5.1") AND (osSPMaj < 1)) Then
WriteLog "Operating System does not support RPC over HTTP."
wshShell.Popup "In order to work, RPC over HTTP requires Windows XP SP2.
Go to
http://windowsupdate.microsoft.com to install Windows XP SP2.",0,cTitle
EndScript 1012
End If
If ( (osVer = "5.1") AND (osSPMaj = 1) AND (osLanguage <> 1033) ) Then
WriteLog "Operating System does not support RPC over HTTP."
wshShell.Popup "RPC over HTTP requires an English version of Windows XP
SP2. Go to
http://windowsupdate.microsoft.com to install Windows XP
SP2.",0,cTitle
EndScript 1012
End If
'After we know that ths script should be able to run, notify the user of the
pre-requisites
Dim popret : popret = 0
popret = WshShell.Popup("This script will modify your default MAPI profile.
If your current default profile is not the one you want to enable for
RPC/HTTP, exit now and make it your default by using the Mail Applet in the
Control Panel. Would you like to continue?",0,cTitle,4)
If popret = 7 Then
EndScript 0
End If
'----------------------------------------------------------------
'Main Function
'
' Complete all the steps necessary to configure the Machine for RPC/HTTP
'
'----------------------------------------------------------------
ServerCheck 'Doing Step3 First. If PRF File doesnot exist, then should not
proceed.
If (sPRFFile <> "") AND fso.FileExists(srcPRFFile) Then
EnableUI
EnableBCM
If osVer = "5.1" AND osSPMaj = 1 Then
InstallQFE
If Not QFE_IsInstalled("Q331320") Then
WshShell.Popup "Hotfix has not been installed. RPC over HTTP could not be
configured.",0,cTitle
EndScript 1603
End If
End If
ReplicatePRF
ImportPRF
RemoveFirstRun
FinishDialog
EndScript 0
Else
wshshell.Popup "Either you did not save mail.prf and RPCHTTP.vbs to the
same location, or your Outlook Profile has not been configured yet. If you
saved the files properly, run Outlook and exit out prior to rerunning this
script.",0,cTitle
EndScript 1010 'Machine Excluded (Due to Exchange Server)
End If
'----------------------------------------------------------------
'Sub EnableUI
' Turn on the Outlook UI so the user can configure manually
'----------------------------------------------------------------
Sub EnableUI() 'EnableUI
Dim retVal
retVal =
WriteRegistry("HKCU\Software\Microsoft\Office\12.0\Outlook\RPC\EnableRPCtunnelingUI",1,"REG_DWORD")
End Sub
'----------------------------------------------------------------
'Sub EnableBCM
' Enable Business Contact Manager Reg Key
'----------------------------------------------------------------
Sub EnableBCM() 'EnableUI
Dim retVal
retVal = CreateRegistry("HKLM\software\microsoft\hostedexchange20\")
End Sub
'----------------------------------------------------------------
'Sub InstallQFE
' Install OS QFE, appropriate error handling if failure
'----------------------------------------------------------------
Sub InstallQFE() 'Install QFE
On Error Resume Next
Dim sExePath,sSwitches,sCmdLine,retval
If Not QFE_IsInstalled("Q331320") Then
sExePath = fso.BuildPath(root,"Q331320.EXE")
sSwitches = "-u -z"
sCmdLine = """" & sExePath & """" & " " & sSwitches
If fso.FileExists(sExePath) Then
WriteLog "Executing [" & sCmdLine & "]"
retval=WshShell.Run(sCmdLine,,1)
WriteLog "Execution of [" & sExePath & "] Finished with a code of " &
retval
If QFE_IsInstalled("Q331320") Then
bNeedsReboot = TRUE
End If
Else
WriteLog "Hotfix [" & sExePath & "] Not Found."
wshShell.Popup "A required File, " & sExePath & " could not be
found.",0,cTitle
EndScript 1015
End If
End If
End Sub
'----------------------------------------------------------------
'Sub ServerCheck
' Read the Exchange Server from the default profile
' and check whether it's a valid profile to configure.
' Choose the correct PRF file based on the Exchange Server.
'History: RL - 7/14/03: Removed multiple prf/Exchange Server functionality.
' Assuming one prf file.
' RL - 8/11/03: Removed reg read for default profile. Default profile not
required.
'----------------------------------------------------------------
Sub ServerCheck() 'Determine Excg Server and copy PRF File (Steps 3 & 4)
Dim profile,itemArr,lenPrefix,SrvrCnt
Err.Clear
On Error Resume Next
'Assuming a single prf file.
WriteLog "PRF File: " & sPRFFile
'User has to save the prf file to the same folder as vbs file.
srcPRFFile = fso.BuildPath(root, sPRFFile)
WriteLog "Source PRF File: " & srcPRFFile
End Sub
'----------------------------------------------------------------
'Sub ReplicatePRF
' Copy the appropriate PRF file to the user's Application Data directory.
'----------------------------------------------------------------
Sub ReplicatePRF()
On Error Resume Next
If (sPRFFile <> "") AND fso.FileExists(srcPRFFile) Then
dstPRFFile = fso.BuildPath(sUserProfile,"Application
Data\Microsoft\Outlook\rpchttp.prf")
If fso.FileExists(dstPRFFile) Then
WriteLog "File [" & dstPRFFile & "] already exists. Renaming to [" &
dstPRFFile & ".bak]."
fso.CopyFile dstPRFFile,dstPRFFile & ".bak",TRUE
fso.DeleteFile dstPRFFile,TRUE
If fso.FileExists(dstPRFFile) Then
WriteLog "Unable to delete original [" & dstPRFFile & "]."
End If
End If
WriteLog "Destination PRF File: " & dstPRFFile
fso.CopyFile srcPRFFile,dstPRFFile,TRUE
If fso.FileExists(dstPRFFile) Then
WriteLog "Copied [" & srcPRFFile & "] to [" & dstPRFFile & "]"
End If
End If
End Sub
'----------------------------------------------------------------
'Sub ImportPRF
' Set up Outlook to import a PRF file on the next boot.
'----------------------------------------------------------------
Sub ImportPRF() 'Set up the Import
If fso.FileExists(dstPRFFile) Then
bManual = Not
WriteRegistry("HKCU\Software\Microsoft\Office\12.0\Outlook\Setup\ImportPRF",dstPRFFile,"REG_SZ")
Else
bManual = TRUE
WriteLog "File [" & dstPRFFile & "] doesn't exist. Not Setting ImportPRF"
End If
End Sub
'----------------------------------------------------------------
'Sub RemoveFirstRun
' Delete the Outlook First-Run registry value.
'----------------------------------------------------------------
Sub RemoveFirstRun() 'Remove First Run
bManual = Not
DeleteRegistry("HKCU\Software\Microsoft\Office\12.0\Outlook\Setup\First-Run")
End Sub
'----------------------------------------------------------------
'Sub Finish Dialog
' Completion Dialog. Also prompt for reboot if applicable.
'----------------------------------------------------------------
Sub FinishDialog() 'Cause Reboot
On Error Resume Next
Dim popret : popret = 0
Dim spopMsg
If Not bManual Then
If bNeedsReboot Then
popret = WshShell.Popup("Script completed successfully! To complete the
configuration of RPC over HTTP, please reboot your machine. Would you like
to reboot now?",0,cTitle,4)
If popret=6 Then
doReboot
End If
Else
popret = WshShell.Popup("Script completed successfully! To complete the
configuration of RPC over HTTP, please exit and restart Outlook if it's
running",0,cTitle)
End If
Else
If bNeedsReboot Then
sPopMsg = "Setup completed successfully! To complete the installation of
RPC over HTTP, please reboot your machine. Then goto "
sPopMsg = sPopMsg & fso.GetParentFolderName(dstPRFFile) & " and double
click on the rpchttp.prf file."
sPopMsg = sPopMsg & vbcrlf & "Do you wish to reboot Now?"
popret=WshShell.Popup(sPopMsg,0,cTitle,4)
If popret=6 Then
doreboot
End If
Else
sPopMsg = "Script completed successfully! To complete the installation of
RPC over HTTP, please goto "
sPopMsg = sPopMsg & fso.GetParentFolderName(dstPRFFile) & " and double
click on the rpchttp.prf file."
popret=WshShell.Popup(sPopMsg,0,cTitle)
End If
End If
End Sub
'----------------------------------------------------------------
'Sub CreateLog
' Open the logging file and stamp that we've started.
'----------------------------------------------------------------
Sub CreateLog()
On Error Resume Next
If Not IsObject(output) Then
If fso.FileExists(sLogFile) Then
set output = fso.OpenTextFile(slogFile,ForAppEnding,True)
Else
set output = fso.CreateTextFile(slogfile)
End If
If Err <> 0 Then
output = ""
Else
WriteLog "--- Logging Started ---"
WriteLog "LogFile: " & sLogFile
End If
End If
End Sub
'----------------------------------------------------------------
'Sub WriteLog
' Write a time/date stamped line to the log
'----------------------------------------------------------------
Sub WriteLog(strMessage)
On Error Resume Next
If IsObject(output) Then
output.WriteLine Now & ": " & strMessage
End If
If bDebug Then wscript.echo strMessage
End Sub
'----------------------------------------------------------------
'Sub EndScript
' Close up the log and end the script
'----------------------------------------------------------------
Sub EndScript(retcode)
On Error Resume Next
WriteLog "--- Logging Complete ---"
WriteLog ""
StatusMIF "",1
If isObject(output) Then output.close
wscript.quit(retcode)
End Sub
'----------------------------------------------------------------
'Sub StatusMIF
' Currently does nothing
'----------------------------------------------------------------
Sub StatusMIF(strMsg,statusCode)
End Sub
'----------------------------------------------------------------
'Function QFE_IsInstalled
' Determine whether or not a QFE is installed
' Return TRUE if installed, FALSE is not
'----------------------------------------------------------------
Function QFE_IsInstalled(sQFE)
On Error Resume Next
Dim IsInstalled : IsInstalled = 0
Dim QFEReg : QFEReg = "HKLM\Software\Microsoft\Windows
NT\CurrentVersion\Hotfix"
Dim sQFERegPath : sQFERegPath = QFEReg & "\" & sQFE & "\Installed"
QFE_IsInstalled=FALSE
IsInstalled = wshshell.RegRead(sQFERegPath)
If Err <> 0 Then
WriteLog Err & ":" & Err.Description
If CBool(IsInstalled) Then
WriteLog "Hotfix " & sQFE & " is Installed."
QFE_IsInstalled = TRUE
Else
WriteLog "Hotfix " & sQFE & " is not Installed."
QFE_IsInstalled = FALSE
End If
Else
WriteLog IsInstalled & " < " & sQFERegPath
WriteLog "Hotfix " & sQFE & " is Installed."
QFE_IsInstalled = TRUE
End If
End Function
'----------------------------------------------------------------
'Function doReboot
' Reboot the system, display error on fail
'----------------------------------------------------------------
Function doReboot()
Dim oSvc,eOS,oOS
WriteLog "--- Logging Complete ---"
WriteLog ""
StatusMIF "",1
If isObject(output) Then
output.close
Set output = Nothing
output = ""
End If
On Error Resume Next
Set oSvc =
GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}root/cimv2")
Set eOS = oSvc.ExecQuery("Select * from Win32_OperatingSystem")
For Each oOS in eOS
oOS.Reboot()
Next
If Err <> 0 Then
wshShell.Popup "Your machine could not be rebooted. Please reboot at your
earliest convenience.",0,cTitle,0
End If
End Function
'----------------------------------------------------------------
'Function DetectOS
' Sets global variables
' osVer, osBuild, osSPMaj, osSPMin, osLanguage
'----------------------------------------------------------------
Function DetectOS()
On Error Resume Next
Dim oSvc,eOS,oOS
Set oSvc = GetObject("winmgmts:{impersonationLevel=impersonate}root/cimv2")
Set eOS = oSvc.ExecQuery("Select * from Win32_OperatingSystem")
For Each oOS in eOS
osVer = oOS.Version
If Len(osVer) >= 3 Then osVer=Left(osVer,3)
WriteLog "Operating System Version: " & osVer
osBuild = oOS.BuildNumber
WriteLog "Operating System Build: " & osBuild
osCSDVer = oOS.CSDVersion
osSPMaj = oOS.ServicePackMajorVersion
WriteLog "Operating System SP: " & osSPMaj
osSPMin = oOS.ServicePackMinorVersion
WriteLog "Operating System Minor SP: " & osSPMin
osLanguage = oOS.OSLanguage
WriteLog "Operating System Language: " & osLanguage
Next
End Function
'----------------------------------------------------------------
'Function CheckProductCode
' Returns: TRUE if ProductCode Matches the CodeTemplate
' FALSE Otherwise
' Where CodeTemplate is in the format of
' {????????-XXXX-XXXX-XXXX-XXXXXXXXXXXXX}
' where a '?' designates a wildcard, and the 'X' represents a
' Hexadecimal Digit
'----------------------------------------------------------------
Function CheckProductCode(ProductCode,CodeTemplate)
Dim Count, bNoMatch, i
if bDebug Then wscript.echo ProductCode & "---" &CodeTemplate
CheckProductCode = FALSE
Count = len(CodeTemplate)
If len(ProductCode) = Count Then
bNoMatch = FALSE
for i = 1 to Count
If Not bNoMatch Then
If bDebug Then wscript.echo mid(CodeTemplate,i,1) & " - = - " &
mid(ProductCode,i,1)
If mid(CodeTemplate,i,1) <> "?" Then
If mid(CodeTemplate,i,1) <> mid(ProductCode,i,1) Then
If bDebug Then wscript.echo "No Match at " & i
bNoMatch = TRUE
End If
End If
End If
next
If Not bNoMatch Then CheckProductCode = TRUE
End If
End Function
'----------------------------------------------------------------
'Function IsOffice11Installed
' Returns TRUE if product code of Off11FamilyCode exists
' Returns FALSE if Office 11 MSI product code not found
'----------------------------------------------------------------
Function IsOffice11Installed()
IsOffice11Installed = FALSE
Dim eProds,oProd
Set eProds = msi.Products
For Each oProd in eProds
If CheckProductCode(oprod,Off11FamilyCode) Then
IsOffice11Installed = TRUE
Exit For
End If
Next
End Function
'----------------------------------------------------------------
'Function WriteRegistry
' Returns TRUE if registry value was written successfully
' Returns FALSE on error and logs
'----------------------------------------------------------------
Function WriteRegistry(regVal,regData,regType)
WriteRegistry = TRUE
On Error Resume Next
Dim regEntry
regEntry = wshShell.RegRead(regVal)
If Err = 0 Then
WriteLog "[" & regEntry & "]" & " < " & regVal
Else
WriteLog "[] < " & regVal
End If
Err.Clear
wshShell.RegWrite regVal,regData,regType
regEntry = wshShell.RegRead(regVal)
If Err = 0 Then
WriteLog "[" & regEntry & "]" & " > " & regVal
Else
WriteRegistry = FALSE
WriteLog "Error: " & Err & ":" & Err.Description
WriteLog "[] > " & regVal
End If
Err.Clear
End Function
'----------------------------------------------------------------
'Function DeleteRegistry
' Returns TRUE if registry value was deleted successfully
' Returns FALSE on error and logs
'----------------------------------------------------------------
Function DeleteRegistry(regVal)
DeleteRegistry = TRUE
On Error Resume Next
Dim regEntry
wshShell.RegDelete regVal
If Err <> 0 Then
If Err = &H80070002 Then
WriteLog "Registry " & regVal & " was not Present."
End If
End If
regEntry = wshShell.RegRead(regVal)
If regEntry <> "" Then DeleteRegistry = FALSE
Err.Clear
End Function
'----------------------------------------------------------------
'Function CreateRegistry
' Returns TRUE if registry value was created successfully
' Returns FALSE on error and logs
'----------------------------------------------------------------
Function CreateRegistry(regKey)
CreateRegistry = TRUE
On Error Resume Next
Dim regEntry
wshShell.RegWrite regKey,"1","REG_SZ"
If Err <> 0 Then
WriteLog "Failed to create " & regKey & "."
End If
regEntry = wshShell.RegRead(regVal)
If regEntry <> "" Then CreateRegistry = TRUE
Err.Clear
End Function
AND ALSO the following mail.prf file
;Automatically generated PRF file from the Microsoft Office Customization
and Installation Wizard
; **************************************************************
; Section 1 - Profile Defaults
; **************************************************************
[General]
Custom=1
DefaultProfile=Yes
OverwriteProfile=Append
ModifyDefaultProfileIfPresent=TRUE
; **************************************************************
; Section 2 - Services in Profile
; **************************************************************
[Service List]
ServiceX=Microsoft Outlook Client
ServiceEGS=Exchange Global Section
Service1=Microsoft Exchange Server
ServiceEGS=Exchange Global Section
;***************************************************************
; Section 3 - List of internet accounts
;***************************************************************
[Internet Account List]
;***************************************************************
; Section 4 - Default values for each service.
;***************************************************************
[ServiceX]
CachedExchangeMode=0x00000002
CachedExchangeSlowDetect=TRUE
[ServiceEGS]
CachedExchangeConfigFlags=0x00000100
[email protected]
HomeServer=EXVS01
;RPCoverHTTPflags=0x002f
RPCoverHTTPflags=0x003f
RPCProxyServer=owa.exchangecentral.net
RPCProxyPrincipalName=msstd
wa.exchangecentral.net
RPCProxyAuthScheme=1
UseLocalCopyOfMailbox=0x00000184 ;cached mode
[Service1]
OverwriteExistingService=No
UniqueService=Yes
[email protected]
HomeServer=EXVS01
AccountName=Microsoft Exchange Server
;***************************************************************
; Section 5 - Values for each internet account.
;***************************************************************
;***************************************************************
; Section 6 - Mapping for profile properties
;***************************************************************
[Microsoft Exchange Server]
ServiceName=MSEMS
MDBGUID=5494A1C0297F101BA58708002B2A2517
MailboxName=PT_STRING8,0x6607
HomeServer=PT_STRING8,0x6608
OfflineAddressBookPath=PT_STRING8,0x660E
OfflineFolderPath=PT_STRING8,0x6610
[Exchange Global Section]
SectionGUID=13dbb0c8aa05101a9bb000aa002fc45a
MailboxName=PT_STRING8,0x6607
HomeServer=PT_STRING8,0x6608
RPCoverHTTPflags=PT_LONG,0x6623
RPCProxyServer=PT_UNICODE,0x6622
RPCProxyPrincipalName=PT_UNICODE,0x6625
RPCProxyAuthScheme=PT_LONG,0x6627
CachedExchangeConfigFlags=PT_LONG,0x6629
UseLocalCopyOfMailbox=PT_LONG,0x6601 ;cached mode
[Microsoft Mail]
ServiceName=MSFS
ServerPath=PT_STRING8,0x6600
Mailbox=PT_STRING8,0x6601
Password=PT_STRING8,0x67f0
RememberPassword=PT_BOOLEAN,0x6606
ConnectionType=PT_LONG,0x6603
UseSessionLog=PT_BOOLEAN,0x6604
SessionLogPath=PT_STRING8,0x6605
EnableUpload=PT_BOOLEAN,0x6620
EnableDownload=PT_BOOLEAN,0x6621
UploadMask=PT_LONG,0x6622
NetBiosNotification=PT_BOOLEAN,0x6623
NewMailPollInterval=PT_STRING8,0x6624
DisplayGalOnly=PT_BOOLEAN,0x6625
UseHeadersOnLAN=PT_BOOLEAN,0x6630
UseLocalAdressBookOnLAN=PT_BOOLEAN,0x6631
UseExternalToHelpDeliverOnLAN=PT_BOOLEAN,0x6632
UseHeadersOnRAS=PT_BOOLEAN,0x6640
UseLocalAdressBookOnRAS=PT_BOOLEAN,0x6641
UseExternalToHelpDeliverOnRAS=PT_BOOLEAN,0x6639
ConnectOnStartup=PT_BOOLEAN,0x6642
DisconnectAfterRetrieveHeaders=PT_BOOLEAN,0x6643
DisconnectAfterRetrieveMail=PT_BOOLEAN,0x6644
DisconnectOnExit=PT_BOOLEAN,0x6645
DefaultDialupConnectionName=PT_STRING8,0x6646
DialupRetryCount=PT_STRING8,0x6648
DialupRetryDelay=PT_STRING8,0x6649
[Personal Folders]
ServiceName=MSPST MS
Name=PT_STRING8,0x3001
PathToPersonalFolders=PT_STRING8,0x6700
RememberPassword=PT_BOOLEAN,0x6701
EncryptionType=PT_LONG,0x6702
Password=PT_STRING8,0x6703
[Unicode Personal Folders]
ServiceName=MSUPST MS
Name=PT_UNICODE,0x3001
PathToPersonalFolders=PT_STRING8,0x6700
RememberPassword=PT_BOOLEAN,0x6701
EncryptionType=PT_LONG,0x6702
Password=PT_STRING8,0x6703
[Outlook Address Book]
ServiceName=CONTAB
[LDAP Directory]
ServiceName=EMABLT
ServerName=PT_STRING8,0x6600
UserName=PT_STRING8,0x6602
UseSSL=PT_BOOLEAN,0x6613
UseSPA=PT_BOOLEAN,0x6615
DisableVLV=PT_LONG,0x6616
DisplayName=PT_STRING8,0x3001
ConnectionPort=PT_STRING8,0x6601
SearchTimeout=PT_STRING8,0x6607
MaxEntriesReturned=PT_STRING8,0x6608
SearchBase=PT_STRING8,0x6603
[Microsoft Outlook Client]
SectionGUID=0a0d020000000000c000000000000046
FormDirectoryPage=PT_STRING8,0x0270
WebServicesLocation=PT_STRING8,0x0271
ComposeWithWebServices=PT_BOOLEAN,0x0272
PromptWhenUsingWebServices=PT_BOOLEAN,0x0273
OpenWithWebServices=PT_BOOLEAN,0x0274
CachedExchangeMode=PT_LONG,0x041f
CachedExchangeSlowDetect=PT_BOOLEAN,0x0420
[Personal Address Book]
ServiceName=MSPST AB
NameOfPAB=PT_STRING8,0x001e3001
Path=PT_STRING8,0x001e6600
ShowNamesBy=PT_LONG,0x00036601
; ************************************************************************
; Section 7 - Mapping for internet account properties. DO NOT MODIFY.
; ************************************************************************
[I_Mail]
AccountType=POP3
;--- POP3 Account Settings ---
AccountName=PT_UNICODE,0x0002
DisplayName=PT_UNICODE,0x000B
EmailAddress=PT_UNICODE,0x000C
;--- POP3 Account Settings ---
POP3Server=PT_UNICODE,0x0100
POP3UserName=PT_UNICODE,0x0101
POP3UseSPA=PT_LONG,0x0108
Organization=PT_UNICODE,0x0107
ReplyEmailAddress=PT_UNICODE,0x0103
POP3Port=PT_LONG,0x0104
POP3UseSSL=PT_LONG,0x0105
; --- SMTP Account Settings ---
SMTPServer=PT_UNICODE,0x0200
SMTPUseAuth=PT_LONG,0x0203
SMTPAuthMethod=PT_LONG,0x0208
SMTPUserName=PT_UNICODE,0x0204
SMTPUseSPA=PT_LONG,0x0207
ConnectionType=PT_LONG,0x000F
ConnectionOID=PT_UNICODE,0x0010
SMTPPort=PT_LONG,0x0201
SMTPUseSSL=PT_LONG,0x0202
ServerTimeOut=PT_LONG,0x0209
LeaveOnServer=PT_LONG,0x1000
[IMAP_I_Mail]
AccountType=IMAP
;--- IMAP Account Settings ---
AccountName=PT_UNICODE,0x0002
DisplayName=PT_UNICODE,0x000B
EmailAddress=PT_UNICODE,0x000C
;--- IMAP Account Settings ---
IMAPServer=PT_UNICODE,0x0100
IMAPUserName=PT_UNICODE,0x0101
IMAPUseSPA=PT_LONG,0x0108
Organization=PT_UNICODE,0x0107
ReplyEmailAddress=PT_UNICODE,0x0103
IMAPPort=PT_LONG,0x0104
IMAPUseSSL=PT_LONG,0x0105
; --- SMTP Account Settings ---
SMTPServer=PT_UNICODE,0x0200
SMTPUseAuth=PT_LONG,0x0203
SMTPAuthMethod=PT_LONG,0x0208
SMTPUserName=PT_UNICODE,0x0204
SMTPUseSPA=PT_LONG,0x0207
ConnectionType=PT_LONG,0x000F
ConnectionOID=PT_UNICODE,0x0010
SMTPPort=PT_LONG,0x0201
SMTPUseSSL=PT_LONG,0x0202
ServerTimeOut=PT_LONG,0x0209
CheckNewImap=PT_LONG,0x1100
RootFolder=PT_UNICODE,0x1101
[INET_HTTP]
AccountType=HOTMAIL
Account=PT_UNICODE,0x0002
HttpServer=PT_UNICODE,0x0100
UserName=PT_UNICODE,0x0101
Organization=PT_UNICODE,0x0107
UseSPA=PT_LONG,0x0108
TimeOut=PT_LONG,0x0209
Reply=PT_UNICODE,0x0103
EmailAddress=PT_UNICODE,0x000C
FullName=PT_UNICODE,0x000B
Connection Type=PT_LONG,0x000F
ConnectOID=PT_UNICODE,0x0010
IS THIS TOO COMPLICATED FOR YOU TO HELP? IS THERE SOMETHING I CAN DO TO
MAKE THIS WORK? MY BUSINESS DEPENDS UPON IT!
Albert Kolkin
Registered Microsoft Partner
(e-mail address removed)
Milly Staples said:
Control Panel->Add/remove->Microsoft Office->Change->Repair. Also, you might want to run the Inbox Repair Tool.
--Â
Milly Staples [MVP - Outlook]
Post all replies to the group to keep the discussion intact. All
unsolicited mail sent to my personal account will be deleted without
reading.
After furious head scratching, I need help asked:
| The problem is that everytime I open Outlook seconds later a window
| pops up saying that outlook has encounterd a problem and needs to
| close the program. Why is this happening and how I can repair it?
| Thanxs
