Hallo zusammen,
hier ein kleines Skript zum Auslesen der eingebunden Zusatz-Postfächer in Outlook 2003:
[autoit]$Ergebnis = ""
$StandardPostfach = RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles", "DefaultProfile")
$RegistryStart = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\" & $StandardPostfach & "\"
$RegistryWert = "001e660b"
$Suche = "cn="
$User = @UserName
For $i = 1 To 150
$var = RegEnumKey($RegistryStart, $i)
If @error <> 0 Then ExitLoop
$Abfrage = RegRead($RegistryStart & $var, $RegistryWert)
If StringInStr($Abfrage, $Suche) Then
$Vorhanden = Stringinstr($Abfrage, $Suche, 0, -1)
$Gesamt = StringLen($Abfrage)
$Wert = StringTrimLeft($Abfrage, $Vorhanden + 2)
If $Wert = $User Then
ContinueLoop
EndIf
$Ergebnis = $Ergebnis & $Wert & @CRLF
EndIf
Next
If $Ergebnis = "" Then
MsgBox(0, "", "Keine zusätzlichen Postfächer gefunden.")
Else
MsgBox(0, "", $Ergebnis)
EndIf
Ich hoffe es funktioniert auch bei euch.
Gruß
speedy08