tutaclothes.blogg.se - Remove mail icon from taskbar windows 10

szTip = "A message has arrived" & vbNullChar uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE '.hwnd = FindWindowEx(0&, 0&, "mspim_wnd32", "Microsoft Outlook") You will need to use the HideNotifyIcon() function to make it disappear 'If you un-comment this line below the icon won't disappear when you mouse over it. Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long) As Long (ByVal hWndParent As Long, ByVal hwndChildAfter As Long, _īyVal lpszClass As String, ByVal lpszWindow As String) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Public Declare Function Shell_NotifyIcon Lib "shell32" _ Public Declare Function SetForegroundWindow Lib "user32" _ Public Const IDI_WARNING = IDI_EXCLAMATION Public Const IDI_INFORMATION = IDI_ASTERISK

Double-click the new module you just created,Īnd paste the following code: 'Some code borrowed from:.

On the left hand Project window, right-click "Project1" and select Insert->Module.

go to Tools->Macros->Visual Basic Editor, click View->Project explorer.

Then again, I think more highly of Stack Overflow than of the Microsoft Forums). Note that this only works in 32-bit Office (I wasn't able to get it to work in 64-bit so you're out of luck in that regard - even in the Microsoft forums, that issue is unresolved. I'm sure there is a way to get a similar-looking icon to appear by using LoadIcon or a similar Win32 function, but I have not been able to figure out how. However, you can add a different tray icon on-demand. As far as I've been able to tell, there is no direct way to display the New Mail Icon using VBA.