Goggle Accout auslesen

#include <MsgBoxConstants.au3>
#include <OutlookEX.au3>

$sAccount = _Get_Microsoft_Outlook_Account()
MsgBox(1, "$sAccount", $sAccount)


Func _Get_Microsoft_Outlook_Account()
    Local $bCreated = False
    Local $sAccount = "not found"
    Local $oClient = ObjGet("", "Outlook.Application") ; Try to connect to a running instance
    If @error Then
        $oClient = ObjCreate("Outlook.Application") ; No instance was running, start Outlook
        $bCreated = True
    EndIf
    If Not @error Then
        For $oAccount In $oClient.Session.Accounts
            $sAccount = $oAccount.SMTPAddress
            ExitLoop
        Next
    EndIf
    If $bCreated Then ; If Outlook has been started by this function, logoff and close Outlook
        $oClient.Session.Logoff
        $oClient.Application.Quit
        $oClient.Quit
        $oClient = 0
    EndIf
    Return $sAccount
EndFunc   ;==>_Get_Microsoft_Outlook_Account