I try to help, even if it is not guaranteed to work, it is more than no help!Thanks so much for all of your replies, I'm so grateful for the existence of these forums and how members are seemingly always ready to help others. Thank You
James,I try to help, even if it is not guaranteed to work, it is more than no help!
After trying it myself i can say it feels like they just inserted the online outlook into a window - as it does with the free included 'Office' app, it is rubbish.
Yes, I most definitely have it turned off, but I dread the day when that option is deprecated.
using System;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Windows.Automation;
using System.Windows.Forms;
class Program
{
[DllImport("user32.dll")]
private static extern void keybd_event(byte bVk, byte bScan, int dwFlags, int dwExtraInfo);
private const int KEYEVENTF_EXTENDEDKEY = 1;
private const int KEYEVENTF_KEYUP = 2;
public static void KeyDown(Keys vKey)
{
keybd_event((byte)vKey, 0, KEYEVENTF_EXTENDEDKEY, 0);
}
public static void KeyUp(Keys vKey)
{
keybd_event((byte)vKey, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
}
private static void OnWindowOpened(object sender, AutomationEventArgs automationEventArgs)
{
try
{
var element = sender as AutomationElement;
if (element != null && Process.GetProcessById(element.Current.ProcessId).MainModule.FileName ==
Environment.GetFolderPath(Environment.SpecialFolder.System)+"\\ApplicationFrameHost.exe")
{
System.Threading.Thread.Sleep(1500);
KeyDown(Keys.F3);
KeyUp(Keys.F3);
System.Threading.Thread.Sleep(200);
KeyDown(Keys.LShiftKey);
KeyDown(Keys.Tab);
KeyUp(Keys.Tab);
KeyUp(Keys.LShiftKey);
KeyDown(Keys.Space);
KeyUp(Keys.Space);
KeyDown(Keys.Escape);
KeyUp(Keys.Escape);
KeyDown(Keys.LControlKey);
KeyDown(Keys.LShiftKey);
KeyDown(Keys.O);
KeyUp(Keys.LControlKey);
KeyUp(Keys.LShiftKey);
System.Threading.Thread.Sleep(200);
KeyDown(Keys.LControlKey);
KeyDown(Keys.LShiftKey);
KeyDown(Keys.I);
KeyUp(Keys.LControlKey);
KeyUp(Keys.LShiftKey);
}
}
catch (ElementNotAvailableException)
{
}
}
static void Main(string[] args)
{
System.Windows.Automation.Automation.AddAutomationEventHandler(
eventId: WindowPattern.WindowOpenedEvent,
element: AutomationElement.RootElement,
scope: TreeScope.Children,
eventHandler: OnWindowOpened);
Process.Start("outlookmail:");
System.Threading.Thread.Sleep(2500);
Automation.RemoveAllEventHandlers();
}
}@ECHO OFF
FOR /F "tokens=* USEBACKQ" %%F IN (`REG QUERY "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" /v InstallPath`) DO SET InstallPath=%%F
SET InstallPath=%InstallPath:*REG_SZ =%
FOR /F "tokens=* Eol= " %%F IN ("%InstallPath%") DO SET "InstallPath=%%F"
IF EXIST "%InstallPath%csc.exe" (ECHO ON) ELSE (ECHO ERROR - Missing csc.exe & GOTO end)
"%InstallPath%csc.exe" /out:"%~dp0\MailApp.exe" /target:winexe "%~dp0\MailApp.cs" /lib:%InstallPath%WPF /r:UIAutomationTypes.dll,UIAutomationClient.dll
:end
@ECHO Press any key to close this command window . . . & PAUSE >NUL
together!
using System;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Windows.Automation;
using System.Windows.Forms;
class Program
{
[DllImport("user32.dll")]
private static extern void keybd_event(byte bVk, byte bScan, int dwFlags, int dwExtraInfo);
private const int KEYEVENTF_EXTENDEDKEY = 1;
private const int KEYEVENTF_KEYUP = 2;
public static void KeyDown(Keys vKey)
{
keybd_event((byte)vKey, 0, KEYEVENTF_EXTENDEDKEY, 0);
}
public static void KeyUp(Keys vKey)
{
keybd_event((byte)vKey, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
}
private static void OnWindowOpened(object sender, AutomationEventArgs automationEventArgs)
{
try
{
var element = sender as AutomationElement;
if (element != null && Process.GetProcessById(element.Current.ProcessId).MainModule.FileName ==
Environment.GetFolderPath(Environment.SpecialFolder.System)+"\\ApplicationFrameHost.exe")
{
WindowPattern windowPattern = null;
windowPattern = element.GetCurrentPattern(WindowPattern.Pattern) as WindowPattern;
if (windowPattern.WaitForInputIdle(5000))
{
System.Threading.Thread.Sleep(2000);
KeyDown(Keys.F3);
KeyUp(Keys.F3);
System.Threading.Thread.Sleep(200);
KeyDown(Keys.LShiftKey);
KeyDown(Keys.Tab);
KeyUp(Keys.Tab);
KeyUp(Keys.LShiftKey);
KeyDown(Keys.Space);
KeyUp(Keys.Space);
KeyDown(Keys.Escape);
KeyUp(Keys.Escape);
KeyDown(Keys.LControlKey);
KeyDown(Keys.LShiftKey);
KeyDown(Keys.O);
KeyUp(Keys.LControlKey);
KeyUp(Keys.LShiftKey);
System.Threading.Thread.Sleep(200);
KeyDown(Keys.LControlKey);
KeyDown(Keys.LShiftKey);
KeyDown(Keys.I);
KeyUp(Keys.LControlKey);
KeyUp(Keys.LShiftKey);
}
}
}
catch (ElementNotAvailableException)
{
}
}
static void Main(string[] args)
{
System.Windows.Automation.Automation.AddAutomationEventHandler(
eventId: WindowPattern.WindowOpenedEvent,
element: AutomationElement.RootElement,
scope: TreeScope.Children,
eventHandler: OnWindowOpened);
Process.Start("outlookmail:");
System.Threading.Thread.Sleep(2500);
Automation.RemoveAllEventHandlers();
}
}I'm guessing ads are only for users that don't use Office 365 services? I have the Family pack subscription and never see any ads
I don't know if it goes away if you use Office 365, but the Mail app recently began to show this ad below the toggle slider. This is what I am referring to:
del %LOCALAPPDATA%\Packages\microsoft.windowscommunicationsapps_8wekyb3d8bbwe\LocalState\Migration\settings.json
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Options\General]
"HideNewOutlookToggle"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Preferences]
"UseNewOutlook"=dword:00000001I was talking about the Mail app, or "Mail and Calendar" app, that used to be part of Windows 10/11 by default. The registry settings that you posted have always been ignored by it, as the Mail app is a completely different animal [when compared to, e.g., Office 2016/2019/2021/2024 Outlook, Outlook 365, and Outlook Classic].
