Toon posts:

/importprf met outlook 98 mogelijk?

Pagina: 1
Acties:

Verwijderd

Topicstarter
nou, de titel zegt het al, is het mogelijk om de schakeloptie /importprf te gebruiken bij outlook 98? Ik heb namelijk overal op internet gezocht en daar staat overal die schakeloptie genoemd, maar al probeer ik hem op mijn pc (outlook 98 NL geinstalleerd) dan zegt hij dat hij de schakeloptie niet herkend.

  • collin
  • Registratie: Februari 2000
  • Laatst online: 14-05 17:08

collin

Who da man !!

Nee, die optie wordt pas vanaf Outlook XP herkend. Ik heb een zelfgemaakt script (KiXtart) die elke versie van Outlook automatisch aan een Exchange server knoopt, als je interesse hebt..

Mijn iRacing profiel


Verwijderd

Topicstarter
collin schreef op 21 juli 2004 @ 11:51:
Nee, die optie wordt pas vanaf Outlook XP herkend. Ik heb een zelfgemaakt script (KiXtart) die elke versie van Outlook automatisch aan een Exchange server knoopt, als je interesse hebt..
daar heb ik dan zeker wel interesse in :D

  • collin
  • Registratie: Februari 2000
  • Laatst online: 14-05 17:08

collin

Who da man !!

Nou vooruit dan maar ;)

Dit is het KiXtart script:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
$ExchangeServer = "JE-EXCHANGE-SERVER"

del "%TEMP%\@UserId.prf"

Select
    Case KeyExist("HKCU\Software\Microsoft\Windows Messaging Subsystem\Profiles\@USERID")
        $Dummy = Writevalue("HKCU\Software\Microsoft\Windows Messaging Subsystem\Profiles" , "DefaultProfile" , "@USERID" , "REG_SZ")
        Exit
    Case KeyExist("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\@USERID")
        $Dummy = Writevalue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles" , "DefaultProfile" , "@USERID" , "REG_SZ")
        Exit
    Case Exist(ReadValue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE",""))
        $OutlookVersionNr=GetFileVersion(ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE",""))
        $OutlookPath=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE","")
    Case 1
        Exit
EndSelect

Select
    Case Left($OutlookVersionNr,1)=8
        $OutlookVersion=97
    Case Left($OutlookVersionNr,1)=9
        $OutlookVersion=2000
    Case Left($OutlookVersionNr,2)=10
        $OutlookVersion=XP
    Case Left($OutlookVersionNr,2)=11
        $OutlookVersion=2003
EndSelect

copy "$ScriptDir\data\Outlook\Outlook.prf" "%TEMP%\@UserID.prf"
copy "$ScriptDir\data\Outlook\Fixprf.exe" %TEMP%
copy "$ScriptDir\data\Outlook\Newprof.exe" %TEMP%
SHELL '%COMSPEC% /C %TEMP%\fixprf %TEMP%\@UserID.prf @USERID @USERID $ExchangeServer'

Select
    Case $OutlookVersion=97
        SHELL '%COMSPEC% /C %TEMP%\newprof -p %TEMP%\@UserID.prf -x'
    Case $OutlookVersion=2000
        SHELL '%COMSPEC% /C %TEMP%\newprof -p %TEMP%\@UserID.prf -x'
    Case $OutlookVersion=XP
        Run '$OutlookPath /importprf %TEMP%\@UserId.prf'
    Case $OutlookVersion=2003
        Run '$OutlookPath /importprf %TEMP%\@UserId.prf'
EndSelect

Sleep 1

del "%TEMP%\Fixprf.exe"
del "%TEMP%\Newprof.exe"

Wat je moet weten van dit script:
• Hij maakt een nieuw Outlook profiel aan genaamd %Username% (bijv. JJansen) gebruiker (alleen als er geen profiel bestaat met die naam)

• Hij zet het outlook profiel genaamd '%username%' als standaard Outlook profiel

• De exchange alias moet gelijk zijn aan de username van de gebruiker (mocht dit niet kunnen, post dan ff, passen we hem aan) dit is om de username te resolven naar een Exchange mailbox

• Hij werkt voor Outlook 97 t/m 2003

That's it! Ben benieuwd of het een beetje wil werken :)

[edit]
Vergeten, je hebt ook de drie bestanden outlook.prf, fixprf.exe en newprof.exe nodig, maar misschien heb je die al, als je met /importprf bezig bent.

je moet ook de paden in dit stukje script aanpassen:
code:
1
2
3
copy "$ScriptDir\data\Outlook\Outlook.prf" "%TEMP%\@UserID.prf"
copy "$ScriptDir\data\Outlook\Fixprf.exe" %TEMP%
copy "$ScriptDir\data\Outlook\Newprof.exe" %TEMP%

[ Voor 15% gewijzigd door collin op 21-07-2004 12:09 ]

Mijn iRacing profiel


Verwijderd

Topicstarter
Thnx dude, werkt perfect. Maar kheb nu ook wel weer een goede reden om aan te dringen dat we op outlook 2003 over moeten gaan >:)