请大神们帮忙回复一个简单问题:outlook程序打开后,如何用VBA激活outlook窗口

王南宁

各位大神！
      晚上好，问一个简单问题，在outlook程序启动后，当焦点没有在outlook应用程序中时，应如何用vba激活outlook窗口，并使之具有焦点，我的代码如下：
Sub 激活Outlook窗口()
AppActivate "Microsoft Outlook" '激活Outlook窗口
End Sub
我这样写了之后，程序报错，请教各位大神帮帮忙，这句激活的代码应该如何写？谢谢各位了

王南宁

没有哪位大神回复我啊！！！！！！

王南宁

求助啊，大神们

王南宁

各位兄弟，各位大神，在不在？

大灰狼1976

是不是这样：

1. Sub test()
   
2. Dim WshShell As Object
   
3. Set WshShell = CreateObject("wscript.shell")
   
4. WShell.AppActivate ("Microsoft Outlook")
   
5. End Sub

复制代码

游乐缘

以下代码可以激活并最大化Outllook窗口，供参考：

1. Sub ActivateMaxOutlookWin()
   
2.     Dim ol As Object
   
3.    
   
4.     Set ol = GetObject(, "Outlook.Application")
   
5.     AppActivate ol.ActiveExplorer.Caption
   
6.     ol.ActiveExplorer.WindowState = olMaximized
   
7. End Sub

复制代码

王南宁

大灰狼1976 发表于 2022-1-19 21:57
是不是这样：

好的，谢谢这位大神

王南宁

游乐缘 发表于 2022-1-19 22:00
以下代码可以激活并最大化Outllook窗口，供参考：

拜谢大神啦