vba - 通过代码在 Outlook 中发送/接收

Question

如果我使用 Excel VBA 创建 Outlook 2010 对象

Sub CreateOL()
    On Error Resume Next
        Set myOlApp = GetObject(, "Outlook.Application")
    If Err.Number = 429 Then
        Set myOlApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
End Sub

是否可以强制myOLAPP发送/接收。请问有人可以建议一下它是如何完成的吗？

我尝试了以下方法，但它对我不起作用。

 Set nsp = myOlApp.GetNamespace("MAPI")
 Set sycs = nsp.SyncObjects
 For i = 1 To sycs.Count
    Set syc = sycs.Item(i)

    syc.Start

 Next

另外，如何使 myOlApp 可见？ myOlApp.Visible = True 和 myOlApp.Application.Visible = True 不起作用

谢谢

Answer 1

您使用的是哪个 Outlook 版本？我用 Outlook 2010 对此进行了测试，它有效。

注意:我没有进行任何错误处理。我相信你能处理好这个问题。

Public Sub Sample()
    Dim oLook As Object
    Dim nsp As Object, objSyncs As Object, objSync As Object
    Dim i As Long

    Set oLook = GetObject(, "Outlook.Application")

    Set nsp = oLook.GetNamespace("MAPI")

    Set objSyncs = nsp.SyncObjects

    For i = 1 To objSyncs.Count
        Set objSync = objSyncs.Item(i)
        objSync.Start
    Next
End Sub

MS Outlook 有 2 种类型的窗口

1. 文件夹浏览器和
2. 检查单个元素。

如果您想显示特定文件夹，您可以为其启动资源管理器，然后使用 .Activate 或 .Display。 另一种方法是使用 >MAPIFolder.Display 方法也是如此。