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