Outlook 2003 - Zusätzliche Postfächer auslesen

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

[/autoit][autoit][/autoit][autoit]

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

[/autoit][autoit][/autoit][autoit]

If $Ergebnis = "" Then
MsgBox(0, "", "Keine zusätzlichen Postfächer gefunden.")
Else
MsgBox(0, "", $Ergebnis)
EndIf

[/autoit]

Ich hoffe es funktioniert auch bei euch.

Gruß
speedy08

Hallo water,

kannst Du mir hierzu eine Hilfe geben? Ich hab mir Deine UDF schon angeschaut, kann aber nichts passendes finden (kann immer nur im eigenen Postfach suchen).