vba - Outlook函数中的对象错误

Question

我正在编写一个在调试窗口中打印出文件夹名称的函数。由于某种原因，当我调用此函数时，出现对​​象必需错误。我已经设置了对象，所以不确定什么地方出错了。任何帮助将不胜感激。谢谢!

    function email_function(fldr as outlook.folder)
         debug.print fldr
    end function



    Sub email()

    Set objOutlook = CreateObject("Outlook.Application")
    Set objNspace = objOutlook.GetNamespace("MAPI")
    Set start_fldr = objNspace.GetDefaultFolder(olFolderInbox)


    Debug.Print start_fldr

    If Not start_fldr Is Nothing Then
       email_function (start_fldr)
    End If

    End Sub

Answer 1

语法错误。

Call email_function(fldr)

'or

email_function fldr

问题中的原始代码:

Sub email()
    Dim objOutlook As Application
    Dim objnSpace As Namespace
    Dim start_fldr As folder
    Dim fldr As folder

    Set objOutlook = Application
    Set objnSpace = objOutlook.GetNamespace("MAPI")
    Set start_fldr = objnSpace.GetDefaultFolder(olFolderInbox)

    Set fldr = start_fldr.Folders.GetFirst

    Call email_function(fldr)

    email_function fldr

End Sub