Excel vba не закрывает всплывающее окно «Новое оповещение по электронной почте» в Outlook - PullRequest
Новая
       13

Excel vba не закрывает всплывающее окно «Новое оповещение по электронной почте» в Outlook

0 голосов
/ 04 декабря 2018

У меня проблема с Windows API.Я работаю в офисе 2019 и win10.У меня есть два компьютера с одной и той же клиникой, но на одном я использую процесс автоматизации с помощью перемещения мыши из user32.dll.Это все работает в основном нормально.Но на этой машине мне нужно избавиться от всплывающего окна «Новые почтовые оповещения», которое вы получите, когда будете использовать правила Outlook.Причина в том, что я использую функцию перемещения мыши.Поэтому я добавил следующий код, чтобы отключить всплывающее окно, но оно просто не будет работать: 

Public Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As Long, nCmdShow As Long) As Long
Public Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_CLOSE = &H10
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Sub Win_Finder1()
'IE_window = FindWindow(vbNullString, "Untitled - Notepad")
IE_window = FindWindow(vbNullString, "New Mail Alerts")
'MsgBox IE_window
Call ShowWindow(IE_window, SW_HIDE)

Забавно, что Msgbox вернет значение.Я также использовал код, чтобы увидеть активные процессы, и он присутствует.Как вы можете видеть в константах, я также использовал функцию closewindow, свернуть. Заранее спасибо.M

...