Hi
I want to turn mail sound on and off programmatically using Visual Basic or C#.
The settings used in previous versions of Windows was located in the registry’s CURRENT_USER AppEvents\Schemes\Apps.Default\MailBeep folder, but this settings seems to be ignored.
I have found bits of settings in HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\Outlook\Settings\Data\global_Mail_PlaySound, but changing the value in code has no effect in the client.
I don’t want to turn off sound totally, I just want to change the setting for mail sound to on or off using some code in VB or C# with an application argument.
This code does not do the trick:
Dim comArgs() As String = Environment.GetCommandLineArgs
For Each comArg In comArgs
If comArg.ToLower.Contains("/on") Then
'Sätt på ljudet
Dim setValue As String = "{""name"":""Mail_PlaySound"",""itemClass"":""roamingsetting"",""id"":""RgAAAAA0zT-l4Q-tQLHwADYCw-ouBwDtV__ZDum8T7CsDsO5wuSsAAIBrEpfAADtV__ZDum8T7CsDsO5wuSsAAJfiXx-AAAA0"",""scope"":""Global"",""parentSetting"":"""",""secondaryKey"":"""",""status"":""SYNCEDTOSERVICE"",""type"":""Bool"",""timestamp"":0,""metadata"":"""",""value"":""true"",""isFirstSync"":""false""}"
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\Outlook\Settings\Data", "global_Mail_PlaySound", setValue)
Exit For
End If
If comArg.ToLower.Contains("/off") Then
'Stäng av ljudet
Dim setValue As String = "{""name"":""Mail_PlaySound"",""itemClass"":""roamingsetting"",""id"":""RgAAAAA0zT-l4Q-tQLHwADYCw-ouBwDtV__ZDum8T7CsDsO5wuSsAAIBrEpfAADtV__ZDum8T7CsDsO5wuSsAAJfiXx-AAAA0"",""scope"":""Global"",""parentSetting"":"""",""secondaryKey"":"""",""status"":""SYNCEDTOSERVICE"",""type"":""Bool"",""timestamp"":0,""metadata"":"""",""value"":""false"",""isFirstSync"":""false""}"
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\Outlook\Settings\Data", "global_Mail_PlaySound", setValue)
Exit For
End If
Next
Has anybody any idea on how to do this?
Regards
Peter Karlström